Es war die Aufgabe eine eine Zelle an die nächste freie Position in Tab.2 Spalte A zu kopieren.
Sollte auch durch diesen Code gelöst worden sein nur bei mir funzt das nicht.
Ev. Hab ich dan Code an falscher Stelle eingefügt.
Könnte mir jemand zeigen wies richtig geht. Vielleicht mit hochladen des Beispiels.
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