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