ich habe einen Command Button der Zeilen löschen soll in denen das Wort "erledigt" steht.
Dieses Funktioniert soweit auch ganz gut.
Das Problem ist, dass ich den Button immer wieder klicken muss um alle Zeilen in denen das Wort "erledigt" steht zu löschen.
Kann ich das automatisieren? Einmal klicken und dann werden alle Zeilen gelöscht?
Hier ist der Code...
Private Sub CommandButton2_Click()
Dim strString As String, rngCell As Range
strString = "erledigt"
Set rngCell = Columns(7).Find(strString, lookat:=xlWhole, LookIn:=xlValues, MatchCase:=True) _
c = rngCell.Row
i = rngCell.Column
If Not rngCell Is Nothing Then
Tabelle1.Cells(c + 1, i).EntireRow.Delete
rngCell.EntireRow.Delete
End If
End Sub