Bedingter Inhalt ComboBoxen
03.03.2008 20:52:00
Ulf
ich habe folgendes Problem:
Ich habe zwei ComboBoxen (Combo1, Combo2) in ein Tabellenblatt eingefügt. Über die Eigenschaften "ListFillRange" habe ich beiden ComboBoxen den entsprechenden Inhalt zugewiesen. Nun möchte ich jedoch erreichen, dass der Inhalt der Combo2 (Der Inhalt der Combo2 ist auf dem Tabellenblatt "Projekttabelle") vom gewählten Case der Combo1 ist.
Private Sub Combo1_Change()
Select Case Combo1.ListIndex
Case 0:
Combo2.ListFillRange = Projekttabelle!B4: B5
Case 1:
Combo2.ListFillRange = Projekttabelle!B6: B10
End Select
End Sub
Sobald ich auf den Button "Fortsetzen" klicke, um die Prozedur zu starten, erscheint die Meldung "Sub oder Function nicht definiert".
Kann mir jemand von euch weiterhelfen...!?
Vielen Dank im Voraus.
Grüße
Ulf