Office: (Office 365) Suchfunktion in Listbox

Hallo zusammen,
bin ein Neuling was VBA angeht und habe folgendes Problem.
Über Double Click öffnet sich eine neue Userform und die Daten der Zeile füllen Textboxen aus.
Das funktioniert alles. Habe auch eine Suchfunktion für die Listbox programmiert. Sobald ich die Suchfunktion anwende werden die Zeilen der Tabelle in die Userform übertragen und nicht aus der Listbox. Die Listbox aktualisiert sich nicht sobald ich über die Suchfunktion suche.
Komme absolut nicht weiter und bin für jede Hilfe sehr Dankbar!
Gruß CHristian

 

Hi Christian,

meinst du damit, dass die Änderungen, die du mit dem Button "Buchen" ins Tabellenblatt überträgst, nicht in der ListBox angezeigt werden, wenn das UserForm erneut gestartet wird? Dann must du das Füllen der ListBox nicht ins Initialize-Ereignis schreiben sondern ins Activate-Ereignis.

---

 

Hallo Beverly,
das funktionierte auch nicht und klappt jetzt, danke für die Antwort!
Listbox füllen funktioniert
Suche in Listbox funktioniert
Sobald die Suche die Listbox komprimiert und per Doppel Klick eine Zeile der Listbox angeklickt wird,
wird nicht die angeklickte Zeile in der durch Doppel Klick aufgerufenen Userform übernommen

 

Hi Christian,

Der einfachste Weg um die richtige Zeile zu finden: trage beim Füllen der ListBox die laufende Zeile in eine zusätzliche Spalte mit der Breite 0 (damit sie nicht sichtbar ist) in die ListBox ein - dann weißt du du immer, auf welche Zeile im Tabellenblatt du zugreifen musst.

---

 

Hi Karin
in der Listbox kann ich ja nur 10 Spalten verwenden und brauche diese auch. Musste schon Sachen in der Listbox weg lassen. Gibt es noch eine andere Möglichkeit?

 

Hi Christian,

da liegst du falsch: weil du der ListBox nicht den Zellbereich per RowSource sondern mittels AddItem übergibst, gibt es diese Beschränkung nicht - die ListBox kann deshalb durchaus mehr als 10 Spalten haben.

---

 

Hi Karin,

dann probiere ich mal die RowSource Methode aus. Vielen Dank!
Hoffentlich Klappt es dann.

 

Hi Christian,

du hast mich falsch verstanden: bei RowSource gibt es die Beschränkung auf 10 Spalten und NICHT wenn du die Daten per AddItem (wie bei dir) zuweist!

---

 

Ich bin ein echter Anfänger, sorry.
Muss ich dann in der Tabelle eine Spalter mit Lfd. Nr. erstellen?

 

Nein, einfach nur den Code zum Füllen der ListBox durch diese Zeile ergänzen:

Code:

Me.lstMaterialBuchen.List(Me.lstMaterialBuchen.ListCount - 1, 10) = lngEin

Damit wird die laufende Zeilennummer in die 11. Spalte der ListBox geschrieben.

---

 

Habe jetzt den Laufzeitfehler 380

 

Ich kann den Fehler nicht sehen, da ich deine Mappe nicht vorliegen habe. Hier findest du Antworten: Ungültiger Eigenschaftswert (Fehler 380) [1 von 2] und hier: Ungültiger Eigenschaftswert (Fehler 380) [2 von 2]

---

 

Hier die Datei

 

Vielen Dank für deine Mühe!!!

 

Und was genau muss ich machen um den Fehler reproduzieren zu können?

---