Combobox durch Optionsfelder ersetzen

[M.Wichmann]

Hallo,

ich habe in einer UF eine Combobox die ab E3 die Zeile 3 "einliest"

der code:

Code:

Private Sub LBArt_Change()
TBAnz.Value = ""

If LBDat.Value <> "" Then
   For aBas = 1 To UBound(arrBas(), 1)
       If CStr(arrBas(aBas, 1)) = LBDat.Value Then
           For bBas = 1 To UBound(arrBas(), 2)
               If CStr(arrBas(1, bBas)) = CStr(LBArt.Value) Then
                   TBAnz.Value = arrBas(aBas, bBas)
                   Exit For
               End If
           Next bBas
       End If
           If TBAnz.Value <> "" Then Exit For
   Next aBas
End If

Diese Combobox möchte durch ein 5 Optionsbutton E3 bis I3 ersetzen

[GMG-CC]

Moin,
und was hindert dich daran?
Ich habe in deinem Beitrag keine Frage erkannt, nur eine Willenserklärung.

[M.Wichmann]

Moin,
und was hindert dich daran?
Ich habe in deinem Beitrag keine Frage erkannt, nur eine Willenserklärung.

Hallo, nur weil ich nirgends konkret eine Frage formuliert habe??

Naja gut, obwohl hier einige andere Beiträge laufen wo das auch nicht ist.

Um die Combobox durch Optionsfelder zu ersetzen die dann das gleiche bewirken fehlt mir das VBA wissen.
Ich habe zwar in letzter Zeit hier sehr viel gelernt. Und auch schon die UF auf das Dokument angepasst und etwas umgeschrieben. Aber bei dem wechsle hört es dann auf bei mir.

[M.Wichmann]

Hat sich erst einmal erledigt!! Hab die Combo durch Listbox ersetzt.