Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1852to1856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Befüllen einer ComboBox mit Datumswerten

Befüllen einer ComboBox mit Datumswerten
23.10.2021 19:01:45
Andreas
Hallo Leute,
wie kann ich eine Combobox mit Datumswerten befüllen?
Hierbei möchte ich ein "Start"Datum angeben, das dynamisch bis zum heutigen Tag befüllen soll.
Ich würde es auch gerne so haben, dass mir das jüngste Datum (also heute) immer oben angezeigt wird.
Vielen Dank für Eure Hilfe.
LG

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Befüllen einer ComboBox mit Datumswerten
23.10.2021 19:15:54
Andreas
Vorwärts befüllen geht ja so:
Dim datumcbox
For datumcbox = CLng(CDate(Date)) To CLng(CDate("01.01." & Year(Now())))
ComboBoxDatum.AddItem CDate(datumcbox)
Next datumcbox
nur rückwärts?
AW: Befüllen einer ComboBox mit Datumswerten
23.10.2021 19:16:26
Andreas
Vorwärts befüllen geht ja so:
Dim datumcbox
For datumcbox = CLng(CDate("01.01." & Year(Now()))) to CLng(CDate(Date))
ComboBoxDatum.AddItem CDate(datumcbox)
Next datumcbox
nur rückwärts?
AW: Befüllen einer ComboBox mit Datumswerten
23.10.2021 19:32:11
Henner
Hi Andreas
So?
Dim datumcbox
For datumcbox = CLng(CDate(Date)) To CLng(CDate("01.01." & Year(Now()))) Step -1
ComboBoxDatum.AddItem CDate(datumcbox)
Next datumcbox
Gruss Henner
Gruss Henner
Anzeige
AW: Befüllen einer ComboBox mit Datumswerten
23.10.2021 19:31:27
Andreas
Vielleicht nicht die eleganteste Lösung...aber funktioniert.
Ich berechne erstmal, wieviel Tage bisher seit dem 1.1 vergangen sind und lasse dann in einer Schleife rückwärts zählen:
vielleicht weiss ja noch jemand was eleganteres!
For i = 0 To DateDiff("d", CDate("01.01.2021"), CDate(Date))
With Me.ComboBoxDatum
.AddItem CDate(Date - i)
End With
Next i

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige