Row auswählen nach Select.Find
14.02.2006 16:32:05
Christine
ich habe ein Problem mit Row(). Ich möchte in einer Spalte etwas suchen, und wenn es gefunden wurde, die komplette Zeile löschen. Leider funktioniert mein Beispiel nicht. Habt ihr vielleicht noch eine Idee?
Danke,
Christine.
Sub test()
Columns("A:A").Select
Selection.Find(What:="Test", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Row(ActiveCell).Select
Selection.Delete Shift:=xlUp
End Sub
Anzeige