ich möchte Datenfelder an die List-Eigenschaft von Comboboxen (im Tabellenblatt) übergeben.
Dachte, dass es so gehen könnte, doch der Laufzeitfehler 381 - Eigenschaft List konnte nicht gesetzt werden. Index des Eigenschaftenfelds ungültig - signalisiert mir was anderes:
Sub test()
Dim arr1, arr2, arr3
arr1 = Range("M6:M" & Cells(Rows.Count, "M").End(xlUp).Row)
arr2 = Range("N6:N" & Cells(Rows.Count, "N").End(xlUp).Row)
arr3 = Range("O6:O" & Cells(Rows.Count, "O").End(xlUp).Row)
With Tabelle1
.ComboBox1.List = arr1
.ComboBox2.List = arr2
.ComboBox3.List = arr3
End With
End Sub
Auch das Transponieren der Datenfelder hat nichts bewirkt.
Da ich nicht mit AddItem oder ListFillRange arbeiten möchte, wäre ich dankbar, wenn es auf diese Art irgendwie ginge und bin für Tipps dankbar.
Grüße Boris