Hallo Stephan,
wenn Löschen wegen der Formeln nicht geht, geht vielleicht Ausblenden als 'Zusammenrücken':
Application.ScreenUpdating = False
Dim I As Integer
For I = 1 To 300
If ActiveSheet.Cells(I, 1).Value = "X" Then Rows(i).EntireRow.Hidden = True
Next I
Application.ScreenUpdating = True
End Sub
Nebenbei: Wenn du eine Zeile löscht, bekommen alle darunter eine neue Nummer, insbesondere wird mit dem nächsten i nicht die Zeile, die vorher unter der gelöschten Zeile stand, angesprochen, sondern die neue mit dieser Nummer, also die zweite unter der gelöschten Zeile. Deshalb macht man soetwas besser von unten: for i=300 to 1 step -1.
'Cells(Rows.Count, 1).End(xlUp).Row' liefert die letzte nicht leere Zelle in Spalte A, also For i=Cells(Rows.Count, 1).End(xlUp).Row to 1 step -1.
Vielleicht kannst du das einmal gebrauchen.
Gruß
Holger
|