Office: Listbox befüllen

Guten Tag,
ich versuche mir grade VBA beizubringen und habe im Zuge dessen ein wenig mit der Listbox herum experimentiert.
Ich wollte sie über einen Button mit festgelegten Werten füllen.

Das habe ich erst einmal "manuell" so gelöst

Code:

Anschließend wollte ich das ganze etwas eleganter über eine Schleife lösen.

Code:

Dabei ist mir etwas aufgefallen, bei dem ich mir nicht sicher bin ob ich "unsauber" Programmiert habe.
Ich habe die ListBox genau so groß gezogen, das alle Werte angezeigt werden können.
Wenn ich die ListBox über den "manuellen" Weg fülle, erscheint keine Bildlaufleiste rechts am Rand, die ListBox ist komplett gefüllt und alle Werte sind lesbar.

Wenn ich das ganze nun über die Schleife löse, sind nach wie vor alle Werte vorhanden und lesbar, jedoch ist eine Bildlaufleiste erschienen, die einen schon relativ kleinen Regler hat.
Als ob die Liste mit lauter leerer Zeilen befüllt worden wäre.

Gruß
Timo

:)

 

Hochgeladene Bilder können zwar als solche in Excel importiert werden, sind jedoch bei der Lösung von Problemen nicht sehr hilfreich, da man die eigentlichen Daten nicht ohne große und zeitraubende Umwege direkt in die Tabelle übertragen kann. Eine hochgeladene Arbeitsmappe bzw. ein geposteter Tabellenausschnitt dagegen, erhöhen die Wahrscheinlichkeit, dass Du eine Lösung für Dein Problem erhältst.
Erstelle folglich bitte eine Demomappe, aus der deine Aufgabenstellung klar erkennbar ist und lade diese Mappe mit einem anonymisieren bzw. pseudonymisieren.
Falls Du den Download des Forums nicht benutzen möchtest beachte bitte: von unsicheren Servern file-upload lade ich keine Datei herunter (lt. Einschätzung meines Virenprogramms).


im ersten Code sind es 5 Zeile mit 6 Spalten im zweiten 25 Zeilen ohne Spalten, würde ich mal vermuten.

 

Danke für die Info, ich habe die Arbeitsmappe nun hochgeladen,
Der Code wird in beiden Fällen mit 6 Spalten angezeigt.

Die linke TextBox kann ignoriert werden.
Der Button "Manuell" startet den langen Code und der Button "Schleife" startet die Schleife.

Gruß
Timo

 

du schreibst mit der Schleife 36 Zeilen in der Listbox von der nur 5 gefüllt werden.
Da für jede Spalte Additem

 

Besten Dank, die Änderungen funktionieren.

Der Vollständigkeit halber, hier noch der korrigierte Code
Code:

Gruß
Timo