listboxeinträge
09.11.2007 11:13:02
marken
ich habe eine listbox (lbx_BuLand) auf einer userform, in der ich alle bundesländer aufgelistet habe.
abhängig vom ausgewählten bundesland soll eine zweite listbox auf derselben uf erscheinen, in der die zugehörigen landkreise aufgelistet sind. Die datenquelle der listboxeinträge sind jeweils auf verschiedenen blättern.
so sieht der bisherige code aus
Private Sub lbx_BuLand_Change()
a = lbx_BuLand.ListIndex
wsname = Worksheets(a + 2).Name
Application.ScreenUpdating = False
Select Case a
Case Is = 7
Worksheets(a + 2).Select
lbx_Kreis.RowSource = "G11:G52"
End Select
Application.ScreenUpdating = True
lbx_Kreis.Visible = True
End Sub
1. die application.screen.. anweisung funkt nicht...die select anweisung wird ausgeführt, das blatt (a) wird angezeigt
2. kann ich auf die select anweisung verzichten ? wie kann muss der rowsource-befehl dann lauten ?
vielen dank & gruss
marken
Anzeige