Forumthread: Letzte beschriebene Zeile kopieren&einfügen
Letzte beschriebene Zeile kopieren&einfügen
24.04.2019 09:50:40
alex_de_souza
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
Anzeige
AW: Letzte beschriebene Zeile kopieren&einfügen
25.04.2019 09:32:40
alex_de_souza
Hallo Karin,
super, genau das was ich brauche - vielen Dank!
Lg