Super Videotutorial, es erklärt sehr gut wie eine ListBox erzeugt und mit Daten befüllt wird. Das Video "ListBox ausgewählten Eintrag auslesen | Excel VBA" ist ebenfalls in diesem Zusammenhang sehr hilfreich. 👍
Kai, das ist perfekt 👌🏻 Du bist ein echt wunderbarer Speaker, deine Videos sind stets klar und deutlich und Du für mich hier auf RUclips- Mr. VBA! Danke 🤩
Hallo Kai, also ich kann der Aussage von Tommy nur beipflichten, ich habe mir deine ganzen Videos verlinkt und es macht mir richtig Spaß deinen Ausführungen zu folgen und dann sofort den Erfolg auf dem eigenen Rechner zu sehen. So hat mir noch keiner ein neues Thema beigebracht und man merkt, daß dir etwas daran liegt, daß dein "Schüler" es tatsächlich begreift und du nicht nur einen "Vortrag" hältst! Vielen Dank für deine Mühe, ich bin einfach nur begeistert!
@@KaiWeissmann Lieber Kai- jetzt habe ich noch eine Frage an dich mit der Bitte um Unterstützung. Ich habe zu diesem Video auch dein Video "ListBox Doppelklick" in meinem Projekt eingepflegt. Nun suche ich etwas, markiere in der ListBox1 die gewünschte Zeile - doppelklicke diese aber er wirft einen Fehler aus. Laufzeitfehler '1004' - Anwendungs- oder objektdefinierter Fehler. Wähle ich aus der ListBox1 (ohne Suche) den gewünschten Wert aus, doppelklicke diesen- dann geht er in der Tabelle auf diesen korrekt. KAI VIELEN DANK!!!!!
Ich bin jemand, der eigentlich nie bei RUclips etwas kommentiert. Ich muss dir ein ganz ganz dickes Dankeschön für das überragende Video dar lassen, weil ich seit ca 2 Wochen für meine Arbeit auf der Suche nach einer gescheiten Suchfunktion bin. Dickes Upgrade für mein Programm, hat sofort funktioniert. Die Kollegen werden sich bedanken 😎
@@KaiWeissmann Hallo Kai, da ich mit knapp 70 Jahren begonnen habe, VBA zu lernen, deine Beiträge sehr verständlich sind, muss man deine Bemühungen loben. Ich wünsche Dir für deine Arbeit unendlich viele Abonnenten. :-)
Guten Morgen, Kai! Danke, für deine rasche Beantwortung meiner Anfrage per Mail! Auch bedanke ich mich für den Verweis auf dieses Video. Ich werde den Lerninhalt in mein Projekt umwandeln. Hab noch einen erfolgreichen Tag und bis bald! Schöne Grüße aus Österreich!
Ein Mega cooles Video. Ich hatte noch nie etwas mit VBA zu tun. Nach diesem Video habe ich Dinger erstellen können, von denen ich letzte Woche noch geträumt hätte. Ein fettes Like und ein fettes Dankeschön!!! 👌☺️
Hallo Kai, ich habe mir diese Userform erstellt und das klappt super, danke dafür, aber ich möchte beim Doppelclick auf einen der gefundenen Einträge die entsprechende Zelle in der ersten Spalte in der Datenbank selektieren und gleichzeitig soll die Listbox wieder ausgeblendet werden. Wie muß ich hier vorgehen?
Hi Kai, echt klasse was du in deinen ganzen Videos so zeigst. Danke dafür. Ich habe bereits aus mehreren Videos mit eine wunderbare excel Datei gebastelt. Nur hänge ich an einem Punkt fest. Du hast hier im Video wunderbar erklärt wie das mit dem suchen funktioniert. Nur hast du in einem anderen Video eine andere Art gewählt eine Listbox zu füllen. (Eingabetaste mit Datenbank ….) Ich bekomme beide Arten nicht übereinander, sodass ich auch bei dieser Art in der Listbox suchen kann. Da hast du bestimmt auch eine kleine Idee für mich, oder?
Wie immer ein klasse Video :) Das Lagerverwaltungstool habe ich mit deinen Videos nachgebaut und um ein paar Features erweitert. Leider bekomme ich die Suchfunktion nicht in die Lagerverwaltung integriert. Hier wäre es schön gewesen auch dies im zusammenhang mit dem Lagerverwaltungstool erklärt zu bekommen. Als VBA Noob macht es das Verständlicher. 😅😅
Hallo Kai schöne Grüsse von den Philippinen Tolles Video ich habe eine Frage dazu Geht die Suchfunktion auch über eine Combo box mit schon hinterlegten Inhalten. Beispiel. Ich habe alle Firmennahmen in der Combo box hinterlegt und wen ich zb. HZI anklicke sehe ich nur Mitarbeiter von HZI in der List box?
Hallo Kai und Team. Gibt es auch die Möglichkeit, eine solche Suchfunktion in einer ComboBox zu realisieren? Ansonsten schließe ich mich meinen Vorschreibern an, die Videos sind einfach super und durch die Step-by-Step Erklärungen auch für Anfänger verständlich. Macht einfach weiter so. 👌
Im Eigenschaftenfenster der ComboBox findest du Einstellungen zum Style. 0 - fmStyleDropDownCombo bedeutet, dass du Eingaben in der ComboBox tätigen kannst. Zutreffende Werte werden dann auch gesucht und automatisch eingetragen. Jedoch können komplett neu eingetragenen Werte auch eingetragen werden. Das könntest du wenn gewünscht mit einer Überprüfung abfangen, und gegebenenfalls eine Messagebox anzeigen lassen "Bitte nur Werte aus der List eintragen". 2 - fmStyleDropDownList bedeutet, dass keine Eingaben möglich sind und die aufgelisteten Werte angeklickt werden müssen für die Auswahl. Ich hoffe das hilft dir weiter.
Hallo Kai. Erstmal vorweg, super Videos von dir. Deine Art zu erklären ist echt 👍🏻. Vielen Dank dafür. Man nimmt immer wieder was mit. Ich habe dich schon bei Kollegen empfohlen. Ich hätte eine Frage zu diesem Thema. Es geht darum, ob du mal ein Video machen könntest, in dem du auf die Double klick Thematik eingehen könntest? So das man aus der UserForm dann in die entsprechende Zeile springen kann. Ich habe das versucht aber bekomme es irgend nicht so recht hin. Also mal ein Video davon wäre echt eine coole Sache. Ansonsten weiter so 👍🏻👍🏻👍🏻
Hey Daniel, danke für das nette Feedback und deine Videoidee. Ich veröffentliche in ein paar Wochen ein Video zu einem Warenwirtschaftssystem und da behandle ich das genau. Schau am besten dort mal rein und falls es damit nicht klar werden sollte, dann schreib mir gerne danach nochmal :) LG Kai
Hallo Daniel, zu deiner Anfrage habe ich jetzt ein Video erstellt: ruclips.net/video/E7czhByIOQc/видео.html Ich hoffe damit kannst du dein Problem lösen :) LG Kai
Super!! Kai besten Dank für deine super Videos zu diesem habe ich eine Frage kann ich aus der Listbox direkt anwählen mit Click und diese Daten in definerten Zelle ausgeben ?
Hey Philipp! Sehr gerne! Ich habe vor einiger Zeit ein Video zum Thema "Listbox Doppelklick" erstellt: ruclips.net/video/E7czhByIOQc/видео.html Vielleicht hilft dir das weiter! Alles Gute für dein Projekt! Lg, Kai
besten Dank für deine Antwort könntest du mir einen Tipp geben wie ich eine Mehrfachauswahl in der Listbox einfügen kann so dass alle ausgewählten Daten dann in einem separatem Worksheet ausweisen kann geht das überhaupt? besten Dank für deine Rückmeldung
Hey Kai hier meine Angedachte Lösung ....................funktioniert leider noch nicht wie gewünscht Option Explicit Sub Multi_Listbox_auslesen() 'Auslesen aller in einer Listbox selektierten Einträge (Multiselect) ' Dimensionierung der Variablen Dim i As Integer Dim lngCnt As Long 'Startzeile festelegen lngCnt = 4 'Ausgabebereich löschen ActiveSheet.Range("H4:H16").ClearContents With Sheets(1).ListBox1 'Beenden, wenn nichts ausgewählt wurde If .ListIndex = -1 Then Exit Sub
'Listbox durchlaufen For i = 0 To .ListCount - 1
'Gewählte Einträge auslesen If .Selected(i) Then txt = .List(i)
'Eintragen der gewählten Einträge auf Tabellenblatt ActiveSheet.Cells(lngCnt, 8).Value = txt
'Zeilenzähler erhöhen lngCnt = lngCnt + 1 End If Next End With End Sub Private Sub ListBox1_Click() End Sub Private Sub TextBox1_Change() Dim Zeile As Long
'Listbox leeren Me.ListBox1.Clear
'Schleife über alle Zeilen der Tabelle For Zeile = 1 To Dropdown.Cells(Rows.Count, 1).End(xlUp).Row
If InStr(1, LCase(Dropdown.Cells(Zeile, 1).Value), LCase(Me.TextBox1.Value)) 0 Then 'Listbox befüllen Me.ListBox1.AddItem Dropdown.Cells(Zeile, 1).Value End If Next Zeile End Sub Private Sub UserForm_Initialize()
Dim Zeile As Long
'Schleife über alle Zeilen der Tabelle For Zeile = 1 To Dropdown.Cells(Rows.Count, 1).End(xlUp).Row 'Listbox befüllen Me.ListBox1.AddItem Dropdown.Cells(Zeile, 1).Value Next Zeile 'erste Element auswählen Me.ListBox1.Selected(0) = True End Sub
könntest du mal darauf schauen ob ich auf dem richtigen Weg bin ich danke dir schon im Vorfeld vielmals Philipp
Hallo Kai, immer wieder sehr gut gemachte Videos von Dir, vielen Dank dafür! :) Eine Frage hab noch: Kann die Suche für bestimmte Spalten auch auf "Beginnt mit" geändert werden? Ich habe zum Beispiel in einer Spalte Postleitzahlen. Hier ist die Suche mit "enthält" nicht so praktisch. Viele Grüße, Tom
Hallo Kai, in meinem konkreten Fall suche ich nach einer Lösung eine List Box Filtern zu können indem eine comboBox relevante Spaltenüberschriften (>10) als Kriterium wiedergibt und ein Textfeld als Suchfeld fungiert. Die listbox sollte die Spalten der comboBox enthalten. Du hast bestimmt eine praktikablen Lösungsansatz- bei meiner Recherche bin ich zwar auf einige Ansätze gestossen, taugten aber nicht viel. Freue mich von dir zu hören.
Hallo Kai, vielen Dank für die sehr gute Erklärung und das anschauliche Video. Ich habe dies gleich ausprobiert - klappt wunderbar - nur wenn ich Spalte habe in der Formeln sind, dann bringt er mir eine Fehlermeldung. Was kann ich hier tun?
Hi Kai, erstmal vielen Dank für Deine Videos. Informativ und spannend welche Möglichkeiten VBA bietet. Großes Lob an Dich. Eine Frage habe ich allerdings. Kann man nicht mit Option Base den Index selber festlegen (zum Video ListBox zweite Spalte hinzufügen - 8:35)? Gruß Lars
Hallo Kai, klasse Videos und super lehrreich! Was ich in deinen ganzen Videos bisher nicht finden konnte ich die Möglichkeit, in einer gefilterten Listbox das korrekte Element auszulesen. Der Index der Listbox ist nach der Suche unverändert (bspw. 17:24: Die "113" korreliert beim Ansprechen (DblClick o.ä.) nicht mit Zeile 113 sondern mit Zeile 2 (da es der zweite Eintrag ist). Wie löst man das Problem, auch gefilterte Elemente in der Listbox korrekt anzusprechen?
Hallo Paul, am besten liest du das direkt aus der ListBox aus. Das derzeit aktivierte Element kannst du mit ListBox1.List(ListBox1.ListIndex,0) auslesen. 0 ist dabei die erste Spalte. Wenn du eine andere haben möchtest, dann um 1 erhöhen. Ich werde in den nächsten Wochen dazu auch nochmal ein Video erstellen. LG Kai
Wieder tolles Video. Wie könnte man in den gefundenen Datensätzen einen bestimmten auswählen und in die editiermaske wechseln? Toll wären auch checkboxen in denen man einzelne oder alle spalten zur Suche hinzufügen kann. Klingt immer n bissl nach meckern da fehlt was, aber solls definitiv nicht sein. Sind nur Ideen die in meinem Kopf rum schwirren. 😉
Hey KGBMavericK! Danke für dein Kommentar. Vielleicht hilft dir das "Listbox Doppelklick" Video von mir für deine Problemstellung: ruclips.net/video/E7czhByIOQc/видео.html Und zum Thema Spalten Sichtbarkeit habe ich auch ein Video bereits gemacht: ruclips.net/video/Xt1ZyJxcwZ0/видео.html Mit ein paar Anpassungen im Code könntest du z.B. nur die sichtbaren Spalten durchsuchen und per Doppelklick nicht in die Zeile, sondern eben in eine Editirmaske mit vorausgefüllten werten springen. Hoffe das hilft dir für dein Projekt. Lg, Kai
@@KaiWeissmann p.s. ich wäre sehr daran interessiert, wenn du ein wenig tiefer in die Materie einsteigen könntest (Apis). Zb Zugriff auf MySQL Datenbanken oder Windows Apis auf Dateiebene etc. Alles was halt nützlich ist :)
Vielen Dank für das tolle Video! Super erklärt! Hat auch besten funktioniert. Gerne möchte ich zusätzlich noch die Überschriften anzeigen und Textumbrüche, welche in (Bei mir zB Spalte 4 sind) anzuzeigen. Gibt es dafür eine lösung bzw ein Video ? :) vielen Dank, lg
Wieder ausgezeichnet erklärt; bei mir tritt aber, wenn ich was in das Textfeld eingebe, der Fehler „Objektvariable nicht festgelegt“ auf, obwohl diese Code-Zeile identisch ist mit der, mit der ich die 2. Spalte einer Excel-Tabelle in die Listbox einlese. Daher die Frage: Funktioniert der Such-Code auch bei Excel-Tabellen, die in eine dreispaltige Listbox eingelesen werden, wie in einem anderen Video von dir demonstriert?)
Hallo Christian, freut mich, dass dir die Erklärung gefällt. Woran dein Fehler im Einzelnen liegt, kann ich aus der Ferndiagnose leider nicht sagen. Prinzipiell funktioniert der Code aber auch mit 3 und mehr Spalten. LG Kai
Sehr gut erklärt 👌 ich hätte da aber eine frage, ich würde gerne eine Listbox anzeigen lassen mit gleichen Ergebnissen wie in der suchbox die als zelle im Tabellenblatt hinterlegt ist, wo man dann den Eintrag auswählen kann den man dann zb bearbeiten möchte. Als bsp. Ich suche nach "Horst" und dann kommt die listbox mit 5x Horst aber jeweils eine ander Adresse aus der man dann auswählt welche daten dann in das Tabellenblatt eingefügt werden
Dazu würde ich das Listbox Doppelklick Event verwenden. Das zeige ich in diesem Video: ruclips.net/video/E7czhByIOQc/видео.html Hoffe das hilft dir. Lg, Kai
hey Kai, echt hilfreiche Videos! Hab da ein Problem. Die Suche funktioniert bei mir in der Userform, sobald ich suche aktualisiert sich die Listbox nicht für den Eintrag in die nächste Userform. Es werden die Zeilen aus der Tabelle genommen. Was kann ich da machen?
Hallo Christian, freut mich, dass dir das Video gefällt! Ich weiß nicht genau, was du meinst. In dem Video zeige ich eine UserForm mit einer TextBox, die zur Suche dient und einer ListBox, die als Ausgabe der Suche dient. LG Kai
Moin, ja dem ganzen Stimme ich zu, alles sehr gut gemacht - dabei hätte ich eine Frage: dies alles gilt anscheinend für MS Excel. Ich selbst bin LibreOffice Nutzer und ständig auf der Suche nach Jemanden, der dort mal vernünftig ( evtl. so von Ihrer Qualität) und Verständlich erklärt, wie man dort Makros in Basic schreibt.... für mich - vorzugsweise in LO-Base. Für Tips etc, Vielen Dank
Hi Kai, ich konnte deine Listbox-Suche erfolgreich einsetzen. Vielen Dank für das aufschlussreiche Video. Allerdings versuche ich nun seit geraumer Zeit, meine Tabellenheader in der Listbox anzuzeigen. Ich habe bereits die RowSource gesetzt, aber sobald ich versuche die Listbox zu füllen erhalte ich den Laufzeitfehler 70. Hättest du hierfür einen Lösungsvorschlag? Viele Grüße, Sebastian
Hallo Kai, erstmal ein großes Lob für deine Tutorials. Ich habe mir sehr viele VBA Videos angeschaut, bin aber bei dir hängengeblieben, da du wirklich sehr gut für Einsteiger erklärst. Nachdem ich einige deiner Videos durchgearbeitet habe, konnte ich mir für meine Zwecke schon was ordentliches zusammen Basteln ;). Und das nicht nur mit Copy and Paste, sondern das ich auch verstanden habe was ich da mache. Doch jetzt bin ich an einem Punkt angekommen an dem ich nicht weiter komme. Ich habe deine Suche in mein Projekt integriert habe aber schwierigkeiten die richtigen Ergebnisse auszulesen. Ich möchte nach Zahlen suchen, bekomme aber nicht hin das mir nur die eindeutigen Zahlen angezeigt werden. Z.Bsp: möcht ich die Zahl 22 suchen und möchte auch nur die angezeigt bekommen und nicht die Zahlen 122 und 222. Ich denke das ich dafür das Argument "LookAt:= _ xlWhole" benutzen müsste, weiß aber nicht wie ich es in der Suche integrieren muss. Ich würde mich sehr freuen wenn Du mir da Hilfestellung geben könntest, damit ich mein Projekt abschließen kann. Danke und mach weiter so. Andree
Hallo Andre, freut mich, dass dir meine Videos gefallen. Du könntest statt InStr() Left() oder Right() nutzen und zusätzlich mit Len() prüfen, ob die Strings die selbe Länge haben. Mehr zu den String-Funktionen findest du hier: vbatrainer.de/string-funktionen/ LG Kai
Hallo Kai, super hilfreiches Video! Wäre es möglich einen Bereich zu Suchen z.B. von PLZ 40215 bis 40231 und nur diesen Bereich in der Listbox anzeigen zu lassen?
Hallo Kai, ausgezeichnetes Tutorial, du hast es sehr gut erklärt und ich konnte es bei mehreren Projekten anpassen. Es gibt nur ein Problem, das ich nicht lösen kann. Nachdem ich einige Buchstaben in die Textbox eingegeben habe, wird der Inhalt der Listbox nicht automatisch aktualisiert, sondern ich muss mit der Maus in die Listbox klicken, um die gefilterten Einträge zu sehen. Das Gleiche passiert, wenn ich die Textbox leere. Um wieder die gesamte Liste zu sehen, muss ich immer noch mit der Maus hineinklicken. Woran kann das liegen? Ich danke Ihnen für Ihre Hilfe.
Das Video kam ja echt zur passenden Zeit. Die Suchfunktion hat mich schon verrückt gemacht. Aber deine Möglichkeit hier hat mir extrem geholfen. Also mein Abo hast du sicher. 😁 Eine Frage hab ich aber noch. Ich hab am Anfang gesehen, dass du in der ListBox gescrollt hast. Wie bekommt man das hin? Weil ich kenne die Scrollfunktion nur im ListView.
Hey Maik, super, dass dir das Video geholfen hat und vielen Dank für dein Abo :) Wir können die Scroll-Funktion in der ListBox (und auch der ComboBox) mit einem Code aktivieren, der mit der Windows API interagiert. Ich mache dazu in den nächsten Wochen mal ein Video. Falls du das schon vorher umsetzen möchtest, ist hier der Forum-Beitrag, aus dem ich das Ganze habe: social.msdn.microsoft.com/Forums/en-US/7d584120-a929-4e7c-9ec2-9998ac639bea/mouse-scroll-in-userform-listbox-in-excel-2010?forum=isvvba LG Kai :)
@@DonosDankos Wenn du das mit dem scrollen in der ListBox meinst, dann gehst du auf den Link den der Kai mir gepostet hat und nimmst den Code vom 12. Forumsbeitrag. Dort steht auch wohin der Code kopiert werden muss.
@@SanceZZ82 Jetzt habe ich es auch gesehen....man bin ich Blind. Ich danke Dir. Kai hat mir den Link auch schonmal geschickt aber da war ich eben auch blind und dachte mir, dass ich einfach auf das Video dazu warte ^^. Also auch nochmal danke an Kai.
Hallo Kai, tolles Video, mega Kanal. Die Suchfunktion ist klasse. Wie bekomme ich eine Suchfunktion mit mehreren Kriterien hin? Also 2 oder 3 Comboboxen, wo die Suche immer mehr eingegrenzt wird. Schon mal danke für deine Hilfe. Mach weiter so
Hallo Christian, vielen Dank für deinen Kommentar :) Du kannst für jedes Kriterium eine eigene Textbox machen und den Inhalt der Textboxen in den Spalten mit der InStr-Funktion suchen. Ähnlich wie im Video suchst du dann nach mehreren Bedingungen in der If-Anweisung. In deinem Fall würdest du das allerdings mit dem And-Operator verbinden. Ich hoffe das hilft dir weiter. Schreib mir gerne, ob das bei dir geklappt hat. LG Kai
Also man kann sagen es ist gut erklärt und die Bild/Ton Qualität ist sehr gut, es ist angenehm seine Stimme zu hören. Leider gab es wie bei einigen hier auch Probleme beim Auslesen, derzeit arbeite ich an eine Tabelle für unseren Verein und habe ihm das Problem geschildert und ihm Gefragt ob er helfen könnte. Jedoch bekam ich nur eine Antwort für seine Schulungen im wert von 4.000€ und kein Wort über meine Anfrage, das hat mich schon etwas Sprachlos gemacht. Er ist nicht auf einen Punkt meiner Anfrage eingegangen und das finde ich schon Dreist, das er gute Arbeit leistet und auch Kurse machen möchte um damit sein Lebensunterhalt zu bestreiten zu können, ist für mich auch i.O aber dann kann man Trotzdem auf die Fragen eingehen. So macht es den Eindruck von Vorgefertigter Text mit Null Bock zu Antworten Haltung, also Videos sind Top und Abseits sehr schwach.
Hallo Kai, danke für dieses super informative Video. Ich habe schon sehr viel von deinen Videos in meinem Projekten umsetzen können. Aktuell stehe ich vor folgendem : Ich habe eine Listbox mithilfe des Array gemacht. Ich möchte dort eine suche einbauen die anhand zwei unterschiedlicher Kriterien suchen kann. Ich konnte das leider noch nicht umsetzen :( Und als zweites hätte ich gerne, dass automatisch im dem Suchfeld ein in einer aktuell aktiven Zelle befindlicher Text steht. Dh. Zb. Ich befinde mich gerade in Zelle A1 dort steht der Text "Test" und öffne dann meine Userform, dort soll dann direkt nach Test gesucht und gefiltert sein. Geht sowas ? Beste Grüße und mach weiter so !
Hallo, freut mich, dass dir das Video gefällt! Beides geht auf jeden Fall. Im ersten Fall brauchst du eine Schleife, die über das Array geht und die Werte mit dem Suchwert vergleicht. LG Kai
Hallo Kai, erstmal du machst super Videos. Perfekt für Einsteiger. Vielleicht könntest du mal ein Video machen in dem man sieht wie du die gesuchten Daten in einer Userform bzw Textboxen auslesen, ändern und dann wieder zurück schreibt in die intelligente Tabelle. Darüber findet man wenig bis gar nichts im Netz. Grüsse aus dem Osten ;-)
Hallo Agatha, mittlerweile habe ich zu deiner Anfrage ein Video erstellt: ruclips.net/video/zhNgcehshPk/видео.html Ich wünsche dir alles Gute beim Umsetzen! LG Kai
@@KaiWeissmann Hallo Kai Ich habe das Personalvideo nachgebaut. Danke für diese beiden super Video. Nun stehe ich jedoch an, und bekomme keine „Google“ Suchfunktion hin. Wie kann ich die beiden Listboxvarianten vereinen. Lg Hannes
Ich weiß , es ist schon einige Zeit vergangen seit der Erstellung....Aber vielleicht habe ich ja Glück 🙂 Erst mal dickes Lob für das geile TuT !!! Ich lerne immer mehr dazu. Habe jetzut mal dein TuT nachgearbeitet und es funktioniert super. Ich möchte jetzte gerne via Doppelklick zu dem gefunden eintrag springen. Videos dazu von dir habe ich mir bereits angeschaut , aber irgendwie bekomme ich das nicht zusammen....... Wäre nett , wenn du das Video entsprechend vielleicht erweitern könntest ? Oder ein neues dazu erstellen ? Lieben Dank und hau rinn
Hi Kai, genial 🙂 muss ich die Woche mal nachbauen. was mich noch interessieren würde. Die Suche über mehrere Listboxen zu machen. Also beispiel. Hab eine userform die 3 listboxen beinhaltet. Jede listbox bezieht sich auf eine andere Tabelle aber überall gibt es eine Auftragsnummer, also wenn ich die Auftragsnummer suche möchte ich zu diesem suchbegriff in den jeweiligen listboxen alle Treffer haben. Geht das? Grüße Chris
Hi Christopher :) Freut mich, dass dir das Video gefällt! Ja, das geht auf jeden Fall! Im Prinzip musst du lediglich den Code im Change-Event kopieren und ListBox sowie Tabellenblatt, die angesprochen werden, verändern. Dann sollte dem Ganzen nichts mehr im Weg stehen :) Schreib mir gerne, ob bei dir alles geklappt hat! LG Kai
Hallo Kai Danke für deine leichtverständlichen Tutorials. Diese nachzubauen und die Ergebnisse zu bestaunen macht Spaß. Allerdings frage ich mich bei diesem Video wie der Code erweitert werden müsste wenn man mehr wie nur zwei Spalten durchsuchen möchte. Vielleicht hast du dazu auch einen Tipp. Ansonsten top Tutorials mach weiter so! :-)
....... sooo jetzt sollte ich halt auch noch lernen Videos zu ende zu gucken und nicht zwischendrin noch mal schnell nen Kaffee holen oder eine rauchen gehen ... dann hätte längst mitbekommen das du mehrspaltige suche schon angesprochen hast :-))
Hallo Bernd, es freut mich, dass dir das Nachbauen Spaß macht :) Super, dass das Video deine Frage auch direkt beantwortet hat. Alles Gute beim weiteren Umsetzen!
@@KaiWeissmann Guten Morgen Kai, Nun bin ich doch auf ein Problem gestoßen bei dem ich einfach nicht weiterkomme ...... Fals du nicht möchtest das man dich hier über die Kommentare anspricht weil man irgendwie Tipps benötigt dann versteh ich das und dann ignoriere das hier einfach ...... Problem: Ich habe deine Listbox Suche nachgebaut versteh diese soweit auch. Nun wollte ich an meinem Projekt weiterbasteln. Meine Tabelle hat 17 Spalten die Listbox Einträge und die Suche erstrecken sich aber nur über 9 Spalten. Das funktioniert soweit. Ich wollte nun das nach einem Doppelklick auf einen gefundenen Eintrag in der Listbox diese Daten in eine neue Userform geschrieben werden um die Daten eventuell zu ändern oder zu drucken. Also dachte ich ich setze ColumnCount =17 und Bei ColumnWidth die entsprechende Größe der Felder die angezeigt werden sollen (1-9) und bei den Feldern 10-17 auf Größe 0 da ich diese nicht angezeigt, aber im Hintergrund eingelesen haben möchte. Die Absicht dahinter ist das nach Doppelklick alle 17 Daten des gefundenen Eintrages in eine neue Userform Übertragen werden sollen. Das funktioniert aber nicht egal was ich ausprobiert hatte. Nach Stunden vergeblichen Probierens und Recherchierens hatte ich gelesen das eine Listbox nur 10 Spalten verarbeiten kann. Was kann ich denn nun tun um über meine Listbox meine ganzen 17 Daten zu Verarbeiten. Gibt es einen "Trick" oder eine alternative zu einer ListBox? In der Hoffnung auf einen Tipp :-) Wünsche ich einen guten Morgen
Hallo Bernd, du kannst immer gerne hier schreiben :) Ich versuche dann zu antworten, kann es aber nicht immer garantieren. Mich interessiert es immer, auf welche Probleme meine Zuschauer stoßen. Dazu kann ich dann ja eventuell Videos machen. So habe ich deine Frage auch auf meine Liste geschrieben. Zu deiner Frage: Mit der AddItem-Methode kann man tatsächlich nur 10 Spalten hinzufügen. Es gibt einen Trick, um mehr Spalten hinzuzufügen, indem du die Daten in ein Array lädst und sie dann gesammelt in die ListBox schreibst. Das Ganze wird hier auf englisch erklärt: stackoverflow.com/questions/61183540/show-data-in-more-than-10-columns-in-listbox Alternativ kannst du auch das ListView-Objekt verwenden. Für viele Daten ist die ListView prinzipiell der ListBox überlegen. Auch hierzu eine englische Quelle: ruclips.net/video/U1sQ1-Oa0fs/видео.html&ab_channel=VBAA2Z Ich hoffe damit kannst du dein Problem lösen. Schreib mir gerne nochmal, wie es ausgegangen ist. LG Kai
Hi Kai, mich würde es interessieren ob du diese Herangehensweise auch dann machen würdest, wenn die Excel Liste mittlerweile richtig viel Daten hat. Bzw. Was denkst du ist die "effizienteste" also die schnellste Suchmethode? Aus einem anderen Video hast du Arrays verwendet um den Code schneller zu machen. Ist das zu kompliziert ein Dynamisches Array zu verwenden um die Listbox zu füllen ?? bzw DIe Suchmethode in einer Listbox mit Arrays zu gestalten? LG
Hallo Kai, erstmal herzlichen Dank für dieses mega Video !! Ich konnte so viel als Anfänger zum Thema VBA lernen. Alles Super und einfach erklärt. Der Code ist individuell anpassbar. Ich hatte noch eine Frage zu dem Thema ist das möglich noch eine Textbox einzufügen und dort die Summer meine markierten Felder auszurechnen. Ich habe nämlich herausgefunden das man mit me.listbox1.mulitiselect = fmMultiSelectMulti mehrere Spalten anklicken kann. Nun ist die Frage ob und wie das geht das diese, dann in einem extra Feld addiert und angezeigt wird. Danke nochmal für das Video 👍🏾
Hallo Kai, Vielen Dank für das wieder sehr lehrreiche Video. Die Suche in der Listbox habe ich auch schon in einem Projekt erfolgreich ungesetzt. Z.Z. arbeite ich an einem Projekt, in dem ich eine zweispaltige Listbox habe. Befüllt wird die LB aus einer zweispaltigen Tabelle. Das funktioniert gut. Das Suchergebnis soll aus beiden Spalten in jeweils eine Textbox eingetragen werden, damit ich die Werte anschließend in eine andere Tabelle eintragen kann. Den Inhalt aus der ersten Spalte bekomme ich hin, aber mit zwei Spalten funktioniert es nicht. Geht das überhaupt, dass man zwei Ergebnisse gleichzeitig verarbeiten kann und wenn ja, hättest du eine Lösung für mich? VG Volker
Hallo Kai, welche Einstellung stimmt bei mir nicht. Wenn ich in die Eigenschaft BackColor bei der Userform klicke, so kann ich keine Farben auswählen?,
Hallo Kai, wie immer, einfach ein geniales Video. Kann ich über die List Box dann auch direkt einen Eintrag auswählen um diesen dann über einen Button direkt zu löschen ? LG Marco
Hallo Marco, vielen Dank für dein Feedback! Ja, das kannst du auf jeden Fall machen. Ich empfehle dazu, dir die Zeile in der ListBox zu vermerken, um dann in der Excel-Tabelle darauf zuzugreifen. LG Kai
@@KaiWeissmann stehe gerade auf dem "Schlauch". Was meinst Du mit "...dir die Zeile in der ListBox zu vermerken, um dann in der Excel-Tabelle darauf zuzugreifen". ???
@@marcogartner3308 damit du weißt, welche Zeile du in der Excel-Oberfläche du bearbeiten möchtest, brauchst du diese Information irgendwo in der Listbox. Ich hoffe, das klärt das Problem :) LG Kai
Hallo Marco, bezüglich dem Löschen der Zeile habe ich hier ein Video erstellt: ruclips.net/video/E7czhByIOQc/видео.html Statt die Zeile auszuwählen, musst du sie lediglich löschen. Ich hoffe damit kannst du dein Problem lösen :) LG Kai
@@KaiWeissmann Vielen Dank für deine Videos. habe diese ausprobiert und scheitere wenn ich versuche mehrere Spalten in der Listbox aus der Datenbank aufzunehmen- sowie in der Suche als auch beim Anzeigen . Ist das möglich?
Hallo Kai, Cooles Video und echt hilfreich. Aber ich bekomme es einfach nicht hin die Listbox mit einer 3. Spalte zu belegen worin auch der Wert der 3. Spalte aus der Tabelle angezeigt wird. Kannst du mir dahelfen? Beste Grüße, Chris
Hey Chris, in diesem Video zeige ich, wie wir 3 Spalten in einer ListBox befüllen können: ruclips.net/video/E7czhByIOQc/видео.html&ab_channel=KaiWeissmann Ich hoffe das hilft dir weiter :) LG Kai
Hallo Kai, mich würde noch interessieren wie es aussehen würde, wenn man nach 2 oder 3 Elementen parallel in einer Suchmaske suchen kann. Wie bspw. nach dem Firmennamen, der Rechnungsnummer und der Straße.
Hallo Kai, erst mal Danke für Deine sehr hilfreichen Videos. Dieser Code "Suchfunktion für ListBox programmieren" funktioniert bei mir nicht, vba will die Tabelle "verkaeufe" als Variable definert haben. Ich habe aber genau Deinen Code abkopiert und auch die Tabelle genau so abgeschrieben. Hast Du eine Idee, woran das liegen könnte?
Super Funktion und genial erklärt. Sowas habe ich gesucht. Wie könnte man es nun machen dass, wenn man einen Eintrag z.b. doppelklickt, gleich in die entsprechende Zeile gesprungen wird? Kanal ist natürlich gleich abonniert. Danke und schöne Grüsse
Hey majestecx, vielen Dank für dein Feedback und das Abo :) Im Doppelklick-Event der ListBox könntest du bspw. ActiveWindow.ScrollRow = Me.ListBox1.Value + 11 schreiben. Bei mir ist Me.ListBox1.Value die laufende Nummer, deren Nummerierung in der 12ten Zeile anfängt. Falls du keine solche Nummer hast, dann musst du nach einem eindeutigen Wert suchen und dorthin springen, bspw. Verkaeufe.Columns("B:B").Find(What:=Me.ListBox1.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Activate Ich hoffe das hilft dir weiter :) LG Kai
@@KaiWeissmann Hallo Kai, ich habe mir heute dein Video angesehen, da ich auch so eine Suchfunktion in mein Excel-Sheet einbauen wollte. Die Suche funktioniert dank deiner tollen Erklärung super. Jedoch stehe ich jetzt genau wie "majestecx" vor dem Problem, dass ich gerne zu dem gesuchten Eintrag per Doppelklick im Sheet springen möchte. Deine Erklärung an "majestecx" hilft mir jedoch nicht weiter. Könntest du es vielleicht näher erläutern? Ich bin auch absolut neu im Bereich VBA. Gruß
Hallo hAWk, super, dass die Suchfunktion bei dir schon funktioniert :) Ich schreibe es mal auf meine Videoliste und veröffentliche dazu in Zukunft mal ein Video. LG Kai
Hallo ihr beiden, zu eurer Anfrage habe ich jetzt ein Video erstellt: ruclips.net/video/E7czhByIOQc/видео.html Ich hoffe damit könnt ihr euer Problem lösen :) LG Kai
Hallo Kai. Tolles Video!!. Leider funktioniert dein Makro bei mir nicht. Ich stoße da auf verschiedene Probleme. Eines ist zum Beispiel, das der Befehl "For Zeile = 1 To Namen.Cells(Rows.Count, 1).End(x1up).Row" bei mir nicht funktioniert. Bei tippen des Befehls erscheint nach Eingabe des Punktes stets eine Auswahl an Befehlen. Dies passiert bei Eingabe Namen.Cells ganz wunderbar. Bei Eingabe .END hört es dann schon auf. Woran kann das liegen? Habe ich die falsche Excel oder Office Version?. Schönen Dank Thomas
Hallo Kai. Vielen Dank für das Video. Das hilft mir sehr. Ich habe nur eine FRage. Wie bekomme ich nach der Suche, das Gefundene durch doppelklicken in eine Zelle in Excel? Ich möchte hieraus eine Medikamenten-Suche mit anschließendem Einfügung in eine Zelle erstellen. Kannst du mir hierbei helfen? Vielen Dank im voraus. Viele Grüße Markus
Hallöchen Kai, super Tutorials was du da machst. Hab die sachen nachgebaut und funktioniert super. Hab versucht Das mmit der Listbox aus dem Spalten Tutorial hier mal umzubauen. Leider bekomme ich es nicht ganz hin. Also befüllt habe ich die zweite Listbox schon nur bekomm ich eine Fehlermeldung wenn ich die Zeilen sichtbar/ unsichtbar setzen will. Vielleicht kannst du ja das noch mal erklären wie man das macht das man die Zeilen per Listbox ausblenden kann so wie in dem Tut "Spalten ein und ausblenden" Kann man eigentlichen auch nach mehreren Kriterin in der Suchleiste suchen? Danke und Gruß Weiter so...
Hallo Kai, erstmal Danke für deine super Videos 👍 Du erklärst sehr gut und nachvollziehbar, das nachbauen und anpassen auf eigene Anwendungen ist damit für mich super. Eine Frage hätte ich aber: ist es möglich über eine ListBox auch Zeilen auszublenden, so wie du es in dem Video "Spalten ein-/ausblenden" vom 28 Juli vorgestellt hast ? LG Stefan
Hallo Stefan, ja, das geht. Du müsstest dann mit Zeilennummern arbeiten statt den Überschriften in der intelligenten Tabelle. Schreib mir gerne, ob bei dir alles geklappt hat. Würde mich interessieren, wie deine Lösung aussieht :) LG Kai
@@KaiWeissmann Hallo Kai, leider sind meine VBA Kenntnisse nicht ausreichend für diese Aufgabe. Ich habe alles Mögliche versucht aber ohne Erfolg, auch das Internet gibt hierfür nicht viel her. ich bekomme verschiedensten Laufzeitfehler bei meinen versuchen. Vielleicht ergibt sich mal die Möglichkeit eines Videobeitrags von dir zu diesen Thema, sofern auch andere an diesen Thema "Zeilen aus-/einblenden über ListBox" Interesse hätten. nochmals Danke für die prompte Antwort letztens auf meine Frage. LG Stefan
@@Stefan-ik1ne schade, dass es bisher nicht geklappt hat, aber manchmal brauch das auch ein bisschen. Ich schreibe es mal auf die Liste und wenn noch mehr solche Anfragen kommen, erstelle ich dazu ein Video. Dir weiterhin alles Gute :) LG Kai
Hallo Kai, cooles Video echt Super wie du das Ganze rüber bringst. Ich habe noch eine Frage. Wie kann man das was ich in der Suchmaske Eingebe dann farblich in den Spalten anzeigen lassen. Z.B. ich suche "bru", Angezeigt wird unter anderem "Am Bruderhaus" und hier soll dann nur der Suchbegriff "bru" farblich gelb markiert sein, ist sowas möglich und wenn ja wie ist der Code dazu? Mit handwerklichem Gruß Svenn
Danke Dir Kai, aber! Wie kann ich beispielsweise eine Suche in einer Datenbank ausführen, mit einer Hauptsuchmerkmale (Bspw. Aluminium) und einem 2. Kriterium (Dreh&Frästeile), dass er mir dann alle zugehörigen Lieferanten in einer Listbox anzeigt? Fragen über Fragen. Wäre toll wenn du das in einem Video zeigen könntest - Ansonsten weiter so
Hey Thorsten! Vielleicht hilft dir mein Video zur gefilterten Listbox weiter: ruclips.net/video/C9-y5QU6ASE/видео.html Oder auch das Video zur Arbeitsmappe durchsuchen: ruclips.net/video/KO81rYozC8w/видео.html Alles Gute für dein Projekt. Lg, Kai
Hallo Kai, 5/5⭐️! Lassen sich so auch Daten a) aus einer geschlossenen, externen, intelligenten Tabelle und b) aus einer intelligenten Tabelle vom SharePoint in die Listbox einlesen und in Echtzeit analog deinem Bsp. suchen? Falls dem so ist, wäre es denn auch möglich durch einen Doppelklick auf den gefundenen Eintrag in der Listbox, den Tabelleneintrag der externen, intelligenten Tabelle, in der Zieldatei weiter zu bearbeiten?
Hallo Pascal, freut mich, dass dir das Video gefällt. Prinzipiell geht das alles. Wie du eine geschlossene Arbeitsmappe nutzt, siehst du in diesem Video: ruclips.net/video/tSxdM3efUps/видео.html LG Kai
Ich greife inzwischen die Daten per ADO aus einer Accessdatenbank ab. Den kpl. Datenbestand lese ich in die Listbox bei Excel ein. Über einen Lösungsweg für die „Echtzeit“ Suchfunktion (Filterfunktion) über 3 Spalten der Listbox analog deinem hier gezeigten Bsp. wäre ich dir sehr dankbar.
Hallo Kai, wäre es auch möglich eine Kundensuche zu erstellen, in die ich ähnlich wie beim Kunden Anlegen meine verschieden kombinierten Suchkriterien eintrage und dann wenn ich auf den Suchen button klicke ich die Kunden angezeigt bekomme, die meine Kriterien erfüllen? Also ohne die Userform sondern genau wie beim Kunden anlegen.
Hallo, du kannst eine Suche auch auf einem Tabellenblatt durchführen. Dazu nutzt du das Worksheet-Change Event einer Zelle und filterst die intelligente Tabelle anschließend. LG Kai Edit: Hier findest du ein entsprechendes Video zu dem Thema: vbatrainer.de/daten-filtern/
Ich muss wissen wie ich für jede Zeile von der listbox eine eigenes Suchfeld hinzufügen kann Welches Video kann ich dafür schauen? Ich habe bereits einiges über dein Anleitungen geschafft 'aber jetzt ist das so, das ich wenn ich auf dem ersten Suchfeld suche, dan finde ich das was ich suche, aber wen ich auf dem zweiten Suchfeld suche dann verschwinden der teil vom ersten Suchfeld das ist gerade mein Problem
Hallo Kai. Vielen Dank für deine Videos. Ich finde sie super und bin fast schon süchtig danach;) Ich habe alles in meine Tabelle integrieren können ( Scroll- und Suchfunktion)! Jedoch wirft er mir jedes Mal einen Typenkonflikt aus, sobald ich die Listbox mit Zellen befüllen möchte, in denen sich Wörter statt Zahlen befinden. Du hast doch aber auch bei die Straßennamen unter dem Datentyp Long subsumiert. Vllt könntest du mir bei der Lösung helfen. VG
Hallo Kai. Was für tolle Videos Du doch machst... Danke. Ich hab hier allerdings ein klitzekleines Problem. Ich wollte in meine Listbox 6 Spalten einfügen (leider kann ich keine Intelligente Tabelle nutzen, da meine Daten über einen Filter ausgegeben werden via Formel). Kann ich die Spalten doch ansprechen, denn wenn ich die Zeilen hochzählwn möchte, werden keine Daten in der Listbox angezeigt... aber vielleicht mache ich auch was falsch! 😂 LG
Vielen Dank für dein Lob. Vielleicht hilft dir mein Video zum Thema Intelligente Tabellen weiter: ruclips.net/video/ey3xPAHNO2g/видео.html Hier erstellen wir auch direkt per VBA eine intelligente Tabelle. Viel Erfolg bei deinem Projekt
Hallo Kai, dein Video ist der Hit und werde es sehr oft einbauen. Aber eine Frage habe ich dennoch. Anstelle einer ID habe ich eine eindeutige Kundennummer. Diese hat ein spezielles Format: 16.00000.0. Wie kann ich dieses Format in der ListBox wiedergegeben? MfG Annett
guten Morgen Die markierten Zeilen einer Listbox addieren und Ergebnis in einer TextBox anzeigen auf Grundlage deines Videos wäre super, diesbezüglich komme ich nicht weiter wenn du mir da weiterhelfen könntest wäre dies eine coole Sache Philipp
Hallo! Erst einmal vielen Dank für das Video :D. Ich habe in meinem VBA nur gerade ein Problem: aus irgend einem Grund findet er den .AddItem Befehl aus Minute 7:57 nicht. Ich habe alles so im Programm geschrieben, wie Du im Video. Vielleicht hast Du, oder ein anderer VBA Begeisterter Kollege Deiner Community eine Lösung oder einen Tipp für mich? LG
Hallo Kai, Wirklich tolles video. Ich wollte dich mal fragen, ob du vielleicht eine Idee hast, wie man direkt mit dieser Auswahl die man getroffen hat weiterarbeiten kann. Das heißt, dass man eine Auswahl zuerst auswählt und dann bei dieser Zeile etwas verändern kann oder sich etwas ausgeben kann. Das würde ich mit dem Index machen bzw. mit dem Wert von Row dieser Zeile. Diesen müsste man dann ja irgendwo zwischenspeichern, um mit diesem ( auf einer anderen Userform ) zu arbeiten. Das heist dass man durch die Suchfunktion den Index bzw Row Wert von einer Reihe aus Daten (Name Adresse, Datum...) bekommt und diesen Row Wert dann speichert und sich auf einer anderen Userform zu diesem Row Wert bestimmte Sachen ausgeben bzw Sachen einlesen kann. Hast du eine Idee wie man dieses Zwischenspeichern macht, bzw wie kommt man durch das Anklicken eines Suchergebnisses dann zu seinem Rowwert(index) Vielen Dank im Voraus und viel Erfolg noch Machst echt tolle Videos Jonas
Hallo Jonas, vielen Dank für deinen Kommentar :) Du kannst dir in die UserForm ein Label einfügen mit dem Index/Row-Wert und das Label aus Visible False setzen. Ich hoffe das hilft dir weiter :) LG Kai
@@KaiWeissmann hallo Kai, Danke dir vielmals für deine schnelle Antwort. Ich habe mich nur gefragt, wie ich dann auf den Wert dieses ausgewählten objekts komme. Habe dafür in der Listbox eine Spalte eingeführt mit dem Zeilewert der Auswahl, den man aber nicht sieht. Jetzt würde Ich gerne wissen, wie man an diesen Zeilenwert herankommt. Habe schon versucht mit me.Listbox(0,2).Value (weil der Zeilenwert in der dritten Spalte ist) aber irgendwie klappt das nicht Hast du vielleicht wieder einmal eine Idee Vielen Dank im Voraus und einen schönen Tag Jonas
@@jonny9044 mit ListBox1.List(ListBox1.ListIndex, 0) greifst du auf den Wert der selektierten Zeile in Spalte 1 der Listbox zu. Für Spalte 2 dann einfach die 0 zu einer 1 machen. Hoffe das hilft dir weiter :) LG Kai
@@KaiWeissmann Dankeschön, bist der beste. Bin echt viel weiter gekommen dadurch. Ich wollt noch ein bisschen formatieren und die ausgewählte zeile schwarz markieren und die Schrift dann weis aufleuchten (in selected row) . Geht das überhaupt ? Aber auf jeden Fall noch einmal danke beste grüße
Hallo Jonny, zu deiner Anfrage bezüglich dem Doppelklick in einer ListBox habe ich jetzt ein Video erstellt: ruclips.net/video/E7czhByIOQc/видео.html Ich hoffe damit kannst du dein Problem lösen :) LG Kai
Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": ruclips.net/video/Kl9vcB3ejgk/видео.html Ich wünsche dir für deine Projekte alles Gute.
Hallo Kai, also zunächst mal vielen Dank für die ganzen Videos hier auf dem Kanal. Wirklich eine super Arbeit. Nun zu meiner Frage. Habe es mit Hilfe des Videos geschafft mir eine Listbox mit Suchfunktion zu erstellen. Mein Code sieht zwar teilweise etwas komisch aus, aber er funktioniert :D. Mein Problem ist jetzt, dass die Tabelle aus welcher ich einlese mehrere 1000 Zeilen (und 8 Spalten) hat und excel mir dabei nur die Fehlermeldung "keine Rückmeldung" gibt. Bis etwa 1000 Zeilen funktioniert es noch, wobei die Ladezeiten auch da schon zu lang sind um praktikabel damit zu arbeiten. Kann man das Problem irgendwie umgehen? Mit freundlichsten Grüßen der Andy
Vielleicht hilft dir die Arbeit mit einem Array. Siehe dir dazu am besten mein Video an: ruclips.net/video/M4pa_uHeRNc/видео.html Ich hoffe das hilft dir weiter.
Super Video, vielen Dank dafür 😊. Gibt es eine elegante Möglichkeit, mit Wildcard * auf ein Feld zu arbeiten? Suche nach einer Möglichkeit, über Bestandteile der Artikelbezeichnung eine Nummer per Doppelklick zu übernehmen. Vielen Dank für einen Tipp. 🙏🏼
Hallo, Wildcardabfragen kann man mit dem LIKE-Operator ausführen: If LCase(strName(x)) like LCase("M?ier") :' Vergleicht ob in dem Array strName(x) z.B. der Name Meier oder Maier vorkommt. Es sind folgende Platzhalter im 2. String ( auch "Pattern" genannt)möglich: ? EIn beliebiges Zeichen * Nichts oder beliebig viele beliebige Zeichen # beliebige Ziffer [a-f] Buchstaben von a bis f [!a-f] alle Zeichen außer Zeichen von a bis f [!z] alles außer z Im Beispie würde ich es wie folgt ändern: If InStr(1, LCase(lcase Verkaeufe.Cells(Zeile, 6).Value), LCase(Me.Textbox1.Value)) 0 _ Or LCase(scrLB.Cells(lngZeile, 1).Value) Like LCase(Me.txtSuche.Value) Then dann hat man beide Möglichkeiten oder: If LCase(scrLB.Cells(lngZeile, 1).Value) Like LCase(Me.txtSuche.Value) Then dann würde nur nach dem LIKE-Operator ausgewählt. Ich hoffe, das ich geholfen habe. Gruß Andre
die Suche funktioniert, es ist MEGA aber das Suchergebnis lässt sich nicht auswählen und dann bearbeiten, bitte hier nochmal den letzten Feinschliff nachlegen
Servus erstmal danke für das tolle Video! ich habe da nur eine Sache und zwar möchte ich das die Userform immer in der obersten Ebene geöffnet wird, also immer in der Front. mit der Zorder geht es ja nicht =/ vielen lieben dank schonmal =)
Hey Stefan, vielen Dank für deinen Kommentar :) Du möchtest die UserForm ohne Excel öffnen? Das kannst du tatsächlich mit VBS (Visual Basic Script) machen. Ansonsten sind UserFormen standardmäßig eigentlich in der obersten Ebene. LG Kai
@@KaiWeissmann Ja im besten fall öffne ich nur die UserForm, diese gibt nur kalkulationswerte aus und die Excel-Datei benötigt der User nicht. Aktuell öffne ich Excel nicht sichtbar und beim Start öffnet die UserForm. Soweit alles supi, aber wenn man zB. Explorer offen hat, sieht man die UF nicht, da dieser die UF verdeckt. vielleicht hast du ja eine Idee. LG Stefan =)
Hey Stefan, das klingt nach einer super Idee! Leider habe ich auf die Schnelle keine Lösung für dein Problem, da die UserForm durch Excel geöffnet wird. D.h. entweder sehen wir Excel oder wir blenden es aus - ein Zwischending fällt mir gerade leider nicht ein. Ich habe es aber mal auf meine Liste geschrieben, da ich auch mal ein Video dazu machen wollte, wie man eine UserForm ohne die Excel öffnet. Sobald ich mich daransetze, schaue ich mir das Problem nochmal genauer an. Dir weiterhin alles Gute bei deinem Projekt! LG Kai
@@KaiWeissmann Na das beruhigt mich schonmal =) dachte bin einfach zu doof =D Da warte ich mal gespannt ob du eine Lösung gefunden hast =P bis dahin weiter machen =D LG Stefan
Klappt einwandfrei, mit einem Suchbegriff. Ich habe hier eine Excel_tabelle mit kanpp 8000 Zeilen. In einer Spalte steht relativ viel Text, aber das suchen funktioniert. Nun ist die Liste manchmal recht lang und unübersichtlich. Wie kann ich die Ergebnisliste mit einem zweiten Suchbegriff weiter einschränken? In Access habe ich es hinbekommen, VBA will nicht so wie ich will,
Hallo, wenn ich dich richtig verstehe, dann willst du, nach mehreren Begriffen in einer Spalte gleichzeitig suchen. Das kannst du machen, indem du die Suche mit dem And-Operator erweiterst. Der Code sieht dann ungefähr so aus If InStr(1, LCase(Verkaeufe.Cells(Zeile, 6).Value), LCase(Me.TextBox1.Value)) 0 And _ InStr(1, LCase(Verkaeufe.Cells(Zeile, 6).Value), LCase(Me.TextBox2.Value)) 0 Dabei zielt der zweite Vergleich auf eine andere TextBox ab. Ich hoffe das hilft dir weiter. LG Kai :)
@@KaiWeissmann So weit war ich auch schon, leider ohne das gewünschte Ergebnis. Die Abfrage kümmert sich nicht um die zweite TextBox. Und if InStr(...) 0 and if InStr(...) 0 ergibt bei mir eine Fehlermeldung. Auch anders verschachtelt If then und dann ein zweites if then bringt nicht das gewünschte Ergebnis. Ich probiere weiter und melde mich, falls ich was gefunden habe. In Python klappt das mit einer Doppelschleife.
@@KaiWeissmann So sieht die Zeile bei mir aus (Spalte 6 war zufällig auch die bei mir). Das Tabellenblatt habe ich in Verkaeufe umbenannt : If (InStr(1, LCase(Verkaeufe.Cells(Lzeile, 6).Value), LCase(Me.TextBox_Suchen1.Value)) 0 And InStr(1, LCase(Verkaeufe.Cells(Lzeile, 6).Value), LCase(Me.TextBox_Suchen2.Value)) 0) Then ..., dann füllt sich die Listbox entsprechend nach dem Suchbegriff in Suchfeld 1. Der Begriff aus Suchfeld2 wird ignoriert. Drehe ich die Suchbegriffe um ergibt sich das gleiche Bild. Begriff aus Suchfeld1 wird gefunden, Suchfeld2 wird ignoriert.
Moin Kai, vielen Dank für die Videos. Das hilft sehr. Ich habe meine ListBox mit der AddItem Methode gefüllt und dann mit InStr die Suchfunktion, wie im Video beschrieben, gebaut. Mein Problem ist, dass meine Tabelle, aus der ich die Daten für die Listbox ziehe, ca. 5000 Zeilen und 9 Spalten hat. Ergebnis, die Userform öffnet sehr langsam und die Suchfunktion hakt total. Ich habe das Befüllen der Listbox inzwischen über die Array Funktion gelöst, habe aber das haken bei der Sucheingabe noch nicht lösen können. Hast du einen Tipp für mich? Das würde mir sehr helfen. Vielen Dank. Gruß Anton
Hallo Kai, sehr gutes Video. Wenn du mir jetzt noch zeigen kannst wie ich aus der Listbox einen Eintrag anklicken kann und via Button in eine andere Tabelle einfügen kann per Cut Copy wärst du mein Held. Danke für das Video liebe Grüße.
Hallo Strikerlein, vielen Dank für deinen Kommentar :) Das ausgewählte Element in einer Listbox kannst du dir mit msgbox ListBox1.List(ListBox1.ListIndex, 0) zurückgeben lassen. Wenn du die zweite Spalte ansprechen möchtest, dann änderst du die 0 zu einer 1 usw. Ich hoffe das hilft dir weiter :) LG Kai
@@KaiWeissmann Ich werde es versuchen. Danke dir. Bin erst seit einer Woche in VBA drin und habe nichts davon gelernt. Bin beruflich da reingestolpert und muss mir alles selber bei bringen. Verstehen kann ich nur Bahnhof habe aber schon ein wenig hinbekommen. Brauch das alles für die Arbeit leider. Wenn du eine Mail hast würde ich dir meine Arbeit mal zu kommen lassen damit du mal drüber schauen kannst. Wäre auf jeden Fall mal ne gut Hilfestellung. Gibt es ein Buch das du zu Excel Empfehlen kannst ?
Hallo Strikerlein, ein Buch zu VBA kann ich derzeit leider nicht empfehlen. Meine Mailadresse ist: mail@vbatrainer.de Allerdings komme ich außerhalb meiner Kurse/Coachings zeitlich nicht dazu, Code zu reviewen. Ich wünsche dir auf jeden Fall weiterhin alles Gute beim Lernen :) LG Kai
Hallo Strikerlein, ich habe diese Woche ein Video erstellt, wie du mit einem Doppelklick zum Eintrag in der Excel-Tabelle kommst: ruclips.net/video/E7czhByIOQc/видео.html Du kannst den Code so anpassen, dass du diese Zeile per Cut/Copy woanders einfügst. Ich hoffe damit kannst du dein Problem lösen :) LG Kai
Ich vermute, dass "Daten" der Name Deines Arbeitsblattes und der Codename des Arbeitsblattes ein anderer ist (per default SheetX mit X als Zahl). Solltest Du wirklich mit dem "Tabellenblattnamen" arbeiten, dann geht es so nicht , sondern z. B. per Worksheets("Daten").Cells(..) und nicht so wie bei Dir mit Daten.Cells (...). Arbeitsblätter können aber immer vom Nutzer umbenannt werden, dann würde der Code nicht mehr gehen. Daher immer die Empfehlung: Nutze den Codename eines Arbeitsblattes... dazu in der IDE (Alt+F11) das Tabellenblatt anschauen... dort siehst Du in der Auflistung der Arbeitsblätter immer 2 Namen: links den Codename, den Du dann wie bei Dir direkt als z. B. codeNameDaten.Cells... nutzen kannst (und solltest)... und rechts den Arbeitsblattnamen, wie die Nutzer ihn nur sehen können.
Warum erklären nicht alle das so ????? Einfach super.
Hallo Matthias, vielen Dank für das Kompliment! LG Kai
Super Videotutorial, es erklärt sehr gut wie eine ListBox erzeugt und mit Daten befüllt wird. Das Video "ListBox ausgewählten Eintrag auslesen | Excel VBA" ist ebenfalls in diesem Zusammenhang sehr hilfreich. 👍
Kai, das ist perfekt 👌🏻 Du bist ein echt wunderbarer Speaker, deine Videos sind stets klar und deutlich und Du für mich hier auf RUclips- Mr. VBA! Danke 🤩
Hey Tommy!
Vielen Dank für dein Feedback!
Viel Erfolg bei deinen Projekten.
Lg, Kai
Hallo Kai, also ich kann der Aussage von Tommy nur beipflichten, ich habe mir deine ganzen Videos verlinkt und es macht mir richtig Spaß deinen Ausführungen zu folgen und dann sofort den Erfolg auf dem eigenen Rechner zu sehen. So hat mir noch keiner ein neues Thema beigebracht und man merkt, daß dir etwas daran liegt, daß dein "Schüler" es tatsächlich begreift und du nicht nur einen "Vortrag" hältst!
Vielen Dank für deine Mühe, ich bin einfach nur begeistert!
@@KaiWeissmann Lieber Kai- jetzt habe ich noch eine Frage an dich mit der Bitte um Unterstützung. Ich habe zu diesem Video auch dein Video "ListBox Doppelklick" in meinem Projekt eingepflegt. Nun suche ich etwas, markiere in der ListBox1 die gewünschte Zeile - doppelklicke diese aber er wirft einen Fehler aus. Laufzeitfehler '1004' - Anwendungs- oder objektdefinierter Fehler. Wähle ich aus der ListBox1 (ohne Suche) den gewünschten Wert aus, doppelklicke diesen- dann geht er in der Tabelle auf diesen korrekt. KAI VIELEN DANK!!!!!
Genial erklärt. Immer mit nützliche Anwendungen. Empfehlenswert. Danke!
Hey Andreas!
Sehr gerne!
Lg, Kai
Ich bin jemand, der eigentlich nie bei RUclips etwas kommentiert. Ich muss dir ein ganz ganz dickes Dankeschön für das überragende Video dar lassen, weil ich seit ca 2 Wochen für meine Arbeit auf der Suche nach einer gescheiten Suchfunktion bin. Dickes Upgrade für mein Programm, hat sofort funktioniert. Die Kollegen werden sich bedanken 😎
Hey Markus, vielen Dank für dein sehr nettes Feedback! Freut mich, dass du das Video umgesetzt hast und es auch direkt funktioniert hat :)
@@KaiWeissmann
Eine Frage habe ich noch:
Besteht die Möglichkeit mit deiner Lösung auch mehrere Spalten nach dem Begriff zu durchsuchen?
Hey Markus, klar geht das. Zeige ich ab 14:50 :)
Was soll ich dazu sagen? Einfach SUPER!!!!! Werde es gleich nachbauen. Vielen Dank.
Hallo Jürgen, das ist ja mal ein geiles Feedback. Vielen Dank dafür :)
@@KaiWeissmann Hallo Kai, da ich mit knapp 70 Jahren begonnen habe, VBA zu lernen, deine Beiträge sehr verständlich sind, muss man deine Bemühungen loben. Ich wünsche Dir für deine Arbeit unendlich viele Abonnenten. :-)
Hallo Kai, deine Erklärungen sind super und haben mir schon
Guten Morgen, Kai! Danke, für deine rasche Beantwortung meiner Anfrage per Mail! Auch bedanke ich mich für den Verweis auf dieses Video. Ich werde den Lerninhalt in mein Projekt umwandeln. Hab noch einen erfolgreichen Tag und bis bald! Schöne Grüße aus Österreich!
Guten Morgen Anibunny!
Danke für dein Kommentar.
Es freut mich, dass ich dir behilflich sein konnte.
Alles Gute für dein Projekt!
Lg, Kai
Auch gut veranschaulicht! 👍
Danke für deine Arbeit!😉🤟😎
Hey John!
Sehr gerne!
LG, Kai
Ein Mega cooles Video. Ich hatte noch nie etwas mit VBA zu tun. Nach diesem Video habe ich Dinger erstellen können, von denen ich letzte Woche noch geträumt hätte. Ein fettes Like und ein fettes Dankeschön!!! 👌☺️
Hey Tayfun!
Danke für dein Feedback!
Freut mich, dass ich dir VBA näher bringen konnte!
Lg, Kai
Super Erklärvideo, Danke dafür 👍
Hey Matt, danke für dein nettes Feedback :)
Hallo Kai, danke, hast Du sehr gut erklärt. Hat mir prima geholfen. Gruß Michael
Hallo Michael, freut mich, dass dir das Video weitergeholfen hast!
absolut top erklärt👍 vielen Dank und mach weiter so immer wieder interessant deine Tutuorials
Sehr gerne!
Es freut mich, dass dir meine Videos gefallen.
Alles Gute bei deinen Projekten.
Wirklich super erklärt. Dankeschön
Sehr gerne 😊
Genial! Super danke!!
Sehr gerne!
Es freut mich, dass dir das Video gefällt.
Super Idee - Danke!
Mal schauen, ob ich das in Access hinbekomme...
Super Video Danke
Hey Chris!
Gerne.
Danke für dein Kommentar!
Lg, Kai
Einfach Super.
Freut mich :)
Hallo Kai,
ich habe mir diese Userform erstellt und das klappt super, danke dafür, aber ich möchte beim Doppelclick auf einen der gefundenen Einträge die entsprechende Zelle in der ersten Spalte in der Datenbank selektieren und gleichzeitig soll die Listbox wieder ausgeblendet werden.
Wie muß ich hier vorgehen?
Siehe dazu gerne mein Video zum Thema Listbox Doppelklick: ruclips.net/video/E7czhByIOQc/видео.html
Ich hoffe das hilft dir weiter.
Hi Kai, echt klasse was du in deinen ganzen Videos so zeigst. Danke dafür.
Ich habe bereits aus mehreren Videos mit eine wunderbare excel Datei gebastelt. Nur hänge ich an einem Punkt fest. Du hast hier im Video wunderbar erklärt wie das mit dem suchen funktioniert. Nur hast du in einem anderen Video eine andere Art gewählt eine Listbox zu füllen.
(Eingabetaste mit Datenbank ….)
Ich bekomme beide Arten nicht übereinander, sodass ich auch bei dieser Art in der Listbox suchen kann.
Da hast du bestimmt auch eine kleine Idee für mich, oder?
Vielleicht hilft dir das Video "Listbox befüllen" weiter, in dem ich die verschiedenen Methoden zeige: ruclips.net/video/1EHq_JLHKlI/видео.html
Wie immer ein klasse Video :) Das Lagerverwaltungstool habe ich mit deinen Videos nachgebaut und um ein paar Features erweitert. Leider bekomme ich die Suchfunktion nicht in die Lagerverwaltung integriert. Hier wäre es schön gewesen auch dies im zusammenhang mit dem Lagerverwaltungstool erklärt zu bekommen. Als VBA Noob macht es das Verständlicher. 😅😅
Sehr sympathisch
Hallo Kai schöne Grüsse von den Philippinen
Tolles Video ich habe eine Frage dazu
Geht die Suchfunktion auch über eine Combo box mit schon hinterlegten Inhalten.
Beispiel. Ich habe alle Firmennahmen in der Combo box hinterlegt und wen ich zb. HZI anklicke sehe ich nur Mitarbeiter von HZI in der List box?
Hallo Joachim, schöne Grüße auf die Philippinen :)
Ja, diese Art der Suche kannst du auch mit einer ComboBox umsetzen.
LG Kai
Hallo Kai und Team. Gibt es auch die Möglichkeit, eine solche Suchfunktion in einer ComboBox zu realisieren? Ansonsten schließe ich mich meinen Vorschreibern an, die Videos sind einfach super und durch die Step-by-Step Erklärungen auch für Anfänger verständlich. Macht einfach weiter so. 👌
Im Eigenschaftenfenster der ComboBox findest du Einstellungen zum Style.
0 - fmStyleDropDownCombo bedeutet, dass du Eingaben in der ComboBox tätigen kannst. Zutreffende Werte werden dann auch gesucht und automatisch eingetragen. Jedoch können komplett neu eingetragenen Werte auch eingetragen werden.
Das könntest du wenn gewünscht mit einer Überprüfung abfangen, und gegebenenfalls eine Messagebox anzeigen lassen "Bitte nur Werte aus der List eintragen".
2 - fmStyleDropDownList bedeutet, dass keine Eingaben möglich sind und die aufgelisteten Werte angeklickt werden müssen für die Auswahl.
Ich hoffe das hilft dir weiter.
Hallo Kai. Erstmal vorweg, super Videos von dir. Deine Art zu erklären ist echt 👍🏻. Vielen Dank dafür. Man nimmt immer wieder was mit. Ich habe dich schon bei Kollegen empfohlen. Ich hätte eine Frage zu diesem Thema. Es geht darum, ob du mal ein Video machen könntest, in dem du auf die Double klick Thematik eingehen könntest? So das man aus der UserForm dann in die entsprechende Zeile springen kann. Ich habe das versucht aber bekomme es irgend nicht so recht hin. Also mal ein Video davon wäre echt eine coole Sache.
Ansonsten weiter so 👍🏻👍🏻👍🏻
Hey Daniel, danke für das nette Feedback und deine Videoidee. Ich veröffentliche in ein paar Wochen ein Video zu einem Warenwirtschaftssystem und da behandle ich das genau. Schau am besten dort mal rein und falls es damit nicht klar werden sollte, dann schreib mir gerne danach nochmal :) LG Kai
Hallo Daniel, zu deiner Anfrage habe ich jetzt ein Video erstellt:
ruclips.net/video/E7czhByIOQc/видео.html
Ich hoffe damit kannst du dein Problem lösen :)
LG Kai
Super!! Kai besten Dank für deine super Videos
zu diesem habe ich eine Frage kann ich aus der Listbox direkt anwählen mit Click und diese Daten in definerten Zelle ausgeben ?
Hey Philipp!
Sehr gerne!
Ich habe vor einiger Zeit ein Video zum Thema "Listbox Doppelklick" erstellt: ruclips.net/video/E7czhByIOQc/видео.html
Vielleicht hilft dir das weiter!
Alles Gute für dein Projekt!
Lg, Kai
besten Dank für deine Antwort
könntest du mir einen Tipp geben wie ich eine Mehrfachauswahl in der Listbox einfügen kann
so dass alle ausgewählten Daten dann in einem separatem Worksheet ausweisen kann geht das überhaupt?
besten Dank für deine Rückmeldung
Hey Kai hier meine Angedachte Lösung ....................funktioniert leider noch nicht wie gewünscht
Option Explicit
Sub Multi_Listbox_auslesen()
'Auslesen aller in einer Listbox selektierten Einträge (Multiselect)
' Dimensionierung der Variablen
Dim i As Integer
Dim lngCnt As Long
'Startzeile festelegen
lngCnt = 4
'Ausgabebereich löschen
ActiveSheet.Range("H4:H16").ClearContents
With Sheets(1).ListBox1
'Beenden, wenn nichts ausgewählt wurde
If .ListIndex = -1 Then Exit Sub
'Listbox durchlaufen
For i = 0 To .ListCount - 1
'Gewählte Einträge auslesen
If .Selected(i) Then
txt = .List(i)
'Eintragen der gewählten Einträge auf Tabellenblatt
ActiveSheet.Cells(lngCnt, 8).Value = txt
'Zeilenzähler erhöhen
lngCnt = lngCnt + 1
End If
Next
End With
End Sub
Private Sub ListBox1_Click()
End Sub
Private Sub TextBox1_Change()
Dim Zeile As Long
'Listbox leeren
Me.ListBox1.Clear
'Schleife über alle Zeilen der Tabelle
For Zeile = 1 To Dropdown.Cells(Rows.Count, 1).End(xlUp).Row
If InStr(1, LCase(Dropdown.Cells(Zeile, 1).Value), LCase(Me.TextBox1.Value)) 0 Then
'Listbox befüllen
Me.ListBox1.AddItem Dropdown.Cells(Zeile, 1).Value
End If
Next Zeile
End Sub
Private Sub UserForm_Initialize()
Dim Zeile As Long
'Schleife über alle Zeilen der Tabelle
For Zeile = 1 To Dropdown.Cells(Rows.Count, 1).End(xlUp).Row
'Listbox befüllen
Me.ListBox1.AddItem Dropdown.Cells(Zeile, 1).Value
Next Zeile
'erste Element auswählen
Me.ListBox1.Selected(0) = True
End Sub
könntest du mal darauf schauen ob ich auf dem richtigen Weg bin
ich danke dir schon im Vorfeld vielmals
Philipp
Hallo Kai, immer wieder sehr gut gemachte Videos von Dir, vielen Dank dafür! :) Eine Frage hab noch: Kann die Suche für bestimmte Spalten auch auf "Beginnt mit" geändert werden? Ich habe zum Beispiel in einer Spalte Postleitzahlen. Hier ist die Suche mit "enthält" nicht so praktisch. Viele Grüße, Tom
Hallo Kai, in meinem konkreten Fall suche ich nach einer Lösung eine List Box Filtern zu können indem eine comboBox relevante Spaltenüberschriften (>10) als Kriterium wiedergibt und ein Textfeld als Suchfeld fungiert. Die listbox sollte die Spalten der comboBox enthalten.
Du hast bestimmt eine praktikablen Lösungsansatz- bei meiner Recherche bin ich zwar auf einige Ansätze gestossen, taugten aber nicht viel. Freue mich von dir zu hören.
Hallo Kai, vielen Dank für die sehr gute Erklärung und das anschauliche Video. Ich habe dies gleich ausprobiert - klappt wunderbar - nur wenn ich Spalte habe in der Formeln sind, dann bringt er mir eine Fehlermeldung. Was kann ich hier tun?
Hi Kai, erstmal vielen Dank für Deine Videos. Informativ und spannend welche Möglichkeiten VBA bietet. Großes Lob an Dich. Eine Frage habe ich allerdings. Kann man nicht mit Option Base den Index selber festlegen (zum Video ListBox zweite Spalte hinzufügen - 8:35)? Gruß Lars
Hallo Kai, klasse Videos und super lehrreich!
Was ich in deinen ganzen Videos bisher nicht finden konnte ich die Möglichkeit, in einer gefilterten Listbox das korrekte Element auszulesen. Der Index der Listbox ist nach der Suche unverändert (bspw. 17:24: Die "113" korreliert beim Ansprechen (DblClick o.ä.) nicht mit Zeile 113 sondern mit Zeile 2 (da es der zweite Eintrag ist).
Wie löst man das Problem, auch gefilterte Elemente in der Listbox korrekt anzusprechen?
Hallo Paul, am besten liest du das direkt aus der ListBox aus.
Das derzeit aktivierte Element kannst du mit
ListBox1.List(ListBox1.ListIndex,0)
auslesen. 0 ist dabei die erste Spalte. Wenn du eine andere haben möchtest, dann um 1 erhöhen.
Ich werde in den nächsten Wochen dazu auch nochmal ein Video erstellen.
LG Kai
Hallo Kai. Hast du zu der Frage von Paul schon ein Video gemacht.? Ich stehe vor dem selben Rätsel! 😏
Wieder tolles Video. Wie könnte man in den gefundenen Datensätzen einen bestimmten auswählen und in die editiermaske wechseln? Toll wären auch checkboxen in denen man einzelne oder alle spalten zur Suche hinzufügen kann. Klingt immer n bissl nach meckern da fehlt was, aber solls definitiv nicht sein. Sind nur Ideen die in meinem Kopf rum schwirren. 😉
Hey KGBMavericK!
Danke für dein Kommentar.
Vielleicht hilft dir das "Listbox Doppelklick" Video von mir für deine Problemstellung: ruclips.net/video/E7czhByIOQc/видео.html
Und zum Thema Spalten Sichtbarkeit habe ich auch ein Video bereits gemacht: ruclips.net/video/Xt1ZyJxcwZ0/видео.html
Mit ein paar Anpassungen im Code könntest du z.B. nur die sichtbaren Spalten durchsuchen und per Doppelklick nicht in die Zeile, sondern eben in eine Editirmaske mit vorausgefüllten werten springen.
Hoffe das hilft dir für dein Projekt.
Lg, Kai
Tolles Video, da musste ich den Kanal gleich abonnieren :)
Perfekt :)
@@KaiWeissmann p.s. ich wäre sehr daran interessiert, wenn du ein wenig tiefer in die Materie einsteigen könntest (Apis). Zb Zugriff auf MySQL Datenbanken oder Windows Apis auf Dateiebene etc. Alles was halt nützlich ist :)
@@stevewichmann5148 Zu Datenbanken erstelle ich gerade einen Kurs. Das dauert allerdings noch ein bisschen bis ich den veröffentlichen kann :) LG Kai
Vielen Dank für das tolle Video! Super erklärt!
Hat auch besten funktioniert.
Gerne möchte ich zusätzlich noch die Überschriften anzeigen und Textumbrüche, welche in (Bei mir zB Spalte 4 sind) anzuzeigen.
Gibt es dafür eine lösung bzw ein Video ? :) vielen Dank, lg
Super hat geklappt..
Hallo Kai, danke für die Rückmeldung :)
Wieder ausgezeichnet erklärt; bei mir tritt aber, wenn ich was in das Textfeld eingebe, der Fehler „Objektvariable nicht festgelegt“ auf, obwohl diese Code-Zeile identisch ist mit der, mit der ich die 2. Spalte einer Excel-Tabelle in die Listbox einlese. Daher die Frage: Funktioniert der Such-Code auch bei Excel-Tabellen, die in eine dreispaltige Listbox eingelesen werden, wie in einem anderen Video von dir demonstriert?)
Hallo Christian, freut mich, dass dir die Erklärung gefällt. Woran dein Fehler im Einzelnen liegt, kann ich aus der Ferndiagnose leider nicht sagen. Prinzipiell funktioniert der Code aber auch mit 3 und mehr Spalten. LG Kai
Sehr gut erklärt 👌 ich hätte da aber eine frage, ich würde gerne eine Listbox anzeigen lassen mit gleichen Ergebnissen wie in der suchbox die als zelle im Tabellenblatt hinterlegt ist, wo man dann den Eintrag auswählen kann den man dann zb bearbeiten möchte. Als bsp. Ich suche nach "Horst" und dann kommt die listbox mit 5x Horst aber jeweils eine ander Adresse aus der man dann auswählt welche daten dann in das Tabellenblatt eingefügt werden
Dazu würde ich das Listbox Doppelklick Event verwenden.
Das zeige ich in diesem Video: ruclips.net/video/E7czhByIOQc/видео.html
Hoffe das hilft dir.
Lg, Kai
@@KaiWeissmann Top 👍 danke dir, hat mir zumindest geholfen zu verstehen wie ich es modifiziern muss um es für mein zweck anwenden zu können 😁
hey Kai, echt hilfreiche Videos! Hab da ein Problem. Die Suche funktioniert bei mir in der Userform, sobald ich suche aktualisiert sich die Listbox nicht für den Eintrag in die nächste Userform. Es werden die Zeilen aus der Tabelle genommen. Was kann ich da machen?
Hallo Christian, freut mich, dass dir das Video gefällt! Ich weiß nicht genau, was du meinst. In dem Video zeige ich eine UserForm mit einer TextBox, die zur Suche dient und einer ListBox, die als Ausgabe der Suche dient. LG Kai
Moin, ja dem ganzen Stimme ich zu, alles sehr gut gemacht - dabei hätte ich eine Frage: dies alles gilt anscheinend für MS Excel. Ich selbst bin LibreOffice Nutzer und ständig auf der Suche nach Jemanden, der dort mal vernünftig ( evtl. so von Ihrer Qualität) und Verständlich erklärt, wie man dort Makros in Basic schreibt.... für mich - vorzugsweise in LO-Base. Für Tips etc, Vielen Dank
Hi Kai,
ich konnte deine Listbox-Suche erfolgreich einsetzen. Vielen Dank für das aufschlussreiche Video.
Allerdings versuche ich nun seit geraumer Zeit, meine Tabellenheader in der Listbox anzuzeigen. Ich habe bereits die RowSource gesetzt, aber sobald ich versuche die Listbox zu füllen erhalte ich den Laufzeitfehler 70.
Hättest du hierfür einen Lösungsvorschlag?
Viele Grüße,
Sebastian
Hi Sebastian,
mittlerweile habe ich dazu ein ausführliches Video erstellt: ruclips.net/video/1EHq_JLHKlI/видео.html
LG Kai
Hallo Kai, erstmal ein großes Lob für deine Tutorials. Ich habe mir sehr viele VBA Videos angeschaut, bin aber bei dir hängengeblieben, da du wirklich sehr gut für Einsteiger erklärst. Nachdem ich einige deiner Videos durchgearbeitet habe, konnte ich mir für meine Zwecke schon was ordentliches zusammen Basteln ;). Und das nicht nur mit Copy and Paste, sondern das ich auch verstanden habe was ich da mache.
Doch jetzt bin ich an einem Punkt angekommen an dem ich nicht weiter komme. Ich habe deine Suche in mein Projekt integriert habe aber schwierigkeiten die richtigen Ergebnisse auszulesen. Ich möchte nach Zahlen suchen, bekomme aber nicht hin das mir nur die eindeutigen Zahlen angezeigt werden. Z.Bsp: möcht ich die Zahl 22 suchen und möchte auch nur die angezeigt bekommen und nicht die Zahlen 122 und 222. Ich denke das ich dafür das Argument "LookAt:= _ xlWhole" benutzen müsste, weiß aber nicht wie ich es in der Suche integrieren muss. Ich würde mich sehr freuen wenn Du mir da Hilfestellung geben könntest, damit ich mein Projekt abschließen kann.
Danke und mach weiter so.
Andree
Hallo Andre, freut mich, dass dir meine Videos gefallen.
Du könntest statt InStr() Left() oder Right() nutzen und zusätzlich mit Len() prüfen, ob die Strings die selbe Länge haben. Mehr zu den String-Funktionen findest du hier: vbatrainer.de/string-funktionen/
LG Kai
@@KaiWeissmann Hallo Kai, danke für deine Antwort und deinen Hinweis. Werde mich am Wochende mal dran setzten.
Hallo Kai, super hilfreiches Video!
Wäre es möglich einen Bereich zu Suchen z.B. von PLZ 40215 bis 40231 und nur diesen Bereich in der Listbox anzeigen zu lassen?
Hallo Kai, ausgezeichnetes Tutorial, du hast es sehr gut erklärt und ich konnte es bei mehreren Projekten anpassen. Es gibt nur ein Problem, das ich nicht lösen kann. Nachdem ich einige Buchstaben in die Textbox eingegeben habe, wird der Inhalt der Listbox nicht automatisch aktualisiert, sondern ich muss mit der Maus in die Listbox klicken, um die gefilterten Einträge zu sehen. Das Gleiche passiert, wenn ich die Textbox leere. Um wieder die gesamte Liste zu sehen, muss ich immer noch mit der Maus hineinklicken. Woran kann das liegen? Ich danke Ihnen für Ihre Hilfe.
Das Video kam ja echt zur passenden Zeit. Die Suchfunktion hat mich schon verrückt gemacht. Aber deine Möglichkeit hier hat mir extrem geholfen. Also mein Abo hast du sicher. 😁
Eine Frage hab ich aber noch. Ich hab am Anfang gesehen, dass du in der ListBox gescrollt hast. Wie bekommt man das hin? Weil ich kenne die Scrollfunktion nur im ListView.
Hey Maik, super, dass dir das Video geholfen hat und vielen Dank für dein Abo :)
Wir können die Scroll-Funktion in der ListBox (und auch der ComboBox) mit einem Code aktivieren, der mit der Windows API interagiert. Ich mache dazu in den nächsten Wochen mal ein Video.
Falls du das schon vorher umsetzen möchtest, ist hier der Forum-Beitrag, aus dem ich das Ganze habe:
social.msdn.microsoft.com/Forums/en-US/7d584120-a929-4e7c-9ec2-9998ac639bea/mouse-scroll-in-userform-listbox-in-excel-2010?forum=isvvba
LG Kai :)
Cool danke dir. Hat einwandfrei funktioniert. 🤗👍
@@SanceZZ82 Wie hast Du das hinbekommen? Ich sehe dort keine Erklärung? Bin ich wohl der einzige ^^'
@@DonosDankos Wenn du das mit dem scrollen in der ListBox meinst, dann gehst du auf den Link den der Kai mir gepostet hat und nimmst den Code vom 12. Forumsbeitrag. Dort steht auch wohin der Code kopiert werden muss.
@@SanceZZ82 Jetzt habe ich es auch gesehen....man bin ich Blind. Ich danke Dir. Kai hat mir den Link auch schonmal geschickt aber da war ich eben auch blind und dachte mir, dass ich einfach auf das Video dazu warte ^^. Also auch nochmal danke an Kai.
Hallo Kai, tolles Video, mega Kanal. Die Suchfunktion ist klasse. Wie bekomme ich eine Suchfunktion mit mehreren Kriterien hin? Also 2 oder 3 Comboboxen, wo die Suche immer mehr eingegrenzt wird. Schon mal danke für deine Hilfe. Mach weiter so
Hallo Christian, vielen Dank für deinen Kommentar :)
Du kannst für jedes Kriterium eine eigene Textbox machen und den Inhalt der Textboxen in den Spalten mit der InStr-Funktion suchen. Ähnlich wie im Video suchst du dann nach mehreren Bedingungen in der If-Anweisung. In deinem Fall würdest du das allerdings mit dem And-Operator verbinden.
Ich hoffe das hilft dir weiter. Schreib mir gerne, ob das bei dir geklappt hat.
LG Kai
Also man kann sagen es ist gut erklärt und die Bild/Ton Qualität ist sehr gut, es ist angenehm seine Stimme zu hören.
Leider gab es wie bei einigen hier auch Probleme beim Auslesen, derzeit arbeite ich an eine Tabelle für unseren Verein und habe ihm das Problem geschildert und ihm Gefragt ob er helfen könnte.
Jedoch bekam ich nur eine Antwort für seine Schulungen im wert von 4.000€ und kein Wort über meine Anfrage, das hat mich schon etwas Sprachlos gemacht.
Er ist nicht auf einen Punkt meiner Anfrage eingegangen und das finde ich schon Dreist, das er gute Arbeit leistet und auch Kurse machen möchte um damit sein Lebensunterhalt zu bestreiten zu können, ist für mich auch i.O aber dann kann man Trotzdem auf die Fragen eingehen. So macht es den Eindruck von Vorgefertigter Text mit Null Bock zu Antworten Haltung, also Videos sind Top und Abseits sehr schwach.
Hallo Kai, danke für dieses super informative Video. Ich habe schon sehr viel von deinen Videos in meinem Projekten umsetzen können. Aktuell stehe ich vor folgendem :
Ich habe eine Listbox mithilfe des Array gemacht. Ich möchte dort eine suche einbauen die anhand zwei unterschiedlicher Kriterien suchen kann. Ich konnte das leider noch nicht umsetzen :(
Und als zweites hätte ich gerne, dass automatisch im dem Suchfeld ein in einer aktuell aktiven Zelle befindlicher Text steht. Dh. Zb. Ich befinde mich gerade in Zelle A1 dort steht der Text "Test" und öffne dann meine Userform, dort soll dann direkt nach Test gesucht und gefiltert sein. Geht sowas ?
Beste Grüße und mach weiter so !
Hallo, freut mich, dass dir das Video gefällt! Beides geht auf jeden Fall. Im ersten Fall brauchst du eine Schleife, die über das Array geht und die Werte mit dem Suchwert vergleicht. LG Kai
Hallo Kai, erstmal du machst super Videos. Perfekt für Einsteiger.
Vielleicht könntest du mal ein Video machen in dem man sieht wie du die gesuchten Daten in einer Userform bzw Textboxen auslesen, ändern und dann wieder zurück schreibt in die intelligente Tabelle. Darüber findet man wenig bis gar nichts im Netz. Grüsse aus dem Osten ;-)
Hey Agatha Kristi!
Danke für dein Feedback und den Videovorschlag.
Ich nehme diesen gerne in die Idennsammlung mit auf.
Lg, Kai
Hallo Agatha, mittlerweile habe ich zu deiner Anfrage ein Video erstellt: ruclips.net/video/zhNgcehshPk/видео.html
Ich wünsche dir alles Gute beim Umsetzen!
LG Kai
@@KaiWeissmann Hallo Kai
Ich habe das Personalvideo nachgebaut. Danke für diese beiden super Video.
Nun stehe ich jedoch an, und bekomme keine „Google“ Suchfunktion hin. Wie kann ich die beiden Listboxvarianten vereinen. Lg Hannes
Ich weiß , es ist schon einige Zeit vergangen seit der Erstellung....Aber vielleicht habe ich ja Glück 🙂
Erst mal dickes Lob für das geile TuT !!! Ich lerne immer mehr dazu.
Habe jetzut mal dein TuT nachgearbeitet und es funktioniert super.
Ich möchte jetzte gerne via Doppelklick zu dem gefunden eintrag springen.
Videos dazu von dir habe ich mir bereits angeschaut , aber irgendwie bekomme ich das nicht zusammen.......
Wäre nett , wenn du das Video entsprechend vielleicht erweitern könntest ? Oder ein neues dazu erstellen ?
Lieben Dank und hau rinn
Hi Kai,
genial 🙂 muss ich die Woche mal nachbauen. was mich noch interessieren würde. Die Suche über mehrere Listboxen zu machen. Also beispiel. Hab eine userform die 3 listboxen beinhaltet. Jede listbox bezieht sich auf eine andere Tabelle aber überall gibt es eine Auftragsnummer, also wenn ich die Auftragsnummer suche möchte ich zu diesem suchbegriff in den jeweiligen listboxen alle Treffer haben. Geht das?
Grüße Chris
Hi Christopher :) Freut mich, dass dir das Video gefällt!
Ja, das geht auf jeden Fall! Im Prinzip musst du lediglich den Code im Change-Event kopieren und ListBox sowie Tabellenblatt, die angesprochen werden, verändern. Dann sollte dem Ganzen nichts mehr im Weg stehen :)
Schreib mir gerne, ob bei dir alles geklappt hat!
LG Kai
Hallo Kai
Danke für deine leichtverständlichen Tutorials. Diese nachzubauen und die Ergebnisse zu bestaunen macht Spaß.
Allerdings frage ich mich bei diesem Video wie der Code erweitert werden müsste wenn man mehr wie nur zwei Spalten durchsuchen möchte.
Vielleicht hast du dazu auch einen Tipp.
Ansonsten top Tutorials mach weiter so! :-)
....... sooo jetzt sollte ich halt auch noch lernen Videos zu ende zu gucken und nicht zwischendrin noch mal schnell nen Kaffee holen oder eine rauchen gehen ... dann hätte längst mitbekommen das du mehrspaltige suche schon angesprochen hast :-))
Hallo Bernd, es freut mich, dass dir das Nachbauen Spaß macht :) Super, dass das Video deine Frage auch direkt beantwortet hat. Alles Gute beim weiteren Umsetzen!
@@KaiWeissmann Guten Morgen Kai, Nun bin ich doch auf ein Problem gestoßen bei dem ich einfach nicht weiterkomme ...... Fals du nicht möchtest das man dich hier über die Kommentare anspricht weil man irgendwie Tipps benötigt dann versteh ich das und dann ignoriere das hier einfach ......
Problem:
Ich habe deine Listbox Suche nachgebaut versteh diese soweit auch. Nun wollte ich an meinem Projekt weiterbasteln. Meine Tabelle hat 17 Spalten die Listbox Einträge und die Suche erstrecken sich aber nur über 9 Spalten. Das funktioniert soweit.
Ich wollte nun das nach einem Doppelklick auf einen gefundenen Eintrag in der Listbox diese Daten in eine neue Userform geschrieben werden um die Daten eventuell zu ändern oder zu drucken.
Also dachte ich ich setze ColumnCount =17 und Bei ColumnWidth die entsprechende Größe der Felder die angezeigt werden sollen (1-9) und bei den Feldern 10-17 auf Größe 0 da ich diese nicht angezeigt, aber im Hintergrund eingelesen haben möchte.
Die Absicht dahinter ist das nach Doppelklick alle 17 Daten des gefundenen Eintrages in eine neue Userform Übertragen werden sollen.
Das funktioniert aber nicht egal was ich ausprobiert hatte.
Nach Stunden vergeblichen Probierens und Recherchierens hatte ich gelesen das eine Listbox nur 10 Spalten verarbeiten kann.
Was kann ich denn nun tun um über meine Listbox meine ganzen 17 Daten zu Verarbeiten. Gibt es einen "Trick" oder eine alternative zu einer ListBox?
In der Hoffnung auf einen Tipp :-)
Wünsche ich einen guten Morgen
Hallo Bernd, du kannst immer gerne hier schreiben :) Ich versuche dann zu antworten, kann es aber nicht immer garantieren. Mich interessiert es immer, auf welche Probleme meine Zuschauer stoßen. Dazu kann ich dann ja eventuell Videos machen. So habe ich deine Frage auch auf meine Liste geschrieben.
Zu deiner Frage: Mit der AddItem-Methode kann man tatsächlich nur 10 Spalten hinzufügen. Es gibt einen Trick, um mehr Spalten hinzuzufügen, indem du die Daten in ein Array lädst und sie dann gesammelt in die ListBox schreibst. Das Ganze wird hier auf englisch erklärt:
stackoverflow.com/questions/61183540/show-data-in-more-than-10-columns-in-listbox
Alternativ kannst du auch das ListView-Objekt verwenden. Für viele Daten ist die ListView prinzipiell der ListBox überlegen. Auch hierzu eine englische Quelle:
ruclips.net/video/U1sQ1-Oa0fs/видео.html&ab_channel=VBAA2Z
Ich hoffe damit kannst du dein Problem lösen. Schreib mir gerne nochmal, wie es ausgegangen ist.
LG Kai
Hi Kai, mich würde es interessieren ob du diese Herangehensweise auch dann machen würdest, wenn die Excel Liste mittlerweile richtig viel Daten hat. Bzw. Was denkst du ist die "effizienteste" also die schnellste Suchmethode? Aus einem anderen Video hast du Arrays verwendet um den Code schneller zu machen. Ist das zu kompliziert ein Dynamisches Array zu verwenden um die Listbox zu füllen ?? bzw DIe Suchmethode in einer Listbox mit Arrays zu gestalten?
LG
Hallo Kai,
erstmal herzlichen Dank für dieses mega Video !!
Ich konnte so viel als Anfänger zum Thema VBA lernen.
Alles Super und einfach erklärt.
Der Code ist individuell anpassbar.
Ich hatte noch eine Frage zu dem Thema ist das möglich noch eine Textbox einzufügen und dort die Summer meine markierten Felder auszurechnen.
Ich habe nämlich herausgefunden das man mit me.listbox1.mulitiselect = fmMultiSelectMulti mehrere Spalten anklicken kann.
Nun ist die Frage ob und wie das geht das diese, dann in einem extra Feld addiert und angezeigt wird.
Danke nochmal für das Video 👍🏾
Hallo Kai, Vielen Dank für das wieder sehr lehrreiche Video. Die Suche in der Listbox habe ich auch schon in einem Projekt erfolgreich ungesetzt. Z.Z. arbeite ich an einem Projekt, in dem ich eine zweispaltige Listbox habe. Befüllt wird die LB aus einer zweispaltigen Tabelle. Das funktioniert gut. Das Suchergebnis soll aus beiden Spalten in jeweils eine Textbox eingetragen werden, damit ich die Werte anschließend in eine andere Tabelle eintragen kann. Den Inhalt aus der ersten Spalte bekomme ich hin, aber mit zwei Spalten funktioniert es nicht. Geht das überhaupt, dass man zwei Ergebnisse gleichzeitig verarbeiten kann und wenn ja, hättest du eine Lösung für mich?
VG Volker
Hallo Kai, welche Einstellung stimmt bei mir nicht. Wenn ich in die Eigenschaft BackColor bei der Userform klicke, so kann ich keine Farben auswählen?,
Hallo Kai, wie immer, einfach ein geniales Video. Kann ich über die List Box dann auch direkt einen Eintrag auswählen um diesen dann über einen Button direkt zu löschen ? LG Marco
Hallo Marco, vielen Dank für dein Feedback! Ja, das kannst du auf jeden Fall machen. Ich empfehle dazu, dir die Zeile in der ListBox zu vermerken, um dann in der Excel-Tabelle darauf zuzugreifen. LG Kai
@@KaiWeissmann stehe gerade auf dem "Schlauch". Was meinst Du mit "...dir die Zeile in der ListBox zu vermerken, um dann in der Excel-Tabelle darauf zuzugreifen". ???
@@marcogartner3308 damit du weißt, welche Zeile du in der Excel-Oberfläche du bearbeiten möchtest, brauchst du diese Information irgendwo in der Listbox. Ich hoffe, das klärt das Problem :) LG Kai
Hallo Marco, bezüglich dem Löschen der Zeile habe ich hier ein Video erstellt:
ruclips.net/video/E7czhByIOQc/видео.html
Statt die Zeile auszuwählen, musst du sie lediglich löschen.
Ich hoffe damit kannst du dein Problem lösen :)
LG Kai
Ist es möglich die markieren Einträge zu speichern und wenn ich den Filter wieder entferne das der Eintrag markiert bleibt?
Danke!
Hey Jürgen!
Vielen Dank!
Lg, Kai
@@KaiWeissmann Vielen Dank für deine Videos. habe diese ausprobiert und scheitere wenn ich versuche mehrere Spalten in der Listbox aus der Datenbank aufzunehmen- sowie in der Suche als auch beim Anzeigen . Ist das möglich?
Hallo Kai,
Cooles Video und echt hilfreich. Aber ich bekomme es einfach nicht hin die Listbox mit einer 3. Spalte zu belegen worin auch der Wert der 3. Spalte aus der Tabelle angezeigt wird. Kannst du mir dahelfen?
Beste Grüße,
Chris
Hey Chris, in diesem Video zeige ich, wie wir 3 Spalten in einer ListBox befüllen können:
ruclips.net/video/E7czhByIOQc/видео.html&ab_channel=KaiWeissmann
Ich hoffe das hilft dir weiter :) LG Kai
Hallo Kai,
mich würde noch interessieren wie es aussehen würde, wenn man nach 2 oder 3 Elementen parallel in einer Suchmaske suchen kann. Wie bspw. nach dem Firmennamen, der Rechnungsnummer und der Straße.
Hallo, ab 14:50 zeige ich, wie du in 2 Spalten suchen kannst. Das kannst du beliebig erweitern. LG Kai
Hallo Kai, erst mal Danke für Deine sehr hilfreichen Videos. Dieser Code "Suchfunktion für ListBox programmieren" funktioniert bei mir nicht, vba will die Tabelle "verkaeufe" als Variable definert haben. Ich habe aber genau Deinen Code abkopiert und auch die Tabelle genau so abgeschrieben. Hast Du eine Idee, woran das liegen könnte?
Super Funktion und genial erklärt.
Sowas habe ich gesucht. Wie könnte man es nun machen dass, wenn man einen Eintrag z.b. doppelklickt, gleich in die entsprechende Zeile gesprungen wird?
Kanal ist natürlich gleich abonniert.
Danke und schöne Grüsse
Hey majestecx, vielen Dank für dein Feedback und das Abo :)
Im Doppelklick-Event der ListBox könntest du bspw.
ActiveWindow.ScrollRow = Me.ListBox1.Value + 11
schreiben. Bei mir ist Me.ListBox1.Value die laufende Nummer, deren Nummerierung in der 12ten Zeile anfängt.
Falls du keine solche Nummer hast, dann musst du nach einem eindeutigen Wert suchen und dorthin springen, bspw.
Verkaeufe.Columns("B:B").Find(What:=Me.ListBox1.Value, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False).Activate
Ich hoffe das hilft dir weiter :)
LG Kai
@@KaiWeissmann Hallo Kai,
ich habe mir heute dein Video angesehen, da ich auch so eine Suchfunktion in mein Excel-Sheet einbauen wollte. Die Suche funktioniert dank deiner tollen Erklärung super. Jedoch stehe ich jetzt genau wie "majestecx" vor dem Problem, dass ich gerne zu dem gesuchten Eintrag per Doppelklick im Sheet springen möchte. Deine Erklärung an "majestecx" hilft mir jedoch nicht weiter. Könntest du es vielleicht näher erläutern? Ich bin auch absolut neu im Bereich VBA.
Gruß
Hallo hAWk, super, dass die Suchfunktion bei dir schon funktioniert :) Ich schreibe es mal auf meine Videoliste und veröffentliche dazu in Zukunft mal ein Video. LG Kai
Hallo ihr beiden, zu eurer Anfrage habe ich jetzt ein Video erstellt:
ruclips.net/video/E7czhByIOQc/видео.html
Ich hoffe damit könnt ihr euer Problem lösen :)
LG Kai
Hallo Kai. Tolles Video!!. Leider funktioniert dein Makro bei mir nicht. Ich stoße da auf verschiedene Probleme. Eines ist zum Beispiel, das der Befehl "For Zeile = 1 To Namen.Cells(Rows.Count, 1).End(x1up).Row" bei mir nicht funktioniert. Bei tippen des Befehls erscheint nach Eingabe des Punktes stets eine Auswahl an Befehlen. Dies passiert bei Eingabe Namen.Cells ganz wunderbar. Bei Eingabe .END hört es dann schon auf. Woran kann das liegen? Habe ich die falsche Excel oder Office Version?. Schönen Dank Thomas
Hallo Kai. Vielen Dank für das Video. Das hilft mir sehr. Ich habe nur eine FRage. Wie bekomme ich nach der Suche, das Gefundene durch doppelklicken in eine Zelle in Excel? Ich möchte hieraus eine Medikamenten-Suche mit anschließendem Einfügung in eine Zelle erstellen. Kannst du mir hierbei helfen? Vielen Dank im voraus. Viele Grüße Markus
Hallo Alb, in diesem Video zeige ich, wie du mit dem ListBoxDoppelklick Event arbeiten kannst: ruclips.net/video/E7czhByIOQc/видео.html
LG Kai
Hallöchen Kai, super Tutorials was du da machst. Hab die sachen nachgebaut und funktioniert super. Hab versucht Das mmit der Listbox aus dem Spalten Tutorial hier mal umzubauen. Leider bekomme ich es nicht ganz hin. Also befüllt habe ich die zweite Listbox schon nur bekomm ich eine Fehlermeldung wenn ich die Zeilen sichtbar/ unsichtbar setzen will.
Vielleicht kannst du ja das noch mal erklären wie man das macht das man die Zeilen per Listbox ausblenden kann so wie in dem Tut "Spalten ein und ausblenden"
Kann man eigentlichen auch nach mehreren Kriterin in der Suchleiste suchen?
Danke und Gruß
Weiter so...
Hallo Kai, erstmal Danke für deine super Videos 👍
Du erklärst sehr gut und nachvollziehbar, das nachbauen und anpassen auf eigene Anwendungen ist damit für mich super.
Eine Frage hätte ich aber:
ist es möglich über eine ListBox auch Zeilen auszublenden, so wie du es in dem Video "Spalten ein-/ausblenden" vom 28 Juli
vorgestellt hast ?
LG Stefan
Hallo Stefan, ja, das geht. Du müsstest dann mit Zeilennummern arbeiten statt den Überschriften in der intelligenten Tabelle.
Schreib mir gerne, ob bei dir alles geklappt hat. Würde mich interessieren, wie deine Lösung aussieht :)
LG Kai
@@KaiWeissmann Hallo Kai, leider sind meine VBA Kenntnisse nicht ausreichend für diese Aufgabe.
Ich habe alles Mögliche versucht aber ohne Erfolg, auch das Internet gibt hierfür nicht viel her.
ich bekomme verschiedensten Laufzeitfehler bei meinen versuchen.
Vielleicht ergibt sich mal die Möglichkeit eines Videobeitrags von dir zu diesen Thema,
sofern auch andere an diesen Thema "Zeilen aus-/einblenden über ListBox" Interesse hätten.
nochmals Danke für die prompte Antwort letztens auf meine Frage.
LG Stefan
@@Stefan-ik1ne schade, dass es bisher nicht geklappt hat, aber manchmal brauch das auch ein bisschen. Ich schreibe es mal auf die Liste und wenn noch mehr solche Anfragen kommen, erstelle ich dazu ein Video. Dir weiterhin alles Gute :) LG Kai
Hallo Kai, cooles Video echt Super wie du das Ganze rüber bringst. Ich habe noch eine Frage. Wie kann man das was ich in der Suchmaske Eingebe dann farblich in den Spalten anzeigen lassen. Z.B. ich suche "bru", Angezeigt wird unter anderem "Am Bruderhaus" und hier soll dann nur der Suchbegriff "bru" farblich gelb markiert sein, ist sowas möglich und wenn ja wie ist der Code dazu? Mit handwerklichem Gruß Svenn
Danke Dir Kai, aber! Wie kann ich beispielsweise eine Suche in einer Datenbank ausführen, mit einer Hauptsuchmerkmale (Bspw. Aluminium) und einem 2. Kriterium (Dreh&Frästeile), dass er mir dann alle zugehörigen Lieferanten in einer Listbox anzeigt? Fragen über Fragen. Wäre toll wenn du das in einem Video zeigen könntest - Ansonsten weiter so
Hey Thorsten!
Vielleicht hilft dir mein Video zur gefilterten Listbox weiter: ruclips.net/video/C9-y5QU6ASE/видео.html
Oder auch das Video zur Arbeitsmappe durchsuchen: ruclips.net/video/KO81rYozC8w/видео.html
Alles Gute für dein Projekt.
Lg, Kai
Hallo Kai, 5/5⭐️! Lassen sich so auch Daten a) aus einer geschlossenen, externen, intelligenten Tabelle und b) aus einer intelligenten Tabelle vom SharePoint in die Listbox einlesen und in Echtzeit analog deinem Bsp. suchen? Falls dem so ist, wäre es denn auch möglich durch einen Doppelklick auf den gefundenen Eintrag in der Listbox, den Tabelleneintrag der externen, intelligenten Tabelle, in der Zieldatei weiter zu bearbeiten?
Hallo Pascal, freut mich, dass dir das Video gefällt. Prinzipiell geht das alles. Wie du eine geschlossene Arbeitsmappe nutzt, siehst du in diesem Video: ruclips.net/video/tSxdM3efUps/видео.html
LG Kai
Ich greife inzwischen die Daten per ADO aus einer Accessdatenbank ab. Den kpl. Datenbestand lese ich in die Listbox bei Excel ein. Über einen Lösungsweg für die „Echtzeit“ Suchfunktion (Filterfunktion) über 3 Spalten der Listbox analog deinem hier gezeigten Bsp. wäre ich dir sehr dankbar.
Was muss ich machen, damit der erste Buchstabe den ich zur Suche eintippe, korrekt ist
Hallo Kai, wäre es auch möglich eine Kundensuche zu erstellen, in die ich ähnlich wie beim Kunden Anlegen meine verschieden kombinierten Suchkriterien eintrage und dann wenn ich auf den Suchen button klicke ich die Kunden angezeigt bekomme, die meine Kriterien erfüllen?
Also ohne die Userform sondern genau wie beim Kunden anlegen.
Hallo, du kannst eine Suche auch auf einem Tabellenblatt durchführen. Dazu nutzt du das Worksheet-Change Event einer Zelle und filterst die intelligente Tabelle anschließend. LG Kai
Edit: Hier findest du ein entsprechendes Video zu dem Thema: vbatrainer.de/daten-filtern/
Hallo Merzi, ich habe heute ein Video zu deiner Idee veröffentlicht: ruclips.net/video/uQEzw9E84qw/видео.html
Viel Spaß beim Umsetzen!
LG Kai
Ich muss wissen wie ich für jede Zeile von der listbox eine eigenes Suchfeld hinzufügen kann
Welches Video kann ich dafür schauen?
Ich habe bereits einiges über dein Anleitungen geschafft
'aber jetzt ist das so, das ich wenn ich auf dem ersten Suchfeld suche, dan finde ich das was ich suche,
aber wen ich auf dem zweiten Suchfeld suche dann verschwinden der teil vom ersten Suchfeld
das ist gerade mein Problem
Hallo Kai.
Vielen Dank für deine Videos.
Ich finde sie super und bin fast schon süchtig danach;)
Ich habe alles in meine Tabelle integrieren können ( Scroll- und Suchfunktion)! Jedoch wirft er mir jedes Mal einen Typenkonflikt aus, sobald ich die Listbox mit Zellen befüllen möchte, in denen sich Wörter statt Zahlen befinden.
Du hast doch aber auch bei die Straßennamen unter dem Datentyp Long subsumiert.
Vllt könntest du mir bei der Lösung helfen.
VG
Hallo Kai. Was für tolle Videos Du doch machst... Danke. Ich hab hier allerdings ein klitzekleines Problem. Ich wollte in meine Listbox 6 Spalten einfügen (leider kann ich keine Intelligente Tabelle nutzen, da meine Daten über einen Filter ausgegeben werden via Formel). Kann ich die Spalten doch ansprechen, denn wenn ich die Zeilen hochzählwn möchte, werden keine Daten in der Listbox angezeigt... aber vielleicht mache ich auch was falsch! 😂 LG
Vielen Dank für dein Lob.
Vielleicht hilft dir mein Video zum Thema Intelligente Tabellen weiter: ruclips.net/video/ey3xPAHNO2g/видео.html
Hier erstellen wir auch direkt per VBA eine intelligente Tabelle.
Viel Erfolg bei deinem Projekt
Hallo Kai,
dein Video ist der Hit und werde es sehr oft einbauen. Aber eine Frage habe ich dennoch. Anstelle einer ID habe ich eine eindeutige Kundennummer. Diese hat ein spezielles Format: 16.00000.0. Wie kann ich dieses Format in der ListBox wiedergegeben?
MfG Annett
guten Morgen
Die markierten Zeilen einer Listbox addieren und Ergebnis in einer TextBox anzeigen auf Grundlage deines Videos wäre super, diesbezüglich komme ich nicht weiter
wenn du mir da weiterhelfen könntest wäre dies eine coole Sache
Philipp
Hey Philipp!
Danke für den Videovorschlag.
Ich nehme das gerne in die Ideensammlung mit auf.
Lg, Kai
Hallo! Erst einmal vielen Dank für das Video :D. Ich habe in meinem VBA nur gerade ein Problem: aus irgend einem Grund findet er den .AddItem Befehl aus Minute 7:57 nicht. Ich habe alles so im Programm geschrieben, wie Du im Video. Vielleicht hast Du, oder ein anderer VBA Begeisterter Kollege Deiner Community eine Lösung oder einen Tipp für mich? LG
hallo, die tabellen werden mir leider nicht in der listbox angezeigt... was könnte der fehler sein?
Hallo Kai,
Wirklich tolles video.
Ich wollte dich mal fragen, ob du vielleicht eine Idee hast, wie man direkt mit dieser Auswahl die man getroffen hat weiterarbeiten kann. Das heißt, dass man eine Auswahl zuerst auswählt und dann bei dieser Zeile etwas verändern kann oder sich etwas ausgeben kann.
Das würde ich mit dem Index machen bzw. mit dem Wert von Row dieser Zeile.
Diesen müsste man dann ja irgendwo zwischenspeichern, um mit diesem ( auf einer anderen Userform ) zu arbeiten. Das heist dass man durch die Suchfunktion den Index bzw Row Wert von einer Reihe aus Daten (Name Adresse, Datum...) bekommt und diesen Row Wert dann speichert und sich auf einer anderen Userform zu diesem Row Wert bestimmte Sachen ausgeben bzw Sachen einlesen kann.
Hast du eine Idee wie man dieses Zwischenspeichern macht, bzw wie kommt man durch das Anklicken eines Suchergebnisses dann zu seinem Rowwert(index)
Vielen Dank im Voraus und viel Erfolg noch
Machst echt tolle Videos
Jonas
Hallo Jonas, vielen Dank für deinen Kommentar :)
Du kannst dir in die UserForm ein Label einfügen mit dem Index/Row-Wert und das Label aus Visible False setzen.
Ich hoffe das hilft dir weiter :)
LG Kai
@@KaiWeissmann hallo Kai,
Danke dir vielmals für deine schnelle Antwort.
Ich habe mich nur gefragt, wie ich dann auf den Wert dieses ausgewählten objekts komme. Habe dafür in der Listbox eine Spalte eingeführt mit dem Zeilewert der Auswahl, den man aber nicht sieht.
Jetzt würde Ich gerne wissen, wie man an diesen Zeilenwert herankommt. Habe schon versucht mit me.Listbox(0,2).Value (weil der Zeilenwert in der dritten Spalte ist) aber irgendwie klappt das nicht
Hast du vielleicht wieder einmal eine Idee
Vielen Dank im Voraus und einen schönen Tag
Jonas
@@jonny9044 mit
ListBox1.List(ListBox1.ListIndex, 0)
greifst du auf den Wert der selektierten Zeile in Spalte 1 der Listbox zu. Für Spalte 2 dann einfach die 0 zu einer 1 machen.
Hoffe das hilft dir weiter :)
LG Kai
@@KaiWeissmann Dankeschön, bist der beste. Bin echt viel weiter gekommen dadurch.
Ich wollt noch ein bisschen formatieren und die ausgewählte zeile schwarz markieren und die Schrift dann weis aufleuchten (in selected row) . Geht das überhaupt ?
Aber auf jeden Fall noch einmal danke
beste grüße
Hallo Jonny, zu deiner Anfrage bezüglich dem Doppelklick in einer ListBox habe ich jetzt ein Video erstellt:
ruclips.net/video/E7czhByIOQc/видео.html
Ich hoffe damit kannst du dein Problem lösen :)
LG Kai
Funktiniert das auch bei gesperrten zellen?
Vielen Dank für deinen Kommentar. Aufgrund vieler Anfragen, kann ich diese momentan leider nicht beantworten. Vielleicht hilft dir mein Video "KI beantwortet Fragen": ruclips.net/video/Kl9vcB3ejgk/видео.html
Ich wünsche dir für deine Projekte alles Gute.
Hallo Kai, also zunächst mal vielen Dank für die ganzen Videos hier auf dem Kanal. Wirklich eine super Arbeit.
Nun zu meiner Frage. Habe es mit Hilfe des Videos geschafft mir eine Listbox mit Suchfunktion zu erstellen. Mein Code sieht zwar teilweise etwas komisch aus, aber er funktioniert :D. Mein Problem ist jetzt, dass die Tabelle aus welcher ich einlese mehrere 1000 Zeilen (und 8 Spalten) hat und excel mir dabei nur die Fehlermeldung "keine Rückmeldung" gibt. Bis etwa 1000 Zeilen funktioniert es noch, wobei die Ladezeiten auch da schon zu lang sind um praktikabel damit zu arbeiten.
Kann man das Problem irgendwie umgehen?
Mit freundlichsten Grüßen
der Andy
Vielleicht hilft dir die Arbeit mit einem Array.
Siehe dir dazu am besten mein Video an: ruclips.net/video/M4pa_uHeRNc/видео.html
Ich hoffe das hilft dir weiter.
Super Video, vielen Dank dafür 😊. Gibt es eine elegante Möglichkeit, mit Wildcard * auf ein Feld zu arbeiten? Suche nach einer Möglichkeit, über Bestandteile der Artikelbezeichnung eine Nummer per Doppelklick zu übernehmen. Vielen Dank für einen Tipp. 🙏🏼
Hallo, Wildcardabfragen kann man mit dem LIKE-Operator ausführen:
If LCase(strName(x)) like LCase("M?ier") :' Vergleicht ob in dem Array strName(x) z.B. der Name Meier oder Maier vorkommt.
Es sind folgende Platzhalter im 2. String ( auch "Pattern" genannt)möglich:
? EIn beliebiges Zeichen
* Nichts oder beliebig viele beliebige Zeichen
# beliebige Ziffer
[a-f] Buchstaben von a bis f
[!a-f] alle Zeichen außer Zeichen von a bis f
[!z] alles außer z
Im Beispie würde ich es wie folgt ändern:
If InStr(1, LCase(lcase Verkaeufe.Cells(Zeile, 6).Value), LCase(Me.Textbox1.Value)) 0 _
Or LCase(scrLB.Cells(lngZeile, 1).Value) Like LCase(Me.txtSuche.Value) Then
dann hat man beide Möglichkeiten
oder:
If LCase(scrLB.Cells(lngZeile, 1).Value) Like LCase(Me.txtSuche.Value) Then
dann würde nur nach dem LIKE-Operator ausgewählt.
Ich hoffe, das ich geholfen habe. Gruß Andre
@@andrevonnethen6000 Vielen lieben Dank für die verständliche Erklärung, das probiere ich gleich die Woche aus! 🤩
die Suche funktioniert, es ist MEGA
aber das Suchergebnis lässt sich nicht auswählen und dann bearbeiten, bitte hier nochmal den letzten Feinschliff nachlegen
Hallo Thomas, wie du Datensätze bearbeiten kannst, zeige ich in diesem Video: ruclips.net/video/zhNgcehshPk/видео.html
LG Kai
Servus erstmal danke für das tolle Video!
ich habe da nur eine Sache und zwar möchte ich das die Userform immer in der obersten Ebene geöffnet wird, also immer in der Front. mit der Zorder geht es ja nicht =/
vielen lieben dank schonmal =)
achso öffne die Datei per VBS =D danke auch dafür °_°
Hey Stefan, vielen Dank für deinen Kommentar :)
Du möchtest die UserForm ohne Excel öffnen? Das kannst du tatsächlich mit VBS (Visual Basic Script) machen. Ansonsten sind UserFormen standardmäßig eigentlich in der obersten Ebene.
LG Kai
@@KaiWeissmann Ja im besten fall öffne ich nur die UserForm, diese gibt nur kalkulationswerte aus und die Excel-Datei benötigt der User nicht. Aktuell öffne ich Excel nicht sichtbar und beim Start öffnet die UserForm.
Soweit alles supi, aber wenn man zB. Explorer offen hat, sieht man die UF nicht, da dieser die UF verdeckt.
vielleicht hast du ja eine Idee.
LG Stefan =)
Hey Stefan, das klingt nach einer super Idee! Leider habe ich auf die Schnelle keine Lösung für dein Problem, da die UserForm durch Excel geöffnet wird. D.h. entweder sehen wir Excel oder wir blenden es aus - ein Zwischending fällt mir gerade leider nicht ein. Ich habe es aber mal auf meine Liste geschrieben, da ich auch mal ein Video dazu machen wollte, wie man eine UserForm ohne die Excel öffnet. Sobald ich mich daransetze, schaue ich mir das Problem nochmal genauer an.
Dir weiterhin alles Gute bei deinem Projekt!
LG Kai
@@KaiWeissmann Na das beruhigt mich schonmal =) dachte bin einfach zu doof =D
Da warte ich mal gespannt ob du eine Lösung gefunden hast =P
bis dahin weiter machen =D
LG Stefan
Hi kannst du mir erklären wie ich jetzt das gesuchte irgendwo einfügen kann ?
Schaue dir dazu gerne mein Video Listbox auslesen an: ruclips.net/video/j5h203bhTYQ/видео.html
Klappt einwandfrei, mit einem Suchbegriff. Ich habe hier eine Excel_tabelle mit kanpp 8000 Zeilen. In einer Spalte steht relativ viel Text, aber das suchen funktioniert. Nun ist die Liste manchmal recht lang und unübersichtlich. Wie kann ich die Ergebnisliste mit einem zweiten Suchbegriff weiter einschränken? In Access habe ich es hinbekommen, VBA will nicht so wie ich will,
Hallo, wenn ich dich richtig verstehe, dann willst du, nach mehreren Begriffen in einer Spalte gleichzeitig suchen. Das kannst du machen, indem du die Suche mit dem And-Operator erweiterst. Der Code sieht dann ungefähr so aus
If InStr(1, LCase(Verkaeufe.Cells(Zeile, 6).Value), LCase(Me.TextBox1.Value)) 0 And _
InStr(1, LCase(Verkaeufe.Cells(Zeile, 6).Value), LCase(Me.TextBox2.Value)) 0
Dabei zielt der zweite Vergleich auf eine andere TextBox ab.
Ich hoffe das hilft dir weiter. LG Kai :)
@@KaiWeissmann So weit war ich auch schon, leider ohne das gewünschte Ergebnis. Die Abfrage kümmert sich nicht um die zweite TextBox. Und if InStr(...) 0 and if InStr(...) 0 ergibt bei mir eine Fehlermeldung. Auch anders verschachtelt If then und dann ein zweites if then bringt nicht das gewünschte Ergebnis. Ich probiere weiter und melde mich, falls ich was gefunden habe. In Python klappt das mit einer Doppelschleife.
@@wernerheisenberg9244 ohne das zweite If sollte es funktionieren. Habe ich auch im ersten Kommentar angepasst
@@KaiWeissmann So sieht die Zeile bei mir aus (Spalte 6 war zufällig auch die bei mir). Das Tabellenblatt habe ich in Verkaeufe umbenannt : If (InStr(1, LCase(Verkaeufe.Cells(Lzeile, 6).Value), LCase(Me.TextBox_Suchen1.Value)) 0 And InStr(1, LCase(Verkaeufe.Cells(Lzeile, 6).Value), LCase(Me.TextBox_Suchen2.Value)) 0) Then ..., dann füllt sich die Listbox entsprechend nach dem Suchbegriff in Suchfeld 1. Der Begriff aus Suchfeld2 wird ignoriert. Drehe ich die Suchbegriffe um ergibt sich das gleiche Bild. Begriff aus Suchfeld1 wird gefunden, Suchfeld2 wird ignoriert.
Nachtrag: Ich habe die Textboxen getauscht, jetzt funktioniert es wie gewollt. Warum?
Moin Kai,
vielen Dank für die Videos. Das hilft sehr.
Ich habe meine ListBox mit der AddItem Methode gefüllt und dann mit InStr die Suchfunktion, wie im Video beschrieben, gebaut.
Mein Problem ist, dass meine Tabelle, aus der ich die Daten für die Listbox ziehe, ca. 5000 Zeilen und 9 Spalten hat. Ergebnis, die Userform öffnet sehr langsam und die Suchfunktion hakt total. Ich habe das Befüllen der Listbox inzwischen über die Array Funktion gelöst, habe aber das haken bei der Sucheingabe noch nicht lösen können.
Hast du einen Tipp für mich? Das würde mir sehr helfen.
Vielen Dank.
Gruß Anton
Hallo Kai, sehr gutes Video. Wenn du mir jetzt noch zeigen kannst wie ich aus der Listbox einen Eintrag anklicken kann und via Button in eine andere Tabelle einfügen kann per Cut Copy wärst du mein Held. Danke für das Video liebe Grüße.
Hallo Strikerlein, vielen Dank für deinen Kommentar :) Das ausgewählte Element in einer Listbox kannst du dir mit
msgbox ListBox1.List(ListBox1.ListIndex, 0)
zurückgeben lassen. Wenn du die zweite Spalte ansprechen möchtest, dann änderst du die 0 zu einer 1 usw.
Ich hoffe das hilft dir weiter :) LG Kai
@@KaiWeissmann Ich werde es versuchen. Danke dir. Bin erst seit einer Woche in VBA drin und habe nichts davon gelernt. Bin beruflich da reingestolpert und muss mir alles selber bei bringen. Verstehen kann ich nur Bahnhof habe aber schon ein wenig hinbekommen. Brauch das alles für die Arbeit leider. Wenn du eine Mail hast würde ich dir meine Arbeit mal zu kommen lassen damit du mal drüber schauen kannst. Wäre auf jeden Fall mal ne gut Hilfestellung. Gibt es ein Buch das du zu Excel Empfehlen kannst ?
Hallo Strikerlein, ein Buch zu VBA kann ich derzeit leider nicht empfehlen.
Meine Mailadresse ist: mail@vbatrainer.de Allerdings komme ich außerhalb meiner Kurse/Coachings zeitlich nicht dazu, Code zu reviewen.
Ich wünsche dir auf jeden Fall weiterhin alles Gute beim Lernen :) LG Kai
Hallo Strikerlein, ich habe diese Woche ein Video erstellt, wie du mit einem Doppelklick zum Eintrag in der Excel-Tabelle kommst:
ruclips.net/video/E7czhByIOQc/видео.html
Du kannst den Code so anpassen, dass du diese Zeile per Cut/Copy woanders einfügst.
Ich hoffe damit kannst du dein Problem lösen :)
LG Kai
Ich bekomme meine Daten einfach nicht in der ListBox zusehen. Was ist falsch? Mein Tabellenblatt heisst Daten.
Private Sub UserForm1_Initialize()
Dim Zeile As Long
For Zeile = 12 To Daten.Cells(Row.Count, 2).End(xlUp).Row
Me.ListBox1.AddItem Daten.Cells(Zeile, 2).Value
Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = Daten.Cells(Zeile, 6).Value
Next Zeile
Me.ListBox1.Selected(0) = True
End Sub
Danke
Ich vermute, dass "Daten" der Name Deines Arbeitsblattes und der Codename des Arbeitsblattes ein anderer ist (per default SheetX mit X als Zahl).
Solltest Du wirklich mit dem "Tabellenblattnamen" arbeiten, dann geht es so nicht , sondern z. B. per Worksheets("Daten").Cells(..) und nicht so wie bei Dir mit Daten.Cells (...).
Arbeitsblätter können aber immer vom Nutzer umbenannt werden, dann würde der Code nicht mehr gehen. Daher immer die Empfehlung: Nutze den Codename eines Arbeitsblattes... dazu in der IDE (Alt+F11) das Tabellenblatt anschauen... dort siehst Du in der Auflistung der Arbeitsblätter immer 2 Namen: links den Codename, den Du dann wie bei Dir direkt als z. B. codeNameDaten.Cells... nutzen kannst (und solltest)... und rechts den Arbeitsblattnamen, wie die Nutzer ihn nur sehen können.
... und in UserForm1_Initialize()
ist vermutlich die 1 zuviel ;)
Danke!
Vielen Dank für deine Unterstützung!