Hallo, Ich habe folgenden Code mit dem ich alle Zeilen löschen möchte die in Spalte D den Teilstring "TEST" enthalten. Das funktioniert in meiner Beispieldatei ohne Probleme, in meiner eigentlichen Datei mit mehr Tabellenblättern und Makros kommt allerdings die Fehlermeldung "Laufzeitfehler 1004 die Delete-Methode des Range Objektes konnte nicht ausgeführt werden". Ich habe im Netz ähnliche Probleme von anderen Usern gefunden, leider hat keine der Lösungen geholfen. Das Makro wird über einen Button aktiviert. Freue mich über jeden Tipp.
Code:
Sub Musterportfolien_Summenzeilen_Loeschen()
Dim rngSuchbereich As Range, rngGefunden As Range, rngLoeschen As Range, strSuchbegriff As String, strErste As String
Set rngSuchbereich = ThisWorkbook.ActiveSheet.Columns("D")
Set rngGefunden = rngSuchbereich.Find(what:="TEST", LookIn:=xlValues, lookat:=xlPart, MatchCase:=True)
If Not rngGefunden Is Nothing Then
Set rngLoeschen = rngGefunden
strErste = rngGefunden.Address
Do
Set rngLoeschen = Union(rngLoeschen, rngGefunden)
Set rngGefunden = rngSuchbereich.FindNext(rngGefunden)
If rngGefunden Is Nothing Then Exit Do
Loop Until rngGefunden.Address = strErste
rngLoeschen.EntireRow.Delete
End If
End Sub