Werte in combobox aus Tabelle eintragen
17.06.2006 14:41:39
Pralinchen
ich hab ein Problem die Werte der Tabelle in eine combobox zu schreiben. Ich kriege immer diesen Laufzeitfehler 1004 wobei ich aber leider keinen Fehler erkennen kann. Ich schreib den Quelltext mal mit rein, vielleicht findet ihr hier ja den Fehler:
Private Sub UserForm_Initialize()
'erstes Element der Tabelle eintragen
spieler_box.AddItem ActiveCell.Offset(1, 0), [0]
'Schleife für die restlichen Felder der combobox
Dim Wiederholung As Integer
For Wiederholung = 2 To ActiveCell.Range("A65535").End(xlUp).Row
With spieler_box
.AddItem ActiveCell.Offset(13, 0) & Wiederholung
End With
Next Wiederholung
End Sub
Vielleicht noch kurz was dazu, der Fehler muss sich auf diesen Abschnitt konzentrieren, da ich alles andere was nichts damit zu tun hat auskommentiert habe...
Ich freu mich auf eure Vorschläge, schonmal im Vorraus großes DANKESCHÖN