Collapse column

Autor Thema: Zelle x-mal in eine Spalte kopieren  (Gelesen 321 mal)

Offline LBJ

  • Newbie
  • *
  • Beiträge: 2
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2016
Zelle x-mal in eine Spalte kopieren
« am: April 13, 2019, 11:39:21 Vormittag »
Hallo,
 
von VBA habe ich leider so gut wie keine Ahnung. Darum hier meine Frage.
 
In den Zellen A1 und A2 sind Werte. Ich möchte die Zelle A2 in dem Bereich B10:B100 in der letzten freien Zelle kopieren. Die Anzahl der Kopien steht in A1. Wichtig dabei ist, dass die Formatierung von A2 beibehalten wird. Z. B. steht  in A1 eine fünf, dann soll die Zelle A2 fünfmal mit der Formatierung in die letzte freie Zelle von Spalte B (nur in dem Bereich B10:B100) kopiert werden.

Es wäre nett, wenn mir jemand helfen könnte.

Danke

LBJ

Keine Lösung gefunden? Du kannst Dich gerne an unser erfahrenes Experten-Team wenden und Dein Anliegen in Auftrag geben.
>>> Schnell und einfach ein unverbindliches Angebot anfordern. Per E-Mail an anfrage@excel-inside.de oder per Online-Formular
<<<

!!! Wichtige Information
!!! Dieses Forum kann aus technischen Gründen leider nur bis maximal September 2019 in der Form betrieben werden.
Das neue Forum steht bereits unter https://forum.excel-inside.de uneingeschränkt zur Verfügung. Es wird empfohlen, neue Fragen direkt dort zu posten.

Bitte verwendet somit schnellstmöglich das neue Forum - Vielen Dank für euere Unterstützung

Offline LBJ

  • Newbie
  • *
  • Beiträge: 2
    • Profil anzeigen
  • Office-KnowHow: Amateur
  • VBA-KnowHow- : Ohne
  • Version [Office] : Office 2016
Antw: Zelle x-mal in eine Spalte kopieren
« Antwort #1 am: April 14, 2019, 11:36:50 Vormittag »
Hi, hier ein kleines Feedback,

Sub Loeschen()   'Vorbereitung, dass in dem Bereich B10:B100 leere Zellen gelöscht werden.
Range("B10:B100").Select
Selection.SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp   'Leere Zellen werden gelöscht und nach oben geschoben.
End Sub

Sub Kopieren()
Dim var As Long
Dim i As Long
var = Range("A1").Value   'In dieser Zelle (A1) steht ein Wert. So oft soll kopiert werden.
For i = 1 To var
Range("A2").Copy   'Dieser Wert soll mit der Formatierung kopiert werden.
Cells((i + 9), 2).Select   'Ab Zelle B10 werden die Werte kopiert.
ActiveSheet.Paste
Next i
Application.CutCopyMode = False
End Sub

Sub Zusammenfassung()   'Diese Prozedur löst in diesem Fall beide Anwendungen aus. Also jederzeit erweiterbar.
Loeschen
Kopieren
End Sub

Vielleicht sucht der eine oder andere danach. Ich jedenfalls habe dafür mehrere Stunden benötigt. Egal, es hat geklappt.

Einen schönen Sonntag wünsche ich.

LBJ

Wenn du dich noch intensiver mit Excel beschäftigen möchtest, dann empfiehlt sich ein Online-Kurs,
in dem du sehr viel über Excel erfährst und das gelernte umgehend in der Praxis anwenden kannst.