AW: Zelle suchen, Zeile löschen
04.11.2010 09:58:22
Hajo_Zi
Hallo Georg,
das Stand nicht im Beitrag.
Option Explicit
Sub Find_mehrmals()
'* H. Ziplies *
'* 04.11.10 *
'* erstellt von HajoZiplies@WEB.de *
'* http://Hajo-Excel.de
Dim RaFound As Range
With Worksheets("Tabelle1")
Set RaFound = .Cells.Find("Schulz", , , xlWhole, , xlNext)
If Not RaFound Is Nothing Then
Rows(RaFound.Row).Delete
Do
Set RaFound = .Cells.Find("Schulz", , , xlWhole, , xlNext)
If RaFound Is Nothing Then Exit Do
Rows(RaFound.Row).Delete
Loop
End If
End With
Set RaFound = Nothing
End Sub
Gruß Hajo