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