20.07.2014, 16:45
Hallo Frank,
hier hab ich mal ein Code-Beispiel wie Du in einem Userform von Excel die Optionbuttons für die Einträge in die Textboxen anhand der Auswahl einer Combobox nutzen kannst.
Ich habe dazu eine Userform mit zwei Textboxen, zwei Optionbuttons und einer Combobox erstellt. Die Indizees in den Namen selbiger beginnen alle mit 1.
Hier nun die VBA-Makros. Im Userform_Initialize füllst Du die Combobox mit Werten einer Spalte. Wenn Du dann in der Combobox etwas auswählst, wird das in das Textfeld übernommen, bei dem der OptionButton ausgewählt ist. Beachte aber, dass hier im Makro beim Start des Userform noch kein Optionbutton gewählt ist. Also erst Optionbutton drücken, dann in der Combobox den Inhalt wählen.
hier hab ich mal ein Code-Beispiel wie Du in einem Userform von Excel die Optionbuttons für die Einträge in die Textboxen anhand der Auswahl einer Combobox nutzen kannst.
Ich habe dazu eine Userform mit zwei Textboxen, zwei Optionbuttons und einer Combobox erstellt. Die Indizees in den Namen selbiger beginnen alle mit 1.
Hier nun die VBA-Makros. Im Userform_Initialize füllst Du die Combobox mit Werten einer Spalte. Wenn Du dann in der Combobox etwas auswählst, wird das in das Textfeld übernommen, bei dem der OptionButton ausgewählt ist. Beachte aber, dass hier im Makro beim Start des Userform noch kein Optionbutton gewählt ist. Also erst Optionbutton drücken, dann in der Combobox den Inhalt wählen.
Code:
Private Sub ComboBox1_Change()
'Eintrag in Textboxen entsprechend Optionbutton-Auswahl
Select Case True
Case OptionButton1
TextBox1.Value = ComboBox1.Value
Case OptionButton2
TextBox2.Value = ComboBox1.Value
End Select
End Sub
Private Sub UserForm_Initialize()
'Combobox mit Werten aus Spalte fuellen,
'Werte und letzter Eintrag anhand Spalte A
With Sheets("Tabelle2")
Me.ComboBox1.List = .Range(.Cells(1, 1), .Cells(.Cells(Rows.Count, 1).End(xlUp).Row, 1)).Value
Me.ComboBox1.ListIndex = -1
End With
End Sub