Sub MultiArrayInListbox(oDialog as Object, ListboxName as String, ValList(),
iDim as
Integer)
Füllt eine Listbox mit den Werten aus einem zweidimensionalen Arrays auf. Auch hier
wird der
zweite Index mit übergeben (idem).
In der Routine ist ein kleiner Fehler.
In der Zeile:
If ValList(i) <> "" Then
wird immer nur die erste Dimension geprüft. Wenn diese einen Wert hat, wird aber der
eigentliche
Wert (i,idim-1) übergeben.
Korrekt muß die Zeile also
If ValList(i,iDim-1) <> "" Then
lauten.