VBA-Code f. Combobox->Fehler:Zugriff verweigert ?
k
...habe eine Userform mit einer Combobox und diese zeigt alle Kunden aus einer Tabelle an.
Nun möchte ich gern einen Filter darauf anlegen - anhand der Auswahl des Obtionsbuttons.
Dafür habe ich folgenden Code verwenden wollen:
' Wenn Optionsbutton2 gewählt, dann fülle die Combobox CB0 nur mit Kundendes des aktiven ADMs
Private Sub OBA2_Change()
Dim iZeile As Long
' Prozedur für CB0-Change stoppen
ChangeBloc = True
' Prüfung ob AUswahl getroffen für Filterung auf ADM
If OBA2.Value = True Then
' gehe alle Zeilen in dem Datenblatt KSE von 2 bis zum letzen Eintrag durch
For iZeile = 2 To Worksheets("KSE").Cells(Rows.Count, 1).End(xlUp).Row
' wenn der Eintrag in KSE Spalte 5 (E = ADM-Name) identisch mit dem User der Datei,
If Worksheets("KSE").Cells(iZeile, 5) = Worksheets("Basic").Cells(3, 2) Then
' dann übernehme den Wert aus Spalte 11 (Kundennamen) für die Combobox
CB0.AddItem Cells(iZeile, 11) ' Woran liegt es - wie kann ich es sonst lösen ?
Gruß und Danke !
Kay