Listbox
25.07.2005 15:11:30
KViertel
folgendes Problem:
mit der folgenden Routine wird eine Listbox gefüllt.
Sub listbox_füllen()
Application.ScreenUpdating = True
'Waldortdatei auswählen
WoFA_all.wo_abtschl.Select
'Liste löschen
WoFA_all.ws_main.ListBox1.Clear
'Erster Eintrag in der Liste = alle Waldorte
WoFA_all.ws_main.ListBox1.AddItem "alle Waldorte"
'alle Abteilungsschlüssel in die Liste einfügen
For Each i In WoFA_all.wo_abtschl
WoFA_all.ws_main.ListBox1.AddItem i.Value
Next
'test = WoFA_all.ws_main.ListBox1.ListCount
If WoFA_all.ws_main.ListBox1.ListCount > 0 Then
ws_main.CommandButton2.Enabled = True
End If
End Sub
Es werden z.B. "alle Waldorte" + 670 Werte eingelesen.
ListCount zeigt 671 Sätze an.
Soweit ist alles in Ordnung.
Im Listenfeld wird die Liste mit Ausnahme des letzten Satzes angezeigt.
Es fehlt also der letzte Satz, obwohl die Anzahl der Sätze von 0 - 670, also 671 Sätze in der Variablen Test angeziegt werden.
Kann mir jemand sagen, waran das liegt?
MfG. Klaus