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.