Anzeigen eines Wertes in einer ComboBox
Rob
ich habe eine UserForm mit zwei OptionButtons und einer ComboBox. Mit dem u.a. Code wird je nach Wahl des OptionButton die ComboBox gefüllt. Wenn ich einen der Werte in der ComboBox anklicke bleibt diese nach dem zuklappen aber leer und zeigt den entsprechenden Wert nicht an. Ich habe schon mehrere Sachen mit ComboBox_Click bzw. _Change versucht, aber vergeblich.
Private Sub ComboBox1_DropButtonClick()
Application.ScreenUpdating = False
ComboBox1.Clear
Dim TmpRng As Range
If OptionButton1.Value = True Then
For Each TmpRng In Sheets("Structure").Range("W4:W23").Cells
ComboBox1.AddItem TmpRng.Value
Next
ElseIf OptionButton2.Value = True Then
For Each TmpRng In Sheets("Structure").Range("AK4:AK23").Cells
ComboBox1.AddItem TmpRng.Value
Next
End If
End Sub
Wäre nett, wenn mir jemand helfen könnte.
Rob
Anzeige