Die letzte x Jahre in ComboBox
22.09.2016 17:32:58
Henner
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
Anzeige