Datumsangaben in ComboBox

Question

Hallo erst einmal.
Bin neu hier im Forum.
Hoffe, das mir jemand in VBA dringend für ein Excel-Projekt helfen kann.
Ich möchte in einer Combobox innerhalb einer Userform Datumsangaben bis unendlich stehen haben, die ich dann beim Aufruf auswählen kann.
Wie ich die ComboBox in die Userform kriege ist mir klar und ich weiß auch, wie ich einzelne Datumsangeben in die ComboBox mittels VBA Code schreiben kann. Allerdings bekomme ich so keine fortführende Datumsliste.
Freue mich über Hilfe

Answer 1

Hallo,

meines Wissens muss sich die Datumsliste in einer Tabellenspalte befinden.
In der ComboBox wird dann mittels ListFillRange auf diesen Bereich verwiesen.

Gruß
Rainer

Answer 2

Hallo,

innerhalb einer Userform Datumsangaben bis unendlich stehen haben,

Mit unendlich wirst du Schwierigkeiten haben, denn wie soll das gehen? Das Makro zur Erzeugung der Daten würde ja unendlich laufen !

Um eine Combobox mit Daten zu füllen, kannst du das folgende Makro verwenden:

Sub combobox_fuellen()
Dim i as Long

For i = 0 To 10
UserForm1.ComboBox1.AddItem CDate(Date + i)
Next i
UserForm1.ComboBox1.ListIndex = 0

End Sub

Dabei wird ausgehend vom aktuellen Datum deine Combobox mit insgesamt 11 Werten gefüllt.

Vielleicht hilft dir ja auch ein Kalender in deiner Userform so wie in diesem Beispiel (gefunden auf dieser Seite).

Gruß

M.O.