ein kleines problem: wie lassen sich inhalte von zellen in die jeweils nächste freie zeile einer tabelle kopieren?
vielen dank für die mühe
gruß, bis zum nächsten mal
joel
Sub kopieren()
Dim lEnd As Long
lEnd = Sheets("Tabelle2").End(xlUp).Row + 1
'Erste Freie Zeile in Spalte "A" ermitteln
Sheets("Tabelle1").Range("A1").Copy Sheets("Tabelle2").Cells(lEnd, 1)
End Sub
Sub kopieren()
Dim lEnd As Long
lEnd = Sheets("Tabelle2").Range("A65536").End(xlUp).Row + 1
'Erste Freie Zeile in Spalte "A" ermitteln
Sheets("Tabelle1").Range("A1").Copy Sheets("Tabelle2").Cells(lEnd, 1)
End Sub
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen