Supportnet / Forum / Tabellenkalkulation
Listbox ausfüllen:Habe verschiedene Ergebnisse
Frage
Ich habe eine ListBox, die ich mit den Zellinhalten eines anderen Arbeitsblattes fülle.
Bei Programmstart wird die ListBox per Sub Workbook_Open() in Arbeitsmappe gefüllt, danach immer wieder beim Rückkehr auf das erste Arbeitsblatt per Sub Worksheet_Activate() in Tabelle1.
In beiden Subs steht folgender Code:
Dim i As Single
Worksheets("Test").ListBox1.Clear
For i = 2 To 31
If Worksheets("Daten").Cells(i, 2).Text <> "" Then
Worksheets("Test").ListBox1.AddItem Worksheets("Daten").Cells(i, 2).Text
End If
Next
Per Sub Workbook_Open() ist das Ergebnis wie gedacht, per Sub Worksheet_Activate() ist das Ergebnis anders:
Das letzte zugefügte Item wird nicht angezeigt, obwohl es eingelesen wurde - der Scrollbalken lässt sich nicht ganz nach unten schieben!