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
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
Hallo Case!
Kannst du mir bitte den Code hier online stellen, ich kann die Datei leider nicht öffnen?
LG
Thomas
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.
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.
