Sub Find_Einmal()
' erstellt von HajoZiplies@web.de 02.06.03
Dim RaFound As Range
With Worksheets("Tabelle1")
' xlByRows Suche zuerst in Zeilen
' xlByColumns Suche zuerst in Spalten
Set RaFound = .Cells.Find("schulz", , , xlWhole, xlByRows, xlNext)
If Not RaFound Is Nothing Then
' MsgBox RaFound.Row
Rows(RaFound.Row).Delete
End If
End With
Set RaFound = Nothing
End Sub
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
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen