Antwort auf Loop in Button Sub - 2
28.03.2019 07:27:03
Marcel
aus krnakheitsgründen kann ich leider erst jetzt antworten.
Leider ist auch der andere Threat wieder geschlossen.
Ich habe es gerade getestet und es funktioniert wunderbar.
Vielen Dank dafür.
Kannst du mir vielleicht noch ein bisschen erklären was dein Code genau macht?
Also irgednwie Kommentare dazu schreiben. Ich möchte ja gerne lernen....
Hier nochmal der Code....
Private Sub CommandButton2_Click()
Const SEARCH_TERM As String = "erledigt"
Dim rngCell As Range, rngRange1 As Range, rngRange2 As Range
Dim strFirsAddress As String
Set rngCell = Columns(7).Find(What:=SEARCH_TERM, _
LookAt:=xlWhole, LookIn:=xlValues, MatchCase:=True)
If Not rngCell Is Nothing Then
strFirsAddress = rngCell.Address
Do
If rngRange1 Is Nothing Then
Set rngRange1 = rngCell
Set rngRange2 = Tabelle1.Cells(rngCell.Row + 1, 1)
Else
Set rngRange1 = Union(rngRange1, rngCell)
Set rngRange2 = Union(rngRange2, Tabelle1.Cells(rngCell.Row + 1, 1))
End If
Set rngCell = Columns(7).FindNext(After:=rngCell)
Loop Until rngCell.Address = strFirsAddress
Call rngRange1.EntireRow.Delete
Call rngRange2.EntireRow.Delete
Set rngCell = Nothing
Set rngRange1 = Nothing
Set rngRange2 = Nothing
End If
End Sub