Hallo,
ich habe ab Zeile 3 in den Spalten B bis H Daten eingetragen und möchte mit einem VBA code, dass die letzte beschriebene Zeile kopiert und in die Zeile 1 eingefügt wird.
Kann mir hierbei bitte jemand weiterhelfen?
LG
Sub Kopieren()
Dim lngLetzte As Long
lngLetzte = Columns.Find(What:="*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
Range(Cells(lngLetzte, 2), Cells(lngLetzte, 8)).Copy Range("B1")
End Sub
AW: Letzte beschriebene Zeile kopieren&einfügen
25.04.2019 07:32:40
alex_de_souza
Hallo Karin,
super, genau das was ich brauche - vielen Dank!
Lg