Liebes Forum,
ich verzweifle gerade an dem Versuch, mir ein Datum zu kreieren und den Monat daraus in eine Variable zu schreiben.
Der Code dazu sieht wie folgt aus:
_______________________
Dim start_monat As Integer
start_monat = Month(CDate("1. " & MonthName(Month("1." & Range("AI17").Value & "." & Year(Date))))) 'als Nummer
MsgBox Month(CDate("1. " & MonthName(Month("1." & Range("AI17").Value & "." & Year(Date)))))
MsgBox start_monat
______________________
In AI17 steht August.
Die Funktion Month(CDate...) erzeugt wie gewünscht die Nummer 8.
Die beiden Msgboxen werfen auch beide 8 aus.
Jedoch wird start_monat, im Debugger zu sehen, mit 14 belegt? Das verstehe ich nicht.
Hat jemand ein solches Problem schonmal gehabt? Ich weiß leider überhaupt nicht wonach ich suchen muss...
Vielen Dank!
Matthias