Letzte belegte Zelle in Spalte A soll 95 mal in die darunter liegenden Zellen kopiert werden

Question

Hallo,
ich habe ein Problem, zu dem ich leider nichts im Internet gefunden habe. In Spalte A soll in einem Makro die letzte belegte Zelle beginnend ab A 3 gesucht werden und dann jeweils in die darunterliegenden Zellen 95 mal kopiert werden.
Kann mir jemand helfen ?
Freundliche Grüße
tomtom123

Answer 1

Hallo Tom

Option Explicit

Sub Tom()
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If LoLetzte < 3 Then LoLetzte = 3
Range(Cells(LoLetzte + 1, 1), Cells(LoLetzte + 95, 1)) = Cells(LoLetzte, 1)
End Sub

Gruß Hajo

Answer 2

Hallo Tom,
oder tatsächlich kopieren
Option Explicit

Sub Tom()
Dim LoLetzte As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows.Count)
If LoLetzte < 3 Then LoLetzte = 3
Cells(LoLetzte, 1).Copy Range(Cells(LoLetzte + 1, 1), Cells(LoLetzte + 95, 1))
End Sub

Gruß Hajo

Answer 3

Hallo Hajo,
hab das letzte gleich ausprobiert. Es funktioniert super ! Vielen Dank !!! Einen Schönen Abend noch.
Tom

Answer 4

Hallo,
die Lösung ist wirklich Spitze. Ich habe leider nicht das Wissen, um die Lösung zu verstehen. Wie müsste das denn Aussehen, wenn ich das ganze in eine andere Spalte z.B. Zelle"B12" verlege?
Gruß maxera