ich habe eine Userform programmiert, die mittels Code mit Daten in 3 Comboboxen versorgt wird.
Die Tabelle hat eine Überschrift, dann kommen die Daten, die in der Combobox angezeigt werden sollen.
Nun bekomme ich einen Laufzeitfehler, wenn ich nur eine Zeile in der Tabelle habe (eigentlich sollte eine Zeile ja ausreichen um diese in der Combobox anzuzeigen....):
---------------------------
Microsoft Visual Basic for Applications
---------------------------
Laufzeitfehler '381':
Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftenfelds ungültig.
---------------------------
OK Hilfe
---------------------------
Mein Code sieht wie folgt aus:
Private Sub UserForm_Initialize()
Dim arrDaten
Dim lngLetzte As Long
With Worksheets("Daten")
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
arrDaten = (.Range(.Cells(2, 1), .Cells(lngLetzte, 4)))
ComboBox1.List = arrDaten
End With
With Worksheets("Personen")
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
arrDaten = (.Range(.Cells(2, 16), .Cells(lngLetzte, 16)))
ComboBox2.List = arrDaten
End With
With Worksheets("Auftrag")
lngLetzte = .Cells(Rows.Count, 1).End(xlUp).Row
arrDaten = (.Range(.Cells(2, 12), .Cells(lngLetzte, 12)))
ComboBox3.List = arrDaten
End With
End Sub
Ich finde den Fehler einfach nicht... :(
Danke für Eure Hilfe!!
LG
Marc