Office: (Office 2016) ListBox generiert selbstsändig Leerzeilen

Hallo zusammen,

ich habe folgendes, dringendes Problem:
Ich habe eine mehrspaltige ListBox erstellt die mit Daten aus einer Tabelle gefüttert wird.
Dabei hab ich das ganze so programmiert dass die Daten immer nur bis zur letzten Zeile der Quell-Tabelle einlesen werden, da die Länge dieser Tabelle sich verändern kann.

Aus irgendeinem Grund funktioniert das ganz nur beim ersten mal.
Ich erstelle die ListBox, führe das Script aus und die ListBox wird exakt bis zur letzten Zeile gefüllt.

Sobald ich das Script aber erneut ausführe generiert die ListBox eine große Zahl an Leerzeilen, das heißt mit der hoch/runter Scrollbar an der Seite kann man nicht mehr nur bis zum Ende der Einträge gelangen sondern es sind hunderte von Leerzeilen sichtbar, was für die Anwender ziemlich doof ist. Ich kann mir das auch nicht erklären.

Lösche ich die ListBox und erstelle eine neue, so funktioniert das ganze wieder beim ersten mal, sobald ich im Script einmal was ändere, sind die ganzen Leerzeilen wieder da.

Die Variable "lngZeilemax" funktioniert und gibt auch immer den richtigen Wert der letzten Zeile in der Tabelle aus, das habe ich überprüft.

hier der Code:


Sub Userform_initialize()

Dim lngZeile As Long
Dim lngZeilemax As Long
Dim lngz As Long

With Sheets("DatenQuelle")

Me.LBtest.ColumnCount = 6
Me.LBtest.ColumnWidths = "50;50;25;50;150;50"

lngZeilemax = .Range("A" & .Rows.Count).End(xlUp).Row
For lngZeile = 2 To lngZeilemax

Me.LBtest.AddItem .Range("A" & lngZeile).Value
Me.LBtest.Column(0, lngz) = .Range("A" & lngZeile).Value
Me.LBtest.Column(1, lngz) = .Range("E" & lngZeile).Value
Me.LBtest.Column(2, lngz) = .Range("M" & lngZeile).Value
Me.LBtest.Column(3, lngz) = .Range("D" & lngZeile).Value
Me.LBtest.Column(4, lngz) = .Range("G" & lngZeile).Value
Me.LBtest.Column(5, lngz) = .Range("B" & lngZeile).Value

lngz = lngz + 1
Next lngZeile
Me.LBtest.ListIndex = 0

End With

End Sub

 

nur wenige schauen auf Deinen Rechner und sehen die Datei.
Ich möchte gerne den Fehler im Original sehen.

Ich baue keine Datei nach. Die Zeit hat schon jemand investiert.

Ein Nachbau sieht meist anders aus als das Original. <B>Darum sollte das Original verlinkt werden.</b>

Wenn du an Stelle einer Demomappe deine Originalmappe hochladen willst, diese aber sensible Daten enthält, kannst du diese Daten
Hinweis - Anonymisierung und Pseudonymisierung von Beispielmappen - MS-Office-Forum
änderrn.
Der Name einer hochgeladenen Mappe wird im Beitrag automatisch angezeigt, sodass es bei Verwendung von aussagekräftigen Namen leichter fällt, sie später im Ablageordner wiederzufinden und sie gedanklich einem bestimmten Thema zuzuordnen. Namen wie Muster*, Test*, Mappe*, Beispiel*, Fehler*, Kalender* usw. sind so allgemein, dass eine Zuordnung zu einem Thema unmöglich gemacht wird.
Es sollte ein aussagekräftiger Name sein.

Benutze hier im Forum die Funktion zum hochladen. Falls Du die nicht benutzen möchtest beachte, von unsicheren Servern wie z.B. www.file-upload.net lade ich keine Datei runter. (lt. Einschätzung meines Virenprogramms)3

Bilder lade ich mir nicht runter, da Excel damit nichts anfangen kann.

Bilder statt Datei | Excel ist sexy!

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.

Das ist nur meine Meinung zu dem Thema.
Beachte
Regeln
Punkte 2.3 zu Crossposting.

Ich bin dann raus.

 

Hallo,
ich habe mal die Datei und einen Screenshot angehängt auf dem man gut erkennt wie groß das Problem mit den Leerzeilen ist.
Die Daten der Quell Tabelle sind natürlich durch beispielnummern etc. ersetzt worden.

In der Datei habe ich statt einer UserForm die listBox direkt auf einem Tabellenblatt erstellt wie es hinterher sein soll, das Problem ist aber identisch.

vielen Dank falls mir jemand helfen kann

 

diese Zeile einfügen :Sheets("ListBox").LBtest.Clear
vor dieser Zeile : For lngZeile = 2 To lngZeilemax

 

Super, vielen Dank das hat funktioniert!

 

Nochmal zu dem Thema:

Die ListBox wird jetzt perfekt erstellt.
jetzt möchte ich mithilfe einer textBox einen Suchfilter erstellen, sprich wenn man ein Wort eintippt soll die gesamte Listbox mit allen Spalten danach durchsucht werden und nur die Zeilen ausgeben werden die das Wort enthalten.

Hat da jemand eine Idee, habe zwar bereits mehrere Foren durchforstet, aber die Versionen die man dort finden konnte funktionieren bei mir irgendwie nicht. Vielleicht liegt es daran dass ich .Additem Variante benutze?

 

deine Datei mit Filter eingebaut:

Gruß Uwe