Aufüllen von ComboBox
23.09.2005 22:35:55
ComboBox
Ich komme nicht mehr weiter. Versuche 4 ComboBox zu füllen, bei der die 3. und 4. Box beim Ändern der 2. und 3. Box je nach Auswahl eine bestimmte Dropdown-Auswahl zeigen soll. Die neue Auswahl erfolgt nachdem die UserForm angezeigt ist und alle 4 Boxen je mit einer Standart-Auswahl dargestellt werden. Die Dropdown-Auswahl der 3. abhänhig ist von der 2. und die 4 Box abhängig ist von der 3. Box. Ich versuchte es nach dem x-ten Mal wie folgt, erhalte aber beim Ändern einen Laufzeitfehler beim Befehl .clear.
Kann mir jemand weiterhelfen?
Vielen Dank
Gregor
Private Sub UserForm_Initialize()
'--- füllt Auswahllisten
Call Alle_Füllen
Sub Alle_Füllen()
Me.cboJahrAlle.RowSource = "Jahr"
Me.cboJahrAlle.ListIndex = "0"
Me.cboRLIKAlle.RowSource = "P_RV_IK_alle"
Me.cboRLIKAlle.ListIndex = "0"
End Sub
Private Sub cboRLIKAlle_Change()
RLIK = cboRLIKAlle.Value
Select Case RLIK
Case "alle_P_RV_IK"
With Me.cboIPMFilialeAlle
.Clear
.RowSource = "alle_Filialen"
.ListIndex = "0"
End With
Case "Coquoz"
With Me.cboIPMFilialeAlle
.Clear
.RowSource = "Coquoz"
.ListIndex = "0"
End With
Case "Jacxsens"
With Me.cboIPMFilialeAlle
.Clear
.RowSource = "Jacxsens"
.ListIndex = "0"
End With
End Select
End Sub
Private Sub cboLKMBezirkAlle_Change()
Bezirk = cboIPMFilialeAlle.Value
Select Case Bezirk
Case "alle_Filialen"
With Me.cboLKMBezirkAlle
.Clear
.RowSource = "alle_Filialen"
.ListIndex = "0"
End With
Case "LZ"
With Me.cboLKMBezirkAlle
.Clear
.RowSource = "Zentral"
.ListIndex = "0"
End With
Case "LS"
With Me.cboLKMBezirkAlle
.Clear
.RowSource = "West"
.ListIndex = "0"
End With
End Select
End Sub
Anzeige