|
Hallo,
ich bekomme den oben genannatne Laufzeitfehler-Nr. 91. Bei der Ausführung meines Codes.
datsuch = CDate(ActiveCell.Offset(-2, q)) - WBZ
datzeile = Worksheets("Kalenderwochen").Columns("A:A").Find(What:=datsuch, LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False, SearchFormat:=False).Row
Es geht darum ein Datum als Suchwert abzuspeichern umd dann zu dem zugehörigen Datum aus einem anderen Blatt die Kalenderwoche zuzordnen.
Allerdings entsteht ein Problem beim Zuorndenen/Speichern des Datums in der Varaible datsuch. Diese habe ich übrigens als Variant deklariert.
Das Datum welches eingelsenwird (ActiveCell.Offset(-2,q)) ist mit Formel angegeben & darin besteht wohl auch das Problem.
Wenn in der Ausgangszelle die Formel: =DATUM(JAHR(HEUTE());MONAT(HEUTE());1) steht ist es kein Problem.
In den weiteren steht allerdinngs: =DATUM(JAHR(HEUTE());MONAT(HEUTE())+1;1)
Da entsteht der Problem, also mit dem +1 bei Monat scheint VBA nicht umgehen zu können. Hatte jemand diesen Fall schonmal und weiß konkreter wo das Problem liegt, bzw. wie man es umgehen kann (vielleich Felder vorher umformatieren in & für VBA?)
Danke vorab
Martina
|