Guten Morgen liebe VBA-Freunde
Ich stehe wider mal auf Kriegsfuss mit einer Listbox!
Mein Problem:
In der Sub Userform Initialized fülle ich eine Listbox folgendermassen ab:
Do While Trim(CStr(Tabelle4.Cells(blZei, lSpalte).Value)) ""
ListBox8.AddItem , 0
ListBox8.List(0, 0) = Tabelle4.Cells(blZei, 1).Value 'Schl Nr.:
ListBox8.List(0, 1) = Tabelle4.Cells(blZei, 2).Value 'Richtung
ListBox8.List(0, 2) = Tabelle4.Cells(blZei, 18).Text 'Zeit
ListBox8.List(0, 3) = Tabelle4.Cells(blZei, 5).Value 'Schiffsname
ListBox8.List(0, 4) = Tabelle4.Cells(blZei, 21).Text 'Ausfahrtszeit
ListBox8.List(0, 5) = Tabelle4.Cells(blZei, 19).Value 'Kürzel
Loop
Die neuen Einträge werden also OBERGHALB der alten in die Listbox eingefühgt.
Im laufe des Tages kommen nach und nach weitere Einträge dazu die auch alle wie gewollt oben angefühgt werden.Das funktioniert alles auch Prima.
Jetz erreiche ich aber irgend wann den Punkt,an dem die Listbox durch die Anzahl der enthaltenen Einträge eine Scrollbar bekommt. Die stellt sich aber automatisch so das der älteste bzw. die nr.1 der Einträge sichtbar ist ( auch wenn ich sie in Umgekehrter rheinefolge abfülle). Ich möchte aber das die Scrollbar auf jedenfall nach dem neu laden der Userform oben steht, also den neuesten Eintrag anzeigt.
Wie muss ich da ran gehen?
Geht das ev. mit einer setFocus oder selectetItem Funktion?
Und wenn ja wie erreiche ich das selbst wenn ich den obersten Eintrag selectiere das ich die selection wider aufheben kann ohne die Scrollbar zu verschieben?
Wer hat da eine Idee?
Griessli
Chatzebuseli