Hallo,
Dein Vorschlag klappt leider nicht, er Bleibt dann in der Zeile stehen.
Mit *With Tabelle3* bleibt er in Folgender Zeile Stehen:
lngZeileMax = .Cells(.Rows.Count, "1").End(xlUp).Row
Fehlermeldung : Objekt erforderlich