Hallo Kai, ich habe mir eine Datenbank erstellt, mit mehreren verschiedenen Spalten, nach deiner Idee (Datenbank erstellen mit Eingabemaske in Excel VBA + kostenloser Download). Klappt super! Danke dafür! jetzt wollte ich in dieser Datenbank ( Tabelle ganz einfach durchsuchen mit dieser Suchfunktion | Excel VBA) mit einbauen 🙂. Bis hier.... Sub Suche() 'Werte für Filter eintragen Filter.Range("A2, B3, C4, D5, E6, F7, G8, H9, I10, J11, K12, L13, M14, N15, O16, P17, Q18, R19, S20, T21, U22, V23, W24, X25, Y26, Z27, AA28, AB29").Value = Range("Suchkriterium").Value funktioniert es! 'Erweiterten Filter anwenden Range("tblDatenbank[#All]").AdvancedFilter xlFilterInPlace, Filter.Range("A1:AB29") klappt einfach nicht, 😞Laufzeitfehler '1004' / Die Methode 'Range' für das Objekt '_Global ist fehlgeschlagen ??? ich tüftel jetzt schon seit 4 Tagen, ich bin am Ende. Das tbl Filter = Fliter (auch in der VBA) Das tbl Datenbank = tb_Datenbank( in der VBA), Ich wäre froh für deine Hilfe, Gerne auch via Paypal! Danke im vorraus Kulinarische Grüsse Kai Weissmann 11.900 Abonnenten
Hallo, aus der ferne ist das immer schwer zu sagen, warum es nicht funktioniert. Wenn du bei der Fehlermeldung auf Debuggen gehst, springt er üblicherweise in die Zeile, in der der Fehler auftritt. Meine grobe Vermutung ist jetzt, dass der Name deiner Intelligenten Tabelle nicht tblDatenbank ist sonder vielleicht tbl_Datenbank. Hoffe das hilft, Lg, Kai
Der Laufzeitfehler war bei mir auch. Ich hatte die Intelligente Tabelle nicht umbenannt wie im Video bei 2:25. Als ich das gemacht habe funktionioerte der Code. Tolles Video.
Hallo Kai, vielen Dank für deine Videos! Gibt es eine Möglichkeit den Filter schneller zu löschen/leeren? Wenn ich das Suchfeld leere und enter drücke geht es bei meiner Tabelle (über 800 Zeilen) über 15 sek. bis die Tabelle wieder ungefiltert dasteht.
Moin Kai, danke für deinen tollen Kanal der mir schon viele Verbesserungen für meine Excel-Datenbank geliefert hat. Was du hier im Video erklärst würde ich gerne statt mit einer Zelle mit einer TextBox umsetzen da ich auch deine Lösung für "Spalten einer Tabelle ein-/ausblenden | Excel VBA" verwende. Es wäre tolle wenn du hierzu ein Video machen würdest was eine TextBox-Suche über alle Spalten einer Intelligenten Tabelle mit Wildcards(Contains) beinhaltet. Mach weiter so, freue mich sehr auf kommende Videos!🤘
@@KaiWeissmann Moin Kai, ich würde gerne hier noch etwas anfügen. Es geht um die Filterung einer Intelligenten Tabelle per TextBox über alle Spalten. Meine Daten werden in den ersten Spalten der Tabelle per Power Query ran gezogen. Was anscheinend der Grund ist warum bei mir der "Erweiterte Filter" aus gegraut ist. Es wäre schön wenn du dies als Notiz zu deiner Ideensammlung anfügst. Um vielleicht noch einen draufzusetzen wäre eine Bedingte Formatierung der Zellen noch toll in dem das "Suchkriterium" gefunden wurde. 😁
@@KaiWeissmann gelegen hat es an einem Buchstaben.... habe den Buchstabendreher NICHT gesehen. Dafür hatte es mir die IntiTabelle zerhauen.... ich hatte mich für blau/weiß entschieden. Alles funktioniert, hinzufügen/bearbeiten/speichern/suchen, dafür bekomme ich beim Datensatz hinzufügen, nur noch blaue Zeilen und nicht mehr im wechsel. Blau/weiß etc. ....?? Muss ich das suchen VBA mit ins Modul 1 machen?
Hat prima funktioniert. Allerdings hätte ich noch eine Frage. Können wir nach Abschluss der "Suche" nicht direkt auf die erste gefilterte Zeile springen? Je nach Suchverlauf landet man "optisch" erstmal im leeren. Wenn man es weiß, gar nicht schlimm. Allerdings sollen solche Tools ja auch manchmal für nicht so geübte Anwender von Nutzen sein.
Hallo Kai, ist es möglich nachdem man die Such- und Filterfunktion benutzt hat, die gesuchten Werte direkt zu ändern, so dass es in der Original Arbeitsmappe automatisch mit übernommen wird?
Hallo Alwin, freut mich, dass dir das Video gefällt. Wie du nur sichtbare Zellen ansprichst, zeige ich z.B. in diesem Video: ruclips.net/video/C9-y5QU6ASE/видео.html Alles Gute bei der Umsetzung! LG Kai
Hallo Kai, super erklärt. Läuft perfekt. Eine frage dazu, wie bekommt man eine verschachtelte suche hin? Ich möchte zuerst nach einem begriff tabelle filtern und dann diese über einen weiteren suchbegriff weiter eingrenzen.
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 erstmal ein dickes Lob an dich. Habe durch deine Videos viel gelernt und konnte auch einiges für mich persönlich und die Srbeit umsetzen. Deine Suchfunktion funktioniert bei mir einwandfrei, leider habe ich damit ein Problem. Ich verwende sie für eine Datenbank von Messmitteln, welche rund 3000 Datensätze beinhaltet. In den einzelnen Sätzen ist jeweils noch eine Verlinkung auf ein Zertifikat beinhaltet. Die Suche an sich geht jeweils recht flott doch Sobald ich die Zelle wieder Lösche dauert es gefühlt 1 Stunde bis die Datensätze wieder geladen sind. Hast du da einen Tipp für mich? Bleib wie du bist und mach bitte weiter solch lernreiche Videos. GRUSS
Hallo Fabio, freut mich sehr, dass dir die Videos gefallen! Eine Ferndiagnose zu Performance Problemen ist leider recht schwer. Ich würde überprüfen, ob die Fehler ohne die Verlinkung auftreten. Falls nicht, dann könntest du diese entfernen oder durch eine andere Lösung ersetzen. LG Kai
Servus miteinander Die Liste mit der suchfunktion ist einfach genial kai 👍 Doch leider ist meine Liste inzwischen auch ziemlich lang ca 1500 zeile 9 spalten und ständig wachsend, die suchenfunktio geht sehr schnell doch wenn ich wieder die komplette Liste anzeigen will dauert es ewig Wie bei Fabio Vl hast du noch eine gute Idee 💡 Danke schon mal 😀
Hallo Kai, super, wie alle deine Videos. Aber vielleicht kannst du mir bzw. anderen Interessierten noch zeigen wie man in einer intelligenten Tabelle den Zeilenindex der Fundstelle auslesen kann. Ich beiße mir gerade die Zähne aus. Einen Wert in der intelligenten Tabelle finden funktionert. Nur wie kann ich in der Zeile, wo der gefunden Wert steht andere Zellen ansprechen? Mit Zelle.Row erhalte ich den Zeilenindex vom Worksheet, nicht aber von der Zeile der intelligenten Tabelle. Vielen Dank schon mal für deinen Tipp. Vielen Dank auch für die vielen tollen Videos, super! Dein Fan Rainer.
Hallo Rainer, freut mich, dass dir das Video gefällt! Um den Zeilenindex relativ zur intelligenten Tabelle zu bekommen, kannst du den Zeilenindex vom Worksheet nehmen und davon den Zeilenindex der Headerzeile subtrahieren. Ich hoffe damit kannst du das umsetzen. LG Kai
Hallo Kai, Wie kann ich denn jetzt die gefundenen Einträge automtisch farblich makieren und demakieren.... Also das dass Gesuchte farblich hervorgehoben wird, und wenn das such Fenster leer ist alles beim alten bleibt. das wäre doch ein Gei.. ä Cooles feature. Ich könnte mir vorstellen das dies Anklang erhält! Kulinarische Grüsse
@@KaiWeissmann Leider nicht 😞, nicht desto trotz ist eine gute Idee! Für Meine Idee funktioniert des aber nicht. Ich habe das hier Probiert... Sub MarkiereSuchergebnisse() Dim Suchbegriff As String Dim Bereich As Range Dim Zelle As Range ' Suchbegriff festlegen Suchbegriff = Range("C7").Value ' Bereich festlegen, in dem gesucht werden soll Set Bereich = ThisWorkbook.Worksheets("Meine Arbeitsmappe").Range("B10:DA106") ' Schleife durch alle Zellen im Bereich For Each Zelle In Bereich ' Überprüfen, ob Zelle den Suchbegriff enthält If InStr(1, Zelle.Value, Suchbegriff, vbTextCompare) > 0 Then ' Zelle markieren Zelle.Interior.Color = RGB(255, 217, 102) Hintergrundfarbe anpassen End If Next Zelle nur bekomme ich es nicht hin, das wenn ich C7 lösche, das die Zellen die Ursprungsfarbe wieder annehmen, Sie bleiben in der Farbe. 😞
Hi Kai, gibt es eine Möglichkeit, nach Eingabe des Suchtext nur die Eingabe zu drücken ohne STRG? Noch besser wäre es, wenn man gar nichts drücken müsste und die Suchergebnisse direkt ausgegeben werden könnten. Gruß, Manuel
Hey Manuel! Du könntest z.B. einen "Suchbutton" einfügen und das Makro bei Klick dieses Buttons ausführen. Spontan würde ich auch das Change-Event vorschlagen, sobald die Suchzelle geändert wird soll das Makro ausgeführt werden. Hoffe das hilft dir weter. Lg, Kai
Hallo Kai, vielen Dank für Deine hilfreichen und mega produzierten Videos. Gibt es eine einfache Möglichkeit, den Suchfilter per VBA ein- und auszuschalten? Dann wäre es möglich, in einer umfangreichen Tabelle schnell ALLE Zeilen wieder einzublenden. So könnte man dann auch eine LEERE SUCHE abfragen und statt anwenden des Filters sofort alle Zeilen einblenden.
wie immer super Video. Ich habe eine Frage: Kannst Du uns erklären, wie man Schnittstellen in Tabellen, anhand von 2 Suchkriterien via VBA findet und anwählt? A3:A33 sind Datumsangaben vom 1. eines Monats zum letzten // B2:G2 stehen Namen. Nun möchte ich die Schnittstelle zum Datum und dem Namen in der Tabelle finden und die Zelle anwählen. Der gesuchte Name und das Datum gebe ich auf einem anderen Sheet vor. Später soll da ein Wert rein, den ich dann mit ActiveCell.Value vorgebe. Gibt es dazu bereits ein Video,. was ich nicht finde oder habe ich das irgendwo übersehen? Finde dazu leider nicht das passende. Lg
Lieber Kai, bei mir läuft der Code nicht. Ich bekomme :(Laufzeitfehler 1004, Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen)....Was ist zu tun? Hab alles 3mal genauso gemacht wie im Video. Läuft aber nicht!
Hallo Kai, dieser Kommentar bezieht sich nochmal auf meine Adressdatenbank. Ich wollte eine "Optimierung" hinzufügen: Die gefilterten Datensätze werden mit MTRANS gedreht. Funktioniert "per Hand" die Matrix auswählen sehr gut. Nun möchte ich das ganze automatisieren. Dazu brauche ich die erste und letzte Zeilen-Nummer aus der gefilterten "Teil"-Tabelle. Die Zeilennummern sind ja abhängig vom Suchbegriff variabel. Es reichen die Zeilennummern. Die Spalten sind immer gleich. Hättest du eine Idee wie ich das machen kann? Gruß Klaus
Super, vielen Dank für das Video. Habe ich mit kleinen Anpassungen super übernehmen können. Ich habe allerdings das Problem, dass er mir nicht mehr alle Zeilen einblendet, wenn ich keine Auswahl mehr treffe. Ich habe eine Tabelle mit Bildern und deren Beschreibung und da diese sich ja noch füllen soll, habe ich im Listenbereich des Filters eine große Zahl angegeben, damit auch zukünftig eingetragene Datensätze mit angesprochen werden. Dies hat leider zur Folge, dass er ca. 60 Zeilen dauerhaft ausblendet und ich sie auch über "einblenden" nicht wieder einblenden kann, sondern nur über einen Mausklick. Da ich die Tabelle aber nicht alleine nutze, wird es ganz viele leere Zeilen geben, die "nicht sichtbar" sind. Wie kann ich dies vermeiden? Vielen Dank im Voraus VG Carmen
Hallo Carmen, freut mich, dass dir das Video gefällt. Die intelligente Tabelle erweitert sich automatisch, wenn sie neue Datensätze bekommt. Daher musst du dort keine freien Zeilen ausblenden. Das führt wahrscheinlich auch zu dem Fehler. LG Kai
Hallo Kai, neben dem u. angesprochenen Laufzeitfehler, wie kann ich einzelne Spalten aus der Suche raus nehmen, ich habe ja A:Q in meiner Tabellenüberschrift, die Suche in E:G würde mir aber ausreichen. 🤷♂ Ansonnsten, wie immer ein tolles Video.!!! 👍👍
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.
Lieber Kai, bei mir läuft der Code gar nicht (Laufzeitfehler 1004, Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen), ich kann [#All] nicht zur Tabelle hinzufügen....
@@xxxbalu2003xxx Der Fehler wurde bei mir durch einen Schreibfehler in dem Wort "Suchkriterium" ausgelöst - Nach Korrektur des Schreibfehlers ist auch der Fehler weg ;)
@@michaelmeyer8991 um das schon mal auszuschließen habe ich alle nötigen Namen kopiert. Zeigt trotzdem den Laufzeitfehler _Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen_ schade eigentlich.
Hallo Kai, Kann man die gefunden Werte weiterverarbeiten? Meine Schleife im Schleife Methode ist sehr langsam und dauert lange. Da finde ich diese Suchfunktion schon klasse. Ich würde gerne zwei eindeutige Nummern aus 2 Tabellen vergleichen und einen Wert von auf die andere Tabelle übernehmen. Tolle Arbeit, weiter so!
Hallo, tolle Video´s ... gestern drauf gestoßen. Mein Problem ist, das ich in einer Zellen mehrere Werte(Namen) stehen habe. bis zu 12 zb. Jetzt suche ich 1 Namen, der kann in anderen Zellen einmal stehen, aber auch in anderen Zellen mit anderen Namen. Ich bekomme es nicht hin, das ich solche Zellen richtig auslesen kann. Beispiel. Ich suche Bäckerei ...... das findet sich soweit leicht.... wenn aber Bäckerei an 5 Stelle in einer Zelle steht, getrennt durch Komma oder ; wird es nicht gefunden könnte man zu dieser Problemstellung mal ein Video machen?
@@KaiWeissmannHallo und Danke für die Antwort. Kann das irgendwie nicht so umsetzen, da ich 3 Drop Downs habe, das die Kriterien zur Auswahl stellt, über Userform. Ich als Anfänger (58) bin alles über Macrorekorder oder Foren fragen am zusammen basteln.
Super Video wie immer👍🏼 Könnte man nicht auch noch weitere/zusätzliche Suchkriterien ohne Wildcard eingeben? ( *3* und 3 für jede Spalte) Falls mit den Zahlen in der Tabelle noch gerechnet werden muss.
Hallo Kai, es ist einfach super, wie du uns vieles über VBA zeigst…VIELEN DANK! Ich habe ein Problem, und zwar, ich haben zwei PCs und 2 versch. Google Drive Konten. Auf PC1 ist Google Drive liegt in C:\ und auf PC2 ist Google Drive auf D:\. Alle Dateien auf C und D durch die Freigabe sind identisch. Ich habe ein VBA Modul auf PC1 erstellt, in dem ich auf eine Datei (z.B. C:\google Drive\Januar.xlsx) zugreifen kann (kopieren und in eine andere Datei einfüge). Die gleiche Datei liegt aber in PC2 auf D:\google Drive\Januar.xlsx). Dadurch bekommen ich immer auf PC2 eine Fehlermeldung, wenn ich sie kopieren und die andere Datei einfügen will. Wie kann ich das Problem lösen? Geht das z.B. mit if else Funktion? LG
Hey VBA lernen! Danke für dein Feedback! Ja, das kannst du mit einer If-Anweisung abfragen und je nachdem dann eben auf C:\ oder D:\ zugreifen. Hoffe das hilft dir. Lg, Kai
@@KaiWeissmann Hallo Kai, lieben Dank für deine Antwort. So habe ich gemacht: Sub Makro1() Dim sPfad As String Dim wbQuelle As Workbook
'ScreenUpdating und PopUps deaktivieren Application.ScreenUpdating = False Application.DisplayAlerts = False 'Dateipfad der Quelldatei ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' ''test für 2 versch. pfad 'Pfad auf PC1 If sPfad = "F:\Google Drive\Datenbank\DB_2022\Tabellen\Exceldatei_1.xlsx;HDR=Yes';" Then Set wbQuelle = Workbooks.Open(sPfad) wbQuelle.Worksheets(1).Range("A1:U100").Copy ThisWorkbook.Worksheets(1).Range("B9") wbQuelle.Close SaveChanges:=False Else 'Pfad auf PC2 sPfad = "C:\Privat\Google Drive\Datenbank\DB_2022\Tabellen\Exceldatei_1.xlsx;HDR=Yes';" Set wbQuelle = Workbooks.Open(sPfad) 'Hier bekomme ich ein Debugg, dass die Datei nicht gefunden ist, obwohl sie doch dort gespeichert wbQuelle.Worksheets(1).Range("A1:U100").Copy ThisWorkbook.Worksheets(1).Range("B9") wbQuelle.Close SaveChanges:=False End If End Sub Leider geht auch nicht, wo liegt das Problem? Noch etwas anderes: man kann mit Xverweis viel tun aber wie sieht es mit VBA aus, geht das? Wäre es dir möglich, eine Folge darüber zu machen? :) LG
Hey Walter! Danke für dein Feedback! Ich zeichne grundsätzlich in 4k auf. Hast du die Qualitätseinstellungen von RUclips schon angepasst? (Rechts unten im Video das Zahnrädchen und dann die Qualität entsprechend anpassen) Hoffe das hilft. Lg, Kai
BESTEN DANK für deine Hilfe. Hat super funktioniert!!
Es freut mich, dass dir das Video weiterhelfen konnte.
Viel Erfolg bei deinen Projekten.
Guten Morgen! Ein tolles Video zum Start in den Tag 😎
Hey Metallica4life1981!
Danke für dein Feedback!
Wünsche dir einen gute Tag.
Lg, Kai
Hallo Kai,
ich habe mir eine Datenbank erstellt, mit mehreren verschiedenen Spalten, nach deiner Idee (Datenbank erstellen mit Eingabemaske in Excel VBA + kostenloser Download). Klappt super!
Danke dafür! jetzt wollte ich in dieser Datenbank ( Tabelle ganz einfach durchsuchen mit dieser Suchfunktion | Excel VBA) mit einbauen 🙂.
Bis hier....
Sub Suche()
'Werte für Filter eintragen
Filter.Range("A2, B3, C4, D5, E6, F7, G8, H9, I10, J11, K12, L13, M14, N15, O16, P17, Q18, R19, S20, T21, U22, V23, W24, X25, Y26, Z27, AA28, AB29").Value = Range("Suchkriterium").Value
funktioniert es!
'Erweiterten Filter anwenden
Range("tblDatenbank[#All]").AdvancedFilter xlFilterInPlace, Filter.Range("A1:AB29")
klappt einfach nicht, 😞Laufzeitfehler '1004' / Die Methode 'Range' für das Objekt '_Global ist fehlgeschlagen ???
ich tüftel jetzt schon seit 4 Tagen, ich bin am Ende.
Das tbl Filter = Fliter (auch in der VBA)
Das tbl Datenbank = tb_Datenbank( in der VBA),
Ich wäre froh für deine Hilfe, Gerne auch via Paypal!
Danke im vorraus
Kulinarische Grüsse
Kai Weissmann
11.900 Abonnenten
Hallo,
aus der ferne ist das immer schwer zu sagen, warum es nicht funktioniert.
Wenn du bei der Fehlermeldung auf Debuggen gehst, springt er üblicherweise in die Zeile, in der der Fehler auftritt.
Meine grobe Vermutung ist jetzt, dass der Name deiner Intelligenten Tabelle nicht tblDatenbank ist sonder vielleicht tbl_Datenbank.
Hoffe das hilft,
Lg, Kai
Hast du den Fehler gefunden @kochenmitlustundliebe9889 ? Unten habe ich _eine_ Lösung.
Super Merci, @@LueckenfuellerVideo habe den Fehler finden können
Perfekt gelöst. Super hilfreich und toll präsentiert. Weiter so . Danke 🙂
Vielen Dank für dein Lob.
Alles Gute bei deinen Projekten.
Der Laufzeitfehler war bei mir auch. Ich hatte die Intelligente Tabelle nicht umbenannt wie im Video bei 2:25. Als ich das gemacht habe funktionioerte der Code. Tolles Video.
Gutes Video , hat mir sehr geholfen
Hey Andreas!
Freut mich, dass es dir geholfen hat!
Lg, Kai
Hallo Kai
Danke für deine Videos!!
Haben mir mega geholfen.... Gerne mal auf ein Bier 🙂
Gerne 😁
Gutes Video. Wieder was gelernt. Weiter so
Hey Christian!
Danke für dein Feedback!
Lg, Kai
Echt gutes Video.
Hey Günter!
Vielen Dank!
Lg, Kai
Hallo Kai,
wäre es denn auch möglich alle gefundenen Stellen mit dem Suchbegriff in der Tabelle mit einer anderen Farbe zu makieren?
Wieder super erklärt 👍
Hey -Red Ox-
Vielen Dank!
Lg, Kai
Hallo Kai, vielen Dank für deine Videos! Gibt es eine Möglichkeit den Filter schneller zu löschen/leeren? Wenn ich das Suchfeld leere und enter drücke geht es bei meiner Tabelle (über 800 Zeilen) über 15 sek. bis die Tabelle wieder ungefiltert dasteht.
Moin Kai, danke für deinen tollen Kanal der mir schon viele Verbesserungen für meine Excel-Datenbank geliefert hat. Was du hier im Video erklärst würde ich gerne statt mit einer Zelle mit einer TextBox umsetzen da ich auch deine Lösung für "Spalten einer Tabelle ein-/ausblenden | Excel VBA" verwende. Es wäre tolle wenn du hierzu ein Video machen würdest was eine TextBox-Suche über alle Spalten einer Intelligenten Tabelle mit Wildcards(Contains) beinhaltet. Mach weiter so, freue mich sehr auf kommende Videos!🤘
Danke für dein nettes Kommentar.
Ich nehme das gerne in die Ideensammlung mit auf.
@@KaiWeissmann Moin Kai, ich würde gerne hier noch etwas anfügen. Es geht um die Filterung einer Intelligenten Tabelle per TextBox über alle Spalten. Meine Daten werden in den ersten Spalten der Tabelle per Power Query ran gezogen. Was anscheinend der Grund ist warum bei mir der "Erweiterte Filter" aus gegraut ist. Es wäre schön wenn du dies als Notiz zu deiner Ideensammlung anfügst. Um vielleicht noch einen draufzusetzen wäre eine Bedingte Formatierung der Zellen noch toll in dem das "Suchkriterium" gefunden wurde. 😁
Hi Kai
alles gut, ich habe es geschaft! Puuh war das eine Prozedur 😀
Woran hats denn im Endeffekt gelegen?
@@KaiWeissmann
gelegen hat es an einem Buchstaben.... habe den Buchstabendreher NICHT gesehen. Dafür hatte es mir die IntiTabelle zerhauen.... ich hatte mich für blau/weiß entschieden. Alles funktioniert, hinzufügen/bearbeiten/speichern/suchen, dafür bekomme ich beim Datensatz hinzufügen, nur noch blaue Zeilen und nicht mehr im wechsel. Blau/weiß etc. ....??
Muss ich das suchen VBA mit ins Modul 1 machen?
Hat prima funktioniert.
Allerdings hätte ich noch eine Frage. Können wir nach Abschluss der "Suche" nicht direkt auf die erste gefilterte Zeile springen? Je nach Suchverlauf landet man "optisch" erstmal im leeren.
Wenn man es weiß, gar nicht schlimm. Allerdings sollen solche Tools ja auch manchmal für nicht so geübte Anwender von Nutzen sein.
Du könntest mit ActiveWindow.ScrollRow = 1 im Tabellenblatt nach der Sucheingabe ganz nach oben scrollen.
Ich hoffe das hilft dir weiter.
Hallo Kai, ist es möglich nachdem man die Such- und Filterfunktion benutzt hat, die gesuchten Werte direkt zu ändern, so dass es in der Original Arbeitsmappe automatisch mit übernommen wird?
Hallo Kai
Super Video.
Mein Problem: Wie kann ich die Suche/Filtern nur auf sichtbare Zellen anwenden? (Erweiterter Filter)
Gruß Alwin
Hallo Alwin, freut mich, dass dir das Video gefällt.
Wie du nur sichtbare Zellen ansprichst, zeige ich z.B. in diesem Video: ruclips.net/video/C9-y5QU6ASE/видео.html
Alles Gute bei der Umsetzung!
LG Kai
Hallo Kai, super erklärt. Läuft perfekt. Eine frage dazu, wie bekommt man eine verschachtelte suche hin? Ich möchte zuerst nach einem begriff tabelle filtern und dann diese über einen weiteren suchbegriff weiter eingrenzen.
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 erstmal ein dickes Lob an dich. Habe durch deine Videos viel gelernt und konnte auch einiges für mich persönlich und die Srbeit umsetzen. Deine Suchfunktion funktioniert bei mir einwandfrei, leider habe ich damit ein Problem. Ich verwende sie für eine Datenbank von Messmitteln, welche rund 3000 Datensätze beinhaltet. In den einzelnen Sätzen ist jeweils noch eine Verlinkung auf ein Zertifikat beinhaltet. Die Suche an sich geht jeweils recht flott doch Sobald ich die Zelle wieder Lösche dauert es gefühlt 1 Stunde bis die Datensätze wieder geladen sind. Hast du da einen Tipp für mich?
Bleib wie du bist und mach bitte weiter solch lernreiche Videos. GRUSS
Hallo Fabio, freut mich sehr, dass dir die Videos gefallen!
Eine Ferndiagnose zu Performance Problemen ist leider recht schwer. Ich würde überprüfen, ob die Fehler ohne die Verlinkung auftreten. Falls nicht, dann könntest du diese entfernen oder durch eine andere Lösung ersetzen.
LG Kai
Servus miteinander
Die Liste mit der suchfunktion ist einfach genial kai 👍
Doch leider ist meine Liste inzwischen auch ziemlich lang ca 1500 zeile 9 spalten und ständig wachsend, die suchenfunktio geht sehr schnell doch wenn ich wieder die komplette Liste anzeigen will dauert es ewig
Wie bei Fabio
Vl hast du noch eine gute Idee 💡
Danke schon mal 😀
Hi, mal mit Application Screenupdate = false versuchen, hat bei mir geholfen
Hallo Kai, super, wie alle deine Videos. Aber vielleicht kannst du mir bzw. anderen Interessierten noch zeigen wie man in einer intelligenten Tabelle den Zeilenindex der Fundstelle auslesen kann. Ich beiße mir gerade die Zähne aus. Einen Wert in der intelligenten Tabelle finden funktionert. Nur wie kann ich in der Zeile, wo der gefunden Wert steht andere Zellen ansprechen? Mit Zelle.Row erhalte ich den Zeilenindex vom Worksheet, nicht aber von der Zeile der intelligenten Tabelle.
Vielen Dank schon mal für deinen Tipp. Vielen Dank auch für die vielen tollen Videos, super!
Dein Fan Rainer.
Hallo Rainer, freut mich, dass dir das Video gefällt! Um den Zeilenindex relativ zur intelligenten Tabelle zu bekommen, kannst du den Zeilenindex vom Worksheet nehmen und davon den Zeilenindex der Headerzeile subtrahieren.
Ich hoffe damit kannst du das umsetzen. LG Kai
Hallo Kai,
Wie kann ich denn jetzt die gefundenen Einträge automtisch farblich makieren und demakieren....
Also das dass Gesuchte farblich hervorgehoben wird, und wenn das such Fenster leer ist alles beim alten bleibt.
das wäre doch ein Gei.. ä Cooles feature.
Ich könnte mir vorstellen das dies Anklang erhält!
Kulinarische Grüsse
Vielleicht hilft dir da mein Video zum Thema Zeilen Färben weiter: ruclips.net/video/wcHXeGsjWRo/видео.html
@@KaiWeissmann
Leider nicht 😞, nicht desto trotz ist eine gute Idee! Für Meine Idee funktioniert des aber nicht. Ich habe das hier Probiert...
Sub MarkiereSuchergebnisse()
Dim Suchbegriff As String
Dim Bereich As Range
Dim Zelle As Range
' Suchbegriff festlegen
Suchbegriff = Range("C7").Value
' Bereich festlegen, in dem gesucht werden soll
Set Bereich = ThisWorkbook.Worksheets("Meine Arbeitsmappe").Range("B10:DA106")
' Schleife durch alle Zellen im Bereich
For Each Zelle In Bereich
' Überprüfen, ob Zelle den Suchbegriff enthält
If InStr(1, Zelle.Value, Suchbegriff, vbTextCompare) > 0 Then
' Zelle markieren
Zelle.Interior.Color = RGB(255, 217, 102)
Hintergrundfarbe anpassen
End If
Next Zelle
nur bekomme ich es nicht hin, das wenn ich C7 lösche, das die Zellen die Ursprungsfarbe wieder annehmen, Sie bleiben in der Farbe. 😞
Hallo Kai, wie sieht es hier mit einem Download aus? Gruss Alex
Danke
Hey gerd!
Gerne!
Lg, Kai
Hi Kai, gibt es eine Möglichkeit, nach Eingabe des Suchtext nur die Eingabe zu drücken ohne STRG?
Noch besser wäre es, wenn man gar nichts drücken müsste und die Suchergebnisse direkt ausgegeben werden könnten.
Gruß, Manuel
Hey Manuel!
Du könntest z.B. einen "Suchbutton" einfügen und das Makro bei Klick dieses Buttons ausführen. Spontan würde ich auch das Change-Event vorschlagen, sobald die Suchzelle geändert wird soll das Makro ausgeführt werden.
Hoffe das hilft dir weter.
Lg, Kai
Hallo Kai, vielen Dank für Deine hilfreichen und mega produzierten Videos.
Gibt es eine einfache Möglichkeit, den Suchfilter per VBA ein- und auszuschalten?
Dann wäre es möglich, in einer umfangreichen Tabelle schnell ALLE Zeilen wieder einzublenden.
So könnte man dann auch eine LEERE SUCHE abfragen und statt anwenden des Filters sofort alle Zeilen einblenden.
Zum thema Filter lösen habe ich ein eigenes Video erstellt: ruclips.net/video/6Eh8BXZP7jA/видео.html
Hoffe das hilft dir weiter.
wie immer super Video. Ich habe eine Frage:
Kannst Du uns erklären, wie man Schnittstellen in Tabellen, anhand von 2 Suchkriterien via VBA findet und anwählt? A3:A33 sind Datumsangaben vom 1. eines Monats zum letzten // B2:G2 stehen Namen. Nun möchte ich die Schnittstelle zum Datum und dem Namen in der Tabelle finden und die Zelle anwählen. Der gesuchte Name und das Datum gebe ich auf einem anderen Sheet vor. Später soll da ein Wert rein, den ich dann mit ActiveCell.Value vorgebe.
Gibt es dazu bereits ein Video,. was ich nicht finde oder habe ich das irgendwo übersehen? Finde dazu leider nicht das passende. Lg
Wenn ich richtig verstehe, könntest du dafür einen Filter verwenden:
Siehe mein Video dazu hier: ruclips.net/video/ZNGMemg0fb4/видео.html
Lieber Kai, bei mir läuft der Code nicht. Ich bekomme :(Laufzeitfehler 1004, Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen)....Was ist zu tun? Hab alles 3mal genauso gemacht wie im Video. Läuft aber nicht!
Hallo, habt ihr für das Problem eine Lösung gefunden? Ich habe leider den gleichen Fehler
Hallo, genau so geht es mir auch. Ich habe einen Range("A1:Q18"), ist das zu viel.? Würde mich über eine Antwort sehr freuen.
Hallo Kai,
dieser Kommentar bezieht sich nochmal auf meine Adressdatenbank.
Ich wollte eine "Optimierung" hinzufügen:
Die gefilterten Datensätze werden mit MTRANS gedreht. Funktioniert "per Hand" die Matrix auswählen sehr gut.
Nun möchte ich das ganze automatisieren.
Dazu brauche ich die erste und letzte Zeilen-Nummer aus der gefilterten "Teil"-Tabelle.
Die Zeilennummern sind ja abhängig vom Suchbegriff variabel.
Es reichen die Zeilennummern. Die Spalten sind immer gleich.
Hättest du eine Idee wie ich das machen kann?
Gruß Klaus
Super, vielen Dank für das Video.
Habe ich mit kleinen Anpassungen super übernehmen können. Ich habe allerdings das Problem, dass er mir nicht mehr alle Zeilen einblendet, wenn ich keine Auswahl mehr treffe. Ich habe eine Tabelle mit Bildern und deren Beschreibung und da diese sich ja noch füllen soll, habe ich im Listenbereich des Filters eine große Zahl angegeben, damit auch zukünftig eingetragene Datensätze mit angesprochen werden. Dies hat leider zur Folge, dass er ca. 60 Zeilen dauerhaft ausblendet und ich sie auch über "einblenden" nicht wieder einblenden kann, sondern nur über einen Mausklick. Da ich die Tabelle aber nicht alleine nutze, wird es ganz viele leere Zeilen geben, die "nicht sichtbar" sind. Wie kann ich dies vermeiden?
Vielen Dank im Voraus
VG Carmen
Hallo Carmen, freut mich, dass dir das Video gefällt. Die intelligente Tabelle erweitert sich automatisch, wenn sie neue Datensätze bekommt. Daher musst du dort keine freien Zeilen ausblenden. Das führt wahrscheinlich auch zu dem Fehler. LG Kai
@@KaiWeissmann Vielen Dank für die prompte Antwort. Ich werde es abändern. VG Carmen
Hallo Kai, neben dem u. angesprochenen Laufzeitfehler, wie kann ich einzelne Spalten aus der Suche raus nehmen, ich habe ja A:Q in meiner Tabellenüberschrift, die Suche in E:G würde mir aber ausreichen. 🤷♂
Ansonnsten, wie immer ein tolles Video.!!! 👍👍
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.
Lieber Kai, bei mir läuft der Code gar nicht (Laufzeitfehler 1004, Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen), ich kann [#All] nicht zur Tabelle hinzufügen....
Hallo, habt ihr für das Problem eine Lösung gefunden? Ich habe leider den gleichen Fehler
@@xxxbalu2003xxx selber Fehler auch bei mir, schade das darauf nicht geantwortet wird. Ansonsten Kai - deine Vids immer cool und mega erklärt.
@@xxxbalu2003xxx Der Fehler wurde bei mir durch einen Schreibfehler in dem Wort "Suchkriterium" ausgelöst - Nach Korrektur des Schreibfehlers ist auch der Fehler weg ;)
Hallo zusammen, habe das selbe Problem. Hat jemand eine Lösung ?
@@michaelmeyer8991 um das schon mal auszuschließen habe ich alle nötigen Namen kopiert. Zeigt trotzdem den Laufzeitfehler _Die Methode 'Range' für das Objekt '_Global' ist fehlgeschlagen_ schade eigentlich.
Hallo Kai, Kann man die gefunden Werte weiterverarbeiten?
Meine Schleife im Schleife Methode ist sehr langsam und dauert lange. Da finde ich diese Suchfunktion schon klasse.
Ich würde gerne zwei eindeutige Nummern aus 2 Tabellen vergleichen und einen Wert von auf die andere Tabelle übernehmen.
Tolle Arbeit, weiter so!
Hallo, tolle Video´s ... gestern drauf gestoßen. Mein Problem ist, das ich in einer Zellen mehrere Werte(Namen) stehen habe. bis zu 12 zb. Jetzt suche ich 1 Namen, der kann in anderen Zellen einmal stehen, aber auch in anderen Zellen mit anderen Namen. Ich bekomme es nicht hin, das ich solche Zellen richtig auslesen kann. Beispiel. Ich suche Bäckerei ...... das findet sich soweit leicht.... wenn aber Bäckerei an 5 Stelle in einer Zelle steht, getrennt durch Komma oder ; wird es nicht gefunden könnte man zu dieser Problemstellung mal ein Video machen?
Hey Bernhard!
Danke für dein Kommentar.
Mit den Wildcards funktioniert es nicht? Siehe im Video ab 13:37
Lg, Kai
@@KaiWeissmannHallo und Danke für die Antwort. Kann das irgendwie nicht so umsetzen, da ich 3 Drop Downs habe, das die Kriterien zur Auswahl stellt, über Userform. Ich als Anfänger (58) bin alles über Macrorekorder oder Foren fragen am zusammen basteln.
Super Video wie immer👍🏼
Könnte man nicht auch noch weitere/zusätzliche Suchkriterien ohne Wildcard eingeben? ( *3* und 3 für jede Spalte)
Falls mit den Zahlen in der Tabelle noch gerechnet werden muss.
Hallo Kai,
es ist einfach super, wie du uns vieles über VBA zeigst…VIELEN DANK!
Ich habe ein Problem, und zwar, ich haben zwei PCs und 2 versch. Google Drive Konten.
Auf PC1 ist Google Drive liegt in C:\ und auf PC2 ist Google Drive auf D:\.
Alle Dateien auf C und D durch die Freigabe sind identisch.
Ich habe ein VBA Modul auf PC1 erstellt, in dem ich auf eine Datei (z.B. C:\google Drive\Januar.xlsx) zugreifen kann (kopieren und in eine andere Datei einfüge).
Die gleiche Datei liegt aber in PC2 auf D:\google Drive\Januar.xlsx). Dadurch bekommen ich immer auf PC2 eine Fehlermeldung, wenn ich sie kopieren und die andere Datei einfügen will.
Wie kann ich das Problem lösen? Geht das z.B. mit if else Funktion?
LG
Hey VBA lernen!
Danke für dein Feedback!
Ja, das kannst du mit einer If-Anweisung abfragen und je nachdem dann eben auf C:\ oder D:\ zugreifen.
Hoffe das hilft dir.
Lg, Kai
@@KaiWeissmann Hallo Kai, lieben Dank für deine Antwort.
So habe ich gemacht:
Sub Makro1()
Dim sPfad As String
Dim wbQuelle As Workbook
'ScreenUpdating und PopUps deaktivieren
Application.ScreenUpdating = False
Application.DisplayAlerts = False
'Dateipfad der Quelldatei
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''test für 2 versch. pfad
'Pfad auf PC1
If sPfad = "F:\Google Drive\Datenbank\DB_2022\Tabellen\Exceldatei_1.xlsx;HDR=Yes';" Then
Set wbQuelle = Workbooks.Open(sPfad)
wbQuelle.Worksheets(1).Range("A1:U100").Copy ThisWorkbook.Worksheets(1).Range("B9")
wbQuelle.Close SaveChanges:=False
Else
'Pfad auf PC2
sPfad = "C:\Privat\Google Drive\Datenbank\DB_2022\Tabellen\Exceldatei_1.xlsx;HDR=Yes';"
Set wbQuelle = Workbooks.Open(sPfad) 'Hier bekomme ich ein Debugg, dass die Datei nicht gefunden ist, obwohl sie doch dort gespeichert
wbQuelle.Worksheets(1).Range("A1:U100").Copy ThisWorkbook.Worksheets(1).Range("B9")
wbQuelle.Close SaveChanges:=False
End If
End Sub
Leider geht auch nicht, wo liegt das Problem?
Noch etwas anderes:
man kann mit Xverweis viel tun aber wie sieht es mit VBA aus, geht das?
Wäre es dir möglich, eine Folge darüber zu machen? :)
LG
Wie immer sehr gut 👍, aber deine Videos sind unscharf, könntest du es vielleicht schärfer aufzeichnen? 😬
Hey Walter!
Danke für dein Feedback!
Ich zeichne grundsätzlich in 4k auf.
Hast du die Qualitätseinstellungen von RUclips schon angepasst? (Rechts unten im Video das Zahnrädchen und dann die Qualität entsprechend anpassen)
Hoffe das hilft.
Lg, Kai
@@KaiWeissmann 🥰👌❤