ich möchte daß in einer Excel-Mappe nach einem Wert gesucht wird, falls der Wert in einer Zelle gefunden wird, soll die Zeile, in der sich die Zelle befindet gelöscht werden
Am besten mittels VBA
Bin für alle Hinweise dankbar
Gruß
Georg
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
Gruß Hajo