Bedingte Combobox befüllung
24.11.2020 14:43:09
Jonathan
ich bin totaler VBA Anfänger. Ich möchte Ein Formular erstellen. Als erstes soll der Arbeitsbereich ausgewählt werden. Abhängig von ausgewählten Bereich mittels Opttionsbutton soll denn ein Combobox mit einer Tabelle gefüllt werden.
Ich wäre so vorgegangen, dass ich eine Variable definiere, die bei bei angeklickten Button einen Wert bekommt.
Private Sub OptionButton_Puls_HP_Click()
Dim AP As String
Worksheets("Listen-Werte").Activate
If OptionButton_Puls_HP.Value = True Then AP = "Puls_HP"
End Sub
Dann wollte ich im Userform Initialize
Ein select case machen in dem ich dann die Variable abfrage. Aber ich habe das gefühl, dass die abfrage der Variable wohl nicht im userform stattfinden sollte. Auf jedenfall funktioniert es nicht.
Private Sub UserForm_Initialize()
Select Case AP
Case "Puls_HP" then userform1.combobox_AP.rowsource = "Tabelle_Arbeitsschritt_EF_PULS"
End Select
End Sub
Ich hoffe, dass meine Problemstellung klar ist, und freue mich auf Hilfe