Werte per VBA suchen
07.12.2004 21:58:39
Rudi
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
Anzeige