Problem mit Find nach Inputbox-Eingabe
08.03.2004 15:25:11
Jules
Ich will nach einem Datum suchen:
Sheets("Auswertung").Select
Cells.Select
Selection.Find(What:=tagesDatum, After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Das funktioniert auch, solange ich
tagesDatum = Date
setzte.
Nun will ich aber das Datum eingeben lassen
tagesDatum = Format(InputBox("Datum eingeben", Datum), "dd.mm.yyyy")
Sobald ich das so mache, erhalte ich aber immer folgende Fehlermeldung:
Laufzeitfehler '91'
Objektvariable oder With-Blockvariable nicht festgelegt
Was mach ich falsch?