Ich schreibe ein Makro, welches mir über eine Input-Box eingegebene Werte suchen soll.
Der Code lautet folgendermassen:
Sub suchen()
Dim suchbegr
Dim c As Range
suchbegr = InputBox("was suchen?", "Suche")
Windows("Detail.xls").Activate
Columns("H:H").Select
Set c = Selection.Find(What:=suchbegr, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
If Not c Is Nothing Then
MsgBox ActiveCell.Address
Else
MsgBox "nichts gefunden"
End If
End Sub
Nun stoppt der Code in der Zeile "Set c = ..." mit Fehlermeldung "Laufzeitfehler 424, Objekt erforderlich".
Ich habe schon im Archiv gesucht, aber keine Lösung gefunden. Könnt ihr mir sagen, wo der Fehler liegt?
Danke für eure Hilfe!
Gruss Rudi