Office: Combobox Datumsauswahl

Hallo zusammen

ich habe ein kleines Problem ich würde gern per Comboboxauswahl TT.MM.YYYY

angezeigt bekommen.

ich habe es für ein Jahr so gelöst

Sub UserForm_Initialize()

Dim A
Dim a_start
Dim a_ende
Dim Datum

A = Year(Date)
a_start = "01.01." & A
a_ende = "31.12." & A

For Datum = CLng(CDate(a_start)) To CLng(CDate(a_ende))
ComboBox16.AddItem CDate(Datum)
Next Datum


ComboBox16.ListIndex = CLng(Now) - 1 - CLng(CDate(a_start))


ComboBox16.Value = ""



End Sub


nur habe ich jetzt gerne in einer anderen Combobox mehrere Jahre

also von 01.01.1900 - 31.12.1965

ist das möglich ?

danke schonmal für eure Hilfe
Gruß
Ron

:)

 

wo ist das Problem, ich glaube nicht das die in der länge beschränkt sind. Aber ca 24.000 Einträgen brauchst Du lange um was zu suchen.

 

...und genau deshalb nehme ich an, Ron will die Box mit den Jahreszahlen füllen und das ausgewählte Jahr dann weiter verwenden...

bsp.:
Code:

 

ich danke euch beiden

ich denke ich werde die Daten händisch eingeben lassen Danke

nur habe ich dann ein problem mit dem ausrechner der Daten

TextBox2.Text = Format(ComboBox16.Value - TextBox9.Text, "yy")


habt ihr ne Idee wie ich das lösen kann?

 

Gibt es einen Grund, dass du das Kalender-Steuerelement nicht verwendest? Da stimmen immer automatisch die Schaltjahre, ist intuitiv zu bedienen, ...

 

Ja leider

diese Objektbibliothek wird leider nicht mehr auf dem Server unterstützt

wurde gelöscht ;(

daher habe ich kein zugriff mehr

 

Hallo Ron
versuch mal so.
Format(Clng(ComboBox16.Value) - Clng(TextBox9.Text), "00")
gruss hary

 

ich habs jetzt anders gelöst

mit Fix(Datediff("d" und / 365 geteilt dann zeigt er mir das gewünschte ergebniss

Danke an alle
Gruß
Ron
closed