AW: Suchen und löschen
30.01.2007 15:33:29
Erich
Hallo Selma,
das ginge z. B. so:
Option Explicit
Sub Gruesse_loeschen()
Dim rngF As Range
Set rngF = Cells.Find(What:="Mit freundlichen Grü*en", _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Do While Not rngF Is Nothing
rngF.Clear ' oder ClearContents
Range(Rows(rngF.Row + 1), Rows(rngF.Row + 10)).Delete ' oder Clear oder ClearContents
' oder
' Range(Rows(rngF.Row), Rows(rngF.Row + 10)).Delete ' oder Clear oder ClearContents
Set rngF = Cells.Find(What:="Mit freundlichen Grü*en", _
LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False)
Loop
End Sub
Ob du Delete, Clear oder ClearContents verwendest, haängt davon ab, was du hier unter "löschen" verstehst.
Das auskommentierte Range(Rows... kannst du anstelle der beiden über dem ' oder stehenden Löschzeilen verwenden,
wenn die ganze Zeile, in der die Grüße stehen, gelöscht werden soll.
"Grü*en" habe ich mit Stern geschrieben - falls mal jemand das falsche Grüssen durch "Grüßen" ersetzt hat.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort