Habe folgendes Problemchen
Ich fülle eine Combobox mit einer Schleife mit Datumswerten.
Ich hätte gerne das die Datumswerte in der Form Jan 95, Feb 95, Mär 95 usw. in der Combobox angezeigt werden. Bisher verwende ich diese sub:
Sub combobox1_fuellen()
Dim i As Integer
D = "Jan 95" 'Startwert
ComboBox1.Clear
For i = 0 To 24
ComboBox1.AddItem D
D = DateSerial(Year(D), Month(D) + 1, Day(D)) ' + 1 Monat
Next i
End Sub
Das Ergebnis ist das der erste Wert in der Combobox korrekt in der Form Jan 95 angezeigt wird die folgenden Werte jedoch in der Form 01.02.1995, 01.03.1995 usw.
Danke im Voraus für alle Tips!