|
Hallo Leute,
ich brauch Hilfe beim dynamischen befüllen einer Listbox. Ich hab folgenden Code und folgende Ausgangslage
QSpalten(1) = 2012/01, QSpalten(2) = 2012/02, QSpalten(3) = 2012/03
QZeilen(1) = Maschine1, QZeilen(2) = Maschine 2, QZeilen(3) = Maschine 3
diese Werte werden auch wunderbar ausgegeben. der k Wert ist manchmal "" und manchmal gefüllt. Funktioniert auch!
For i = 1 To UBound(QSpalten)
For j = 1 To UBound(Qzeilen)
k = QMatrix.Get_text(QSpalten(i).text, Qzeilen(j).text)
If k = "" Then
Dim MyArray()
MyArray(0, i) = QSpalten(i)
MyArray(1, j) = Qzeilen(j)
End If
Next j
Next i
UF_Manuell.LB_MDaten.List() = MyArray()
wenn ich dim MyArray() schreibe bekomme ich Laufzeitfehler 9(Index außerhalb gültiger Bereich), wenn ich dim MyArray (10,10) schreibe bekomme ich Laufzeitfehelr 438. Könnt ihr mir sagen warum dass so nicht klappt?
Gruß Max
P.S. wenn ihr eine andere Lösung habt nehme ich die auch gerne ich benötige eine Listbox in der QSpalten(1) und QZeilen(1) immer nebeneinander stehen
|