ComboBox leeren wenn andere geändert
10.07.2013 16:49:29
Hans
Ich habe 5 Comboboxen die, je nachdem was in der einen Ausgewählt ist, per Case den Inhalt der nächsten bestimmt.
Nun möchte ich dass wenn man die Combobox1 ändert und in der Combobox3 was drinnen steht diese geleert wird.
Ich habe es wie unten versucht.
Nur erhalte ich einen Laufzeitfehler wenn man die Combobox1 ändert.
Hat jemand eine Idee?
Private Sub ComboBox1_Change()
Select Case ComboBox1.Value
Case Is = "Bedingung 1"
ComboBox2.RowSource = Worksheets("Auswahl").Range("A1:A20").Address(External:=True)
Case Is = "Bedingung 2"
ComboBox2.RowSource = Worksheets("Auswahl").Range("B1:B20").Address(External:=True)
End Select
Combobox3.Clear
End Sub
Private Sub ComboBox2_Change()
Select Case ComboBox2.Value
Case Is = "Bedingung 3"
ComboBox3.RowSource = Worksheets("Auswahl").Range("C1:C20").Address(External:=True)
Case Is = "Bedingung 4"
ComboBox3.RowSource = Worksheets("Auswahl").Range("D1:D20").Address(External:=True)
End Select
End Sub
Anzeige