ComboBox wird nicht ausgeführt
04.11.2013 10:41:45
Maren
als Anfängerin versuch ich mich gerade an einer 2spaltigen Combobox. Im Nedeffekt sollen Spalte 1 und 2 ausgegeben werden. Aber wen ich mein Makro ausführen möchte, kommt eine Fehlermeldung: "Laufzeitfehler 1004, Anwendungs-oder Objektdefinierter Fehler". Meine Excel-Blatt heißt Materialien.
Sehr vielen Dank für eure Hilfe
Private Sub UserForm_Initialize()
Dim wsCombo As Worksheet
Dim LoLetzte As Long
Dim i As Integer
'erst alle Werte löschen bzw. Comboboxen füllen
MComboBox.Style = fmStyleDropDownList
MComboBox.Clear
LoLetzte = Worksheets("Materialien").Cells(Rows.Count, 2).End(x1Up).Row
For i = 2 To LoLetzte
With MComboBox
.AddItem Worksheets("Materialien").Cells(i, 1)
.ColumnCount = 2
.List(.ListCount - 1, 0) = Materialien.Cells(i, 1)
.List(.ListCount - 1, 1) = Materialien.Cells(i, 2)
End With
Next i
End Sub
Anzeige