Clever-Excel-Forum

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

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

(17.05.2017, 11:39)GMG-CC schrieb: [ -> ]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.

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

M.Wichmann

GMG-CC

M.Wichmann

M.Wichmann