Jahre in Comobox.List anzeigen

[dertommy]

Hallo!

Ich möchte in einer Combobox.List Jahreszahlen beginnen mit dem Jahr 2007 bis zum aktuellen (2023) angezeigt bekommen.
Auf jeden Fall soll das aktuelle Jahr ganz oben und das älteste Jahr (2007) ganz unten angezeigt werden.
Kann mir da bitte jemand helfen?

LG
Thomas

[Case]

Moin,  

eine Möglichkeit:

Code:

Option Explicit
Private Sub UserForm_Activate()
    Dim lngIndex As Long
    For lngIndex = Year(Now) To 2007 Step -1
        ComboBox1.AddItem lngIndex
    Next lngIndex
    ComboBox1.ListIndex = 0
End Sub

[dertommy]

Hallo!

Danke sehr für deine rasche Hilfe.
Ich habe nun deinen Code bei mir integriert, habe aber nun folgendes Problem.

Der Befehl " MsgBox ComboBox2.Value" wird nun zweimal aufgerufen. Einmal beim Öffnen der Userform und dann nochmal, wenn ich etwas in der Liste auswähle.
Ich hätte es nur gerne, wenn ich etwas aus der Liste auswähle und nicht schon beim Öffnen der Userform.
Anbei nun mein Code:

Code:

Private Sub UserForm_Activate()

Dim lngIndex As Long
    For lngIndex = Year(Now) To 2007 Step -1
        ComboBox2.AddItem lngIndex
    Next lngIndex
    ComboBox2.ListIndex = 0
End Sub

Private Sub ComboBox1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        Call SetComboBoxHook(ComboBox1)
End Sub

Private Sub ComboBox1_LostFocus()
        Call RemoveComboBoxHook
End Sub
   
Private Sub ComboBox2_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal x As Single, ByVal Y As Single)
        Call SetComboBoxHook(ComboBox2)
End Sub

Private Sub ComboBox2_LostFocus()
        Call RemoveComboBoxHook
End Sub

Private Sub ComboBox2_Change()

MsgBox ComboBox2.Value

End Sub

Ich hoffe, dass mir noch jemand helfen kann.

LG

[Case]

Moin,  

dann so:

  UF_UserForm_ComboBox_Jahr_befuellen_von_2007_bis_Jahr_Heute_CEF.xlsb (Größe: 16,12 KB / Downloads: 5)

[snb]

Code:

Private Sub UserForm_Initialize()
   ComboBox1.List=[index(row(2007:2023),)]
End Sub

[dertommy]

Hallo Case!

Kannst du mir bitte den Code hier online stellen, ich kann die Datei leider nicht öffnen?

LG
Thomas

[dertommy]

Hallo snb!

Danke für den Code, welcher auch funktioniert.
Nur will ich nicht fix das Jahr 2023 drinnen stehen haben, sondern das aktuelle Jahr. Damit dann nächstes Jahr automatisch 2024 genommen wird. 2007 kann fix drinnen stehen.

[Case]

Moin,  

jup:  

Code:

Option Explicit
Dim blnTMP As Boolean
Private Sub UserForm_Activate()
    Dim lngIndex As Long
    blnTMP = False
    For lngIndex = Year(Now) To 2007 Step -1
        ComboBox1.AddItem lngIndex
    Next lngIndex
    ComboBox1.ListIndex = 0
    blnTMP = True
End Sub
Private Sub ComboBox1_Change()
    If blnTMP Then
        MsgBox "Change..."
    End If
End Sub

[snb]

@Case

Nicht

Code:

Private Sub UserForm_Activate()

Doch

Code:

Private Sub UserForm_Initialize()

[Case]

Moin,  

@ snb

Ik neem altijd de "Activate event ".  Eigenlijk hangt het altijd af van de manier van werken. Ik heb vaak mensen gezien die met de "Initialize event" werken en zich dan realiseren dat het maar één keer werkt als ze de UserForm starten. Ik gebruik het alleen voor grote eenmalige acties. Ik negeer het voor kleine loops.