bei mir scheiterts gerade eben an einem simplen Datumsformat.
Es wird über eine Userform ein Datum eingelesen (DatumBox).
Dieses Datum schreibe ich dann in die Variable Datum. Datum ist natürlich als Date deklariert. Im Debugger steht auch unter Format "Date"?!
Witzigerweise verwende ich die selbe Formel in einem anderen Modul nur mit dem Aktuellen Datum Datum=Date
Weitere Berechnungen funktionieren dann natürlich nicht mehr...
z.B.: Kalenderwoche & Wochentag
Fehlermeldung: "Überlauf" - bei Berechnung von t
Hier der Code:
'Variablen deklarieren
Dim Datum As Date
Dim Thisweekday As Integer
Dim t As Integer
Dim Kalenderwoche_DIN As Integer
Datum = CDate(DatumBox)
'Wochentag
Thisweekday = Weekday(Datum, vbMonday)
'Berechnung der Kalenderwoche
t = DateSerial(Year(Datum + (8 - Weekday(Datum)) Mod 7 - 3), 1, 1)
Kalenderwoche_DIN = (Datum - t - 3 + (Weekday(t) + 1) Mod 7) \ 7 + 1