✔ VBA-Word Datumsproblem

[morgenstern]

Hallo!

Habe ein Makro, welches mir in die Userform das aktuelle Datum schreibt - es klappt bei vielen Daten sehr gut, nur am 1. eines Monats kommt ein Debug-Fehler - ich komme leider nicht dahinter wieso, vielleicht könnt ihr mir helfen.

Hier der Code:

Sub UserForm_Activate()
tag_heute_liste$ = Format(DateAdd("d", -1, Date), "d")
monat_heute_liste$ = Format(DateAdd("m", -1, Date), "m")



With Me.year
    .AddItem DatePart("yyyy", Now())
    .AddItem DatePart("yyyy", Now()) + 1
    .AddItem DatePart("yyyy", Now()) + 2
    .ListIndex = 0
End With
With Me.month

For intMonat = 1 To 12
    month.AddItem intMonat
Next intMonat

    .ListIndex = monat_heute_liste$
End With

With Me.day
For intTag = 1 To 31
    day.AddItem intTag
Next intTag
    .ListIndex = tag_heute_liste$
End With


End Sub

 

[Zvoni]

Dir ist klar, dass du in der Zeile

tag_heute_liste$=blabla

an einem Monatsersten versuchst den "nullten" Tag zu ziehen?

 

[morgenstern]

Dies hat schon seinen Sinn, da ja mit dieser Variable nur den ListIndex auf 0 setzte um mir diesen im Dropdown markieren zu lassen und nicht das Datum selbst zu schreiben.

 

[Zvoni]

dann solltest du schon angeben in welcher Zeile der Fehler auftaucht, und vor allem welcher Fehler

 

[darkframe]

Hi,

Dir ist klar, dass du in der Zeile

tag_heute_liste$=blabla

an einem Monatsersten versuchst den "nullten" Tag zu ziehen?

das spielt keine Rolle, weil die Funktion dann den letzten Tag des Vormonats ergibt. Am 01.08. ausgeführt würde der Wert dann den 31.07., bzw. in der ersten Zeile nur die 31 ergeben.

Genau das kann ja auch die Fehlerursache sein, wenn dieser Wert nun als Eintrag für den ListIndex verwendet wird.

Aber Du hast schon Recht, so ist das alles nur geraten; man müsste schon genau wissen, wo der Fehler auftaucht.

 

[morgenstern]

Fehler behoben. Habe nun alles neu geschrieben und es anders gelöst. Klappt nun - danke euch!

mfg