ComboBox Werte
14.12.2005 04:19:25
Gnilk
ich habe mal wieder ein Problemchen mit der ComboBox. Es sollen in der ComboBox Werte aus Spalte 4 vom Sheet ("DB") angezeigt werden. Jedoch gibt es eine ganze Reihe von Werten in dieser Spalte. Es sollen nur die Werte in die ComboBox kommen, wenn in Spalte 2 "Paul" steht.
Schaut Euch am Besten mal meinen Code an. Alles was als Fehler angezeigt wurde, habe ich als Kommentar (also mit ') markiert.
Also es erscheinen schon Werte in der ComboBox, aber leider nur 5 an Stelle von 39! Wo ist da die Logik?
Hier mein Code:
Private Sub UserForm_Initialize()
'letEin = Worksheets("DB").Cells(2, 65536).End(xlUp).Row
For j = 2 To letEin 'hier habe ich mal als Test 500 genommen
If Cells(j, 2).FormulaLocal = "Paul" Then
UserForm1.ComboBox1.AddItem (Worksheets("DB").Cells(j, 2).Offset(0, 2))
End If
Next
End Sub
Ich habe auch in den Eigenschaften der UserForm Style = 2 - ... genommen.
Ich bin mit meinem Latein am Ende. Pardon mit meinem VBA.
Vielen Dank im Voraus
Ciao Gnilk