Makro "Zeilen löschen"
08.05.2006 15:16:44
kle
ich will die Zeilen löschen, wo es in der Spalte D "8" steht.
Ich habe auch ein tolles Makro dafür bekommen:
Sub Zeilen_loeschen()
Dim rng As Range
Set rng = ActiveSheet.Cells.Find(1234) '1234 auf deinen Wert anpassen
If rng Is Nothing Then
Exit Sub
Else
rng.EntireRow.Delete
End If
Do
Set rng = ActiveSheet.Cells.FindNext
If rng Is Nothing Then
Exit Sub
Else
rng.EntireRow.Delete
End If
Loop
End Sub
Das Problem ist, dass es mir alle Zeilen löscht (wahrscheinlich deswegen, weil in der Tabelle überall irgendwo eine "8" gibt). In VBA kenne ich mich gar nicht aus. Könnt ihr mir da helfen das Makro zu vervollständigen?
Danke
kle