wenn ComboBox1, dann AddItem ComboBox2
20.12.2005 06:45:03
Gnilk
ich habe eine UserForm. Wenn ich in ComboBox1 "Paul" ausgewaehlt habe, soll in ComboBox2 als AddItem alles aus der Datenbank[db] Spalte 2 stehen wo Paul vorkommt. War das verstaendlich?
Hier mein bisheriger Code:
Dim Paul as String
Dim erstEin As Long, letEin As Long
With db
erstEin = db.Cells(2, 2).Row
letEin = db.Range("B65536").End(xlUp).Offset(-1, 0).Row
End With
Dim q As Long
' if it's paul
ComboBox2.Clear
If ComboBox1.Value = Paul Then
For q = erstEin To letEin
If db.Cells(2, q).Value = Paul Then
ComboBox2.AddItem db.Cells(4, q)
End If
Next
End If
Vielen Dank im Voraus