Frage zur Suchfunktion
03.03.2006 17:36:30
Christine
ich habe eine Frage zur Suchfunktion "Find". Ich suche in einem Bereich nach einem Wert mit Find, und wenn dieser gefunden ist, soll die ganze Zeile in der dieser Wert vorkommt gelöscht werden. Mein Problem ist nun, daß zwar der Wert gefunden wird, aber ich bekomme nicht die Zeile in der er steht. Mit ActiveRow.Select geht das irgendwie nicht.
Vielleicht weiß ja jemand eine Lösung?
Vielen Dank im Voraus,
Christine.
Sub suchen()
For Each cb In Range(Cells(1, 1), Cells(10, 1))
Set f = cb.Cells.Find(wert, LookIn:=xlValues)
If Not f Is Nothing Then
ActiveRow.Select '<- das funktioniert nicht
Selection.Delete Shift:=xlUp
End If
Next
End Sub