Wer kann mir mit eonem Makro aushelfen?
und zwar....
Das Makro sollte folgendes können:
Suche in der Spalte A nach dem letzten Eintrag und kopiere diesen gleichen Wert 43 mal mal darunter.
Füür hilfe bin ich Dankbar
Gruß
Achim H.
Sub kopieren43()
Dim LR%
LR = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row 'letzte Zeile der Spalte A
Range(Cells(LR + 1, 1), Cells(LR + 43, 1)) = Cells(LR, 1)
End Sub
Sub kopieren43()
Dim LR%, Fakt%, Sp%
Fakt = 43
Sp = 11 'A=1 B=2..K=11
LR = ActiveSheet.Cells(Rows.Count, Sp).End(xlUp).Row 'letzte Zeile der Spalte A
Range(Cells(LR + 1, Sp), Cells(LR + Fakt, Sp)) = Cells(LR, Sp)
End Sub