Laufzeitfehler
21.11.2002 19:37:03
Alexander W
Ich verwende dieses Makro um doppelte Einträge zu löschen.
Wenn aber kein doppelter Eintrag da ist, bekomme ich einen Laufzeitfehler 91 (Objektvariable oder With-Blockvariable nicht festgelegt)
Kann ich das irgendwie abstellen?
Bitte um eure Hilfe
Dim Suchwert As String
Suchwert = Cells(2, 1).Value
Sheets("A").Select
Cells.Find(What:=Suchwert, After:=ActiveCell, LookIn:=xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
Selection.EntireRow.Delete