DropDown nacheinander befüllen
02.07.2003 11:56:23
Marcus
nun leider doch eine Wand vor der ich stehe:
Eine erste Combobox soll beim Laden des Workbooks aus der Spalte eines anderen Blattes befüllt werden. Nach Auswahl eines Eintrages dieser ComboBox soll dann die nächste befüllt werden. Im folgenden die beiden Subs die ich dazu verwende. Leider klappt nur das Laden der ersten ComboBox. Wo müssen die Subs liegen? Was mache ich falsch?
Vielen Dank für Eure Hilfe!!
Private Sub Workbook_Open()
With Worksheets("Pflege").ComboBox1
.Clear
Worksheets("Fahrzeuge").Activate
Range("A2").Select
Do Until ActiveCell.Value = ""
.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End With
End Sub
Private Sub ComboBox1_Change()
With Worksheets("Pflege").ComboBox2
.Clear
Worksheets("Stammdaten").Activate
Range("H2").Select
Do Until ActiveCell.Value = ""
.AddItem ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Loop
End With
End Sub
Marcus