ich möchte in einer Arbeitsmappe in zwei sheets die gleichen zusammenhängenden Zeilen löschen. Welche Zeilen das sind, definiert sich nach Kriterien auf dem 1. Sheet. Die erste gelöschte Zeile ist variabel, die letzte gelöschte Zeile ist immer Zeile 200. Als erste zu löschende Zeile soll immer die gewählt werden, die von oben her die erste ist, in der Spalte A leer ist (in Sheet1).
Bsp: in Sheet 1 sind in Spalte A die ersten 5 Zeilen gefüllt, dann sind 7 Zeilen Leer, dann sind wieder etliche Zeilen gefüllt. --> Die zu löschenden Zeilen sind Zeilen 6 - 200. Hier der Link zu Datei: https://www.herber.de/bbs/user/156146.xlsx
Hier mein Code:
Sub Zeilenlöschen()
Dim Startzeile as Range
[A:A].SpecialCells(xlBlanks).Cells(1).Select
Startzeile = ActiveCell.Row
ActiveSheet.Rows("Startzeile:200").Delete
Sheets("Tabelle2").Rows("Startzeile:200").Delete
Fehlermeldung in der Zeile "ActiveSheet.Rows("Startzeile:200").Delete": Objektvariable oder With-Blockveriable nicht festgelegtWenn ich statt "Startzeile" die tatsächliche Zeilenzahl eintrage, geht es ohne Probleme. Ich müsste es nur schaffen, Startzeile korrekt zu übergeben. Sieht jemand meinen Fehler?
Vielen Dank!