Ich möchte mit ein paar RadioButton eine ComboBox füllen.
Die Daten für die CBox kommen aus der Tabelle "Module" Spalte A und Spalte B.
Dabei sollen die Daten bis zum letzten vorhandenen Eintrag geladen werden, aber nur, wenn der opt_Modul ausgewählt wird.
Später möchte ich bei den anderen RadioButton andere Werte in selbe CBox laden.
Dafür habe ich folgenden Code...
Private Sub opt_Modul_Click()
Dim arrDaten
Dim lngLetzte As Long
'If opt_Modul.Value = True Then
With Worksheets("Module")
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
arrDaten = .Range(.Cells(1, 1), .Cells(lngLetzte, 2))
With cbx_Ausbildung
.ColumnCount = 2
.ColumnWidths = "1cm;10cm"
.List = arrDaten
End With
End With
'End If
End Sub
Leider kommt immer Laufzeitfehler 13.
Selbst wenn ich den Code in das Userform_Initialize Event einfüge, kommt der Fehler.
Wo liegt der Fehler?
Danke im Voraus für eure Hilfe.
Gruß
Peer