Aus dem Forum habe ich folgenden Tipp erhalten, um eine Zeile waagrecht in eine ListBox zu übertragen:
With usrTest.lstFind
.ColumnCount = 12
If n = 1 Then
.Clear
.AddItem arrFind(1, n)
.List(0, 1) = arrFind(2, n)
.List(0, 2) = arrFind(3, n)
.List(0, 3) = arrFind(4, n)
.List(0, 4) = arrFind(5, n)
.List(0, 5) = arrFind(6, n)
.List(0, 6) = arrFind(7, n)
.List(0, 7) = arrFind(8, n)
.List(0, 8) = arrFind(9, n)
.List(0, 9) = arrFind(10, n)
.List(0, 10) = arrFind(11, n)
.List(0, 11) = arrFind(12, n)
Else
.List = Application.Transpose(arrFind)
End If
End With
Das funktioniert bis List(0, 9) bestens. Ab List(0, 10) generiert es einen Fehler. Woran liegt das, was muss ich ändern?
Vielen Dank und Gruss
Gregor