Letzte Zeile kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Letzte Zeile kopieren
von: MarcelK.
Geschrieben am: 09.12.2003 20:25:28

Hallo,

mit welchem Code eines Commandbutton kann ich die letzte Zeile eines Worksheets kopieren und in ein anderes Worksheet einfügen?

Kann mir das jemand bitte beantworten?!?!

Bild


Betrifft: AW: Letzte Zeile kopieren
von: xXx
Geschrieben am: 09.12.2003 21:16:35

Hallo,
deine Frage ist zwar etwas nebulös, aber so in etwa sollte es gehen;

Private Sub commandbutton1_click()
R=sheets("Tabelle1").cells(65536,1).end(xlup).row
sheets("Tabelle1").rows(r).copy destination:=sheets("Tabelle2").Range("A1")
End Sub

Gruß aus'm Pott
Udo
http://www.excelerator.de


Bild

Beiträge aus den Excel-Beispielen zum Thema " Letzte Zeile kopieren"