Suchen und Löschen in einer Schleife
07.05.2013 16:58:25
Larissa
könnt Ihr mir dieses Makro in eine Schleife bauen?
Es soll den Begriff "Vertreterstatistik" suchen und diese + 3 folgende Zeilen löschen.
Dieses Makro führt die gewünschte Aktion leider nur bei dem ersten Fund aus:
Public Sub Suchen_Loeschen()
Dim rZelle As Range
Dim sSuchbegriff As String
sSuchbegriff = "Vertreterstatistik"
With ThisWorkbook.Worksheets("doc1").Cells ' den Tabellenblattnamen ggf. anpassen!
Set rZelle = .Find(What:=sSuchbegriff, LookAt:=xlWhole, LookIn:=xlValues)
If Not rZelle Is Nothing Then
.Rows(rZelle.Row & ":" & rZelle.Row + 3).Delete Shift:=xlUp
Else
MsgBox "Der Begriff """ & sSuchbegriff & """ wurde nicht gefunden.", _
16, " Hinweis für " & Application.UserName
End If
End With
End Sub
Larissa