deutsche Monatsnamen
02.09.2003 18:38:39
Matthias H.
in meinem Blatt stehen in verschiedenen Zellen alle 12 Monatsnamen. Darunter stehen verschiedene Zahlen (Tage).
Mit einer For-Next-Schleife springe ich nacheinander die Monatsnamen an, und prüfe dann in den darunterliegenden Zellen, ob es sich um das heutige Datum handelt.
Dazu schreibe ich den Tag [Cells(r + v, c)], und den Monat [Cells(r, c)]in Zelle B2, und vergleiche dann mit Date:
Cells(2, 2) = Cells(r + v, c) & Cells(r, c) & Year(Date)
If Cells(2, 2) = Date Then MsgBox "ok"
Im Fall des 2.September steht dann in B2 Folgendes: 02.09.2003, und die If- Bedingung wird erfüllt.
Das funktioniert aber nur wenn die Monate englisch geschrieben werden. Bei "Mai" steht in B2 z.B. 4Mai2003
Komischerweise habe ich mit "Januar" und "Februar" keine Probleme, nur mit "März", "Mai", "Juni", "Juli", "Oktober" und "Dezember".
Weiß jemand warum?
Gruß
Matthias