Clever-Excel-Forum

Hallo zusammen,

Ich habe ein (öffnendes) Menü und lasse je nach Auswahl in einer Listbox verschiedene Listen in einer 2. Listbox anzeigen.

Bisher mache ich das so:

Code:
If (LBX_Standorte.Selected(0) = True) Then

        LBX_Abteilung.RowSource = "Ausbildungsabteilungen"

    ElseIf (LBX_Standorte.Selected(1) = True) Then

        LBX_Abteilung.RowSource = "ULM_Abteilungen"

    ElseIf (LBX_Standorte.Selected(2) = True) Then

        LBX_Abteilung.RowSource = "GTN1_Abteilungen"

    ElseIf (LBX_Standorte.Selected(3) = True) Then

        LBX_Abteilung.RowSource = "GTN2_Abteilungen"

    ElseIf (LBX_Standorte.Selected(4) = True) Then

        LBX_Abteilung.RowSource = "FLD_Abteilungen"

    ElseIf (LBX_Standorte.Selected(5) = True) Then

        LBX_Abteilung.RowSource = "LGU_Abteilungen"

    ElseIf (LBX_Standorte.Selected(6) = True) Then

        LBX_Abteilung.RowSource = "STR_Abteilungen"

    ElseIf (LBX_Standorte.Selected(7) = True) Then

        LBX_Abteilung.RowSource = "TAM_Abteilungen"

    ElseIf (LBX_Standorte.Selected(8) = True) Then

        LBX_Abteilung.RowSource = "VIS_Abteilungen"

    End If

Das Problem hierbei ist, dass sich die Anordnung ändern kann, kann ich irgendwie nach dem Namen des Objekts in der Listbox prüfen? Also statt "An Index 0" "Wenn Name = xxx"?

Hallo,

dann prüf doch den Value deiner Listbox, z.B. nach dem Muster:

Code:
Select Case Me.LBX_Standorte.Value

    Case "Keine_Ahnung_wie_der_Eintrag_lautet"

       Me.LBX_Abteilung.RowSource = "Ausbildungsabteilungen"

    Case "Keine_Ahnung_wie_ein_weiterer_Eintrag_lautet"

        Me.LBX_Abteilung.RowSource = "ULM_Abteilungen"

    Case Else

        'nix machen

End Select

Gruß Werner

Danke! Genau noch sowas habe ich gesucht gehabt :D

OoDex

Werner.M

OoDex