userform.listbox.column - zeile zu viel
02.12.2004 19:04:42
Tom
hab folgendes Problem:
will eine userform.listbox mit nem 2d-array via .column füllen, am ende hab ich die gewünschten einträge aber zusätzlich noch ne leere zeile hintendran. wie krieg ich die weg? vielleicht seht ihrs ja bei bloßem drüberschauen.
...
Dim a As Collection
Set a = oXMLSelCh.entries("chart", "id")
Dim i As Integer
Dim aSelEntries() As Variant
ReDim aSelEntries(2, a.Count)
For i = 1 To a.Count
oXMLAvailCh.entity("chart") = a.Item(i)
aSelEntries(1, i - 1) = oXMLAvailCh.entry("name")
aSelEntries(0, i - 1) = oXMLAvailCh.entry("", "id")
Next i
With Dialog_Chartwahl.listbox_SelectedCharts
.ColumnCount = 2
.Column = aSelEntries()
.ColumnWidths = "15;;"
.BoundColumn = 1
.TextColumn = 2
End With
...
Besten Dank im Voraus
Gruß,
Tom