Hallo zusammen,
ich habe gleich zwei Probleme. Zuerst einmal die Schilcderung meiner Vorgehensweise:
ich habe zwei ComboBoxen hintereinandergeschaltet. Die ComboBox1 ist mit Werten aus einer Spalte befüllt, die ich mittels Rechtsklick auf Eigenschaften, dann ListFillRange zugewiesen habe, z.B. A,B,C,D...G. Als ersten Wert vor dem Wert A in der Spalte habe ich noch geschrieben "Bitte wählen Sie eine Gruppe aus"
Die ComboBox2 soll nach Wahl der Box eins für jede Gruppe ihre eigenen Werte anzeigen. Dies habe ich mit Hilfe:
Private Sub ComboBox1_Change()
Worksheets("Tabelle1").ComboBox2.Clear
If Worksheets("Tabelle1").ComboBox1.Text = "A" Then
Worksheets("Tabelle1").ComboBox2.AddItem ("A1")
Worksheets("Tabelle1").ComboBox2.AddItem ("A2")
Worksheets("Tabelle1").ComboBox2.AddItem ("A3")
End If
usw. hinbekommen.
Nun zu Problem eins:
Immer wenn ich auf das Tabellenblatt klicke ist die erste ComboBox erst einmal ohne "Bitte wählen Sie eine Gruppe aus", dieses erscheint erst mit dem Klick auf die Box mit den anderen Werten A,B,.... Hat es evtl. etw. mit BoundColumn oder ColumnHeads in den Eigenschaften der Box zu tun?
Problem zwei:
Ich hätte gerne in der ComboBox2 vor dem Klick stehen : "Bitte wählen Sie eine Untergruppe aus", die nach dem Klick dann verschwindet und nur A1, A2, A3 anzeigt!
Könnt ihr mir weiterhelfen? Ich danke Euch vielmals im voraus!
Grüße, X-Cel-Learner