Hallo.
Ich habe für ein Projekt eine Userform mit Kalender entworfen. Die einzelnen Elemente (Tag, Monat, Jahr) werden über jeweils eine listbox abgefragt.
Nun funktioniert das alles eigentlich genauso wie es soll, nur dass beim Tag die Value leer bleibt obwohl sie festgelegt wird. Identisch zu den zwei anderen Boxen. Kann mir jemand erklären wieso, oder was ich vergesssen habe?
Es fehlt immer mal wieder einer der Werte, es sind nie alle 3 Werte vorhanden?
Danke schon mal für die Hilfe.
Ich habe für ein Projekt eine Userform mit Kalender entworfen. Die einzelnen Elemente (Tag, Monat, Jahr) werden über jeweils eine listbox abgefragt.
Nun funktioniert das alles eigentlich genauso wie es soll, nur dass beim Tag die Value leer bleibt obwohl sie festgelegt wird. Identisch zu den zwei anderen Boxen. Kann mir jemand erklären wieso, oder was ich vergesssen habe?
Visual Basic-Quellcode
- For a = 1 To 31
- With uf_AZE.uf_AZE_lb_Tag
- .AddItem a
- End With
- Next a
- With uf_AZE.uf_AZE_lb_Tag
- .Value = DatePart("d", Date)
- .TopIndex = DatePart("d", Date) - 2
- End With
- For a = 0 To 11
- With uf_AZE.uf_AZE_lb_Monat
- .AddItem ArMonat(a)
- End With
- Next a
- With uf_AZE.uf_AZE_lb_Monat
- .Value = ArMonat(DatePart("m", Date) - 1)
- .TopIndex = DatePart("m", Date) - 2
- End With
- For a = 0 To 10
- With uf_AZE.uf_AZE_lb_Jahr
- .AddItem 2010 + a
- End With
- Next a
- With uf_AZE.uf_AZE_lb_Jahr
- .Value = DatePart("yyyy", Date)
- .TopIndex = DatePart("yyyy", Date) - 2011
- End With
Es fehlt immer mal wieder einer der Werte, es sind nie alle 3 Werte vorhanden?
Danke schon mal für die Hilfe.
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „FloFuchs“ ()