Listbox-Abfrage aufgrund von "Name"

[OoDex]

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"?

[Werner.M]

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

[OoDex]

Danke! Genau noch sowas habe ich gesucht gehabt :D