gibt es eine Möglichkeit Zeilen zu löschen, wenn ein bestimmter Wert enthalten ist? Die Lösung sollte dann in einem Makro verwendet werden können (möglichst ohne VBA-Programmierung).
Vielen Dank für Eure Unterstützung!
Tom
Sub ZeileLöschen()
Sp = 1 ' Spalte 1 vergleichen
P1 = 24 ' Bis zu der Zeile 24 vergleichen
P2 = 0 'gelöschte Zeilen zählen auf 0 setzen
For Ze = 2 To P1 ' von zeile 2 bis 24 vergleichen
If Cells(Ze, Sp) = "" Then ' Leere Zellen löschen , - , "as" Zelle mit inhalt as löschen
Cells(Ze, Sp).EntireRow.Delete
Ze = Ze - 1 ' gleiche zeile nochmal testen
P2 = P2 + 1 ' gelöschte Zeilen zählen
End If
If P2 + Ze > P1 Then Exit For
Next Ze
Cells(1, 1).Select
End ' alle variablen löschen makro benden
End Sub