Füllen von Comboboxen
24.09.2007 14:54:00
Comboboxen
Ich fülle mehrere Comboboxen aus meiner Tabelle2 und schreibe die gewählten Werte in die Tabelle1.
Beim neuen Aufruf der Userform sollen die ausgewählten Werte ( aus der Tabelle1 )wieder in der Box angezeigt werden.
Ich wollte das beim Initialisieren so lösen:
set wks1 = ThisWorkbook.Worksheets("Tabelle1")
set wks2 = ThisWorkbook.Worksheets("Tabelle2")
With wks2
For iCounter = 1 To 4
Me.Controls("cbowahl" & iCounter).List = _
.Range(.Cells(1,1),.Cells(_
.UsedRange.Rows.Count,1)).Value
Next iCounter
End With
'Das funktioniert
With wks1
Me.cbowahl1.Value = wks1.Range("I1").Value
Me.cbowahl2.Value = wks1.Range("I2").Value
Me.cbowahl3.Value = wks1.Range("I3").Value
Me.cbowahl4.Value = wks1.Range("I4").Value
End With
' Hier bekomme ich Laufzeitfehler 91?
Was mache ich falsch?
Danke im voraus
Herbert