ich finde den verflixten Fehler nicht.
Folgendes sollte das Makro machen.
Suche in Tab1 die letzte beschriebene Zelle in Sp B[ab Zeile2] und kopiere diese nach Tab2 in Zelle F2.
Sub letzte_Zelle_kopieren()
Dim lZ As Long
lZ = Sheets("Tabelle1").Range("B" & Rows.Count).End(xlUp).Row
If lZ Sheets("Tabelle1").Cells(lZ, 2).Copy Sheets("Tabelle2").[F2]
End Sub
Kann mir jemand helfen ?
Mit freundlichen Grüßen
Manfred