Herbers Excel-Forum - das Archiv

Letzte Zeile kopieren

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
⇒ CommandButton
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
Bewerten Sie hier bitte das Excel-Portal
Excel-Beispiele zum Thema " Letzte Zeile kopieren"
Letzte nichtleere Zelle ermitteln Letzter Wert in Zeile
Letztes Speicherdatum eintragen Letzter Wert aus einem Bereich
Letztes Speicherdatum in die Fußzeile aller Tabellenblätter Formel bis zur letzten Zeile der Nebenspalte kopieren
Letzte Zelle mit Inhalt suchen Letzte Zelle einer Spalte mit Inhalt aus geschlossener Arbeitsmappe
Letzte Verknüpfung in einem Tabellenblatt löschen Letztes Zeichen der Werte einer Zellauswahl hoch-/tiefstellen