Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1512to1516
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

Die letzte x Jahre in ComboBox

Die letzte x Jahre in ComboBox
22.09.2016 15:32:58
Henner
Hallo zusammen,
ich möchte gerne die letzten 30 Jahre in eine ComboBox bringen.
Gibt es da eine schönere Schleifenlösung? Wenn ja, wie sieht sie aus?
Vielen Dank und Gruss, Henner

With Me.ComboBox1
.AddItem Format(Date, "YYYY")
.AddItem Format(Date, "YYYY") - 1
.AddItem Format(Date, "YYYY") - 2
.AddItem Format(Date, "YYYY") - 3
.AddItem Format(Date, "YYYY") - 4
.AddItem Format(Date, "YYYY") - 5
.AddItem Format(Date, "YYYY") - 6
.AddItem Format(Date, "YYYY") - 7
.AddItem Format(Date, "YYYY") - 8
.AddItem Format(Date, "YYYY") - 9
.AddItem Format(Date, "YYYY") - 10
.AddItem Format(Date, "YYYY") - 11
.AddItem Format(Date, "YYYY") - 12
.AddItem Format(Date, "YYYY") - 13
.AddItem Format(Date, "YYYY") - 14
.AddItem Format(Date, "YYYY") - 15
.AddItem Format(Date, "YYYY") - 16
.AddItem Format(Date, "YYYY") - 17
.AddItem Format(Date, "YYYY") - 18
.AddItem Format(Date, "YYYY") - 19
.AddItem Format(Date, "YYYY") - 20
.AddItem Format(Date, "YYYY") - 21
.AddItem Format(Date, "YYYY") - 22
.AddItem Format(Date, "YYYY") - 23
.AddItem Format(Date, "YYYY") - 24
.AddItem Format(Date, "YYYY") - 25
.AddItem Format(Date, "YYYY") - 26
.AddItem Format(Date, "YYYY") - 27
.AddItem Format(Date, "YYYY") - 28
.AddItem Format(Date, "YYYY") - 29
.AddItem Format(Date, "YYYY") - 30
End With

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Die letzte x Jahre in ComboBox
22.09.2016 15:36:33
UweD
Hallo
ungeprüft

With Me.ComboBox1
For i = 0 To 30
.AddItem Format(Date, "YYYY") - i
Next
End With
Gruß UweD
AW: Die letzte x Jahre in ComboBox (ERL)
22.09.2016 17:08:28
Henner
Hi Uwe,
vielen Dank! Gruss Henner
Danke für die Rückmeldung owT
23.09.2016 08:07:54
UweD
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige