Zelle x-mal in eine Spalte kopieren

[LBJ]

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

[LBJ]

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