Dynamische Navigationsleiste | Excel VBA

[@paul-peterpan6943]

Hallo, Kai. Dieses Video zeigt den Zugang zu einem wirklich nützlichen Tool. Dass Du dazu übergegangen bist, wichtige Informationen zusätzlich durch z. T. animierte Text/Bild-Einblendungen besonders hervorzuheben, finde ich superklasse. Das erhöht den "Merkeffekt" ungemein. Prima und danke. Achim

[@KaiWeissmann]

Hey Paul-Peter! Danke für dein Feedback. Es freut mich, dass dir meine Videos gefallen. Lg, Kai

[@falk1983]

Tolles Video, vielen Dank. Das sind super Ideen die Du da immer hast. Weiter so... Danke!

[@KaiWeissmann]

Hey Falk! Vielen Dank für dein Feedback! Lg, Kai

[@marcogartner3308]

Mal wieder ein super erklärtes Video. Sehr kurzweilig. Macht immer wieder Spaß, deine Videos zu sehen und in die Tat umzusetzen.

[@KaiWeissmann]

Hey Marco! Danke für dein Feedback! Lg, Kai

[@ronnyheymann4734]

Wow, einfach toll, genau das wonach ich gesucht habe und soooo toll und genau erklärt, einfach der Hammer!!! DANKE

[@KaiWeissmann]

Sehr gerne! Es freut mich, dass dir das Video gefällt.

[@lakeconstanz]

Hallo Kai, herzlichen Dank für das ausgezeichnete Video! Wenn man glaubt, es kann keine Steigerung mehr in Deiner Didaktik geben, dann beweist Du einem das Gegenteil! Die zusätzlichen Erläuterungseinblendungen zeigen Deinen hohen Grad an Professionalität!!!

[@KaiWeissmann]

Hallo, vielen Dank für deinen sehr netten Kommentar. Freut mich, dass dir Einblendungen Gefallen finden :)

[@michaelpalm6925]

Top!! Mit Kai ist immer alles so einfach... 🙂

[@KaiWeissmann]

Hallo Michael, danke für deinen Kommentar. Freut mich, dass dir das Video gefällt :)

[@sayris01]

Sehr gutes Video, vielen Dank.

[@gerdmuster4541]

Vielen Dank, wie immer einfach Super!

[@KaiWeissmann]

Hey gerd! Sehr gerne! Lg, Kai

[@paulrulck8967]

Jetzt nur noch den Zugriff auf die Blätter die ausschliesslich für den Admin / Entwickler mit dem angepassten Zugriff von Benutzer und PW koppeln. Top. Danke

[@KaiWeissmann]

Das Benutzerlogin Video dazu findest du hier: kzbin.info/www/bejne/hKmwgqiQqrKmi9E Viel Erfolg beim Umsetzen.

[@paulrulck8967]

Super, genau das hab ich noch gesucht. Nicht so aufwendig.

[@KaiWeissmann]

Das freut mich 👍

[@1obra]

Hallo Kai, wieder ein Top Video, danke wie immer einfach Super, konnte schon einiges umsetzen.😄

[@KaiWeissmann]

Hey Ralph! Sehr gerne. Freut mich, dass du schon einiges umgesetzt hast. Lg, Kai

[@maxmustermann6400]

Top Video, danke

[@KaiWeissmann]

Hey Max! Sehr gerne. Lg, Kai

[@kaih.7613]

Hai Kai :D Ich hab gerade diese Leist Nachgebaut Farben hab ich in Dunklen Grau und Weißer Schrift gehalten sieht super aus Danke für dieses geniale tool.

[@KaiWeissmann]

Freut mich, dass du es nachgebaut hast. Lg, Kai

[@kaih.7613]

@@KaiWeissmann Danke für deine Feedbacks; ist nicht immer so das man eine Antwort bekommt. Aber wir warten auf ein neues Video von dir.!?

[@marijo768]

Hallo Kai, ich glaube, du benutzt Office365. Bei meiner Anwendung (Office 2021) funktioniert im UserForm_Initialize die Funktion "AktiveSheet" nicht. Ich bekomme den Fehler "Variable nicht deklariert". Kannst du mir bitte helfen?

[@KaiWeissmann]

Hallo, mit der Office Version hat das aus meiner Sicht nichts zu tun. Evtl. ist es schon mit einem Rechtschreibfehler getan: ActiveSheet statt AktiveSheet. LG Kai

[@marijo768]

@@KaiWeissmann Danke für die schnelle Antwort. Ist ja Wahnsinn! Es war es wirklich. Ein Zeichen: c statt k. Jetzt funktioniert auch alles. Danke schön.

[@gunterf.538]

Hallo Kai, welchen VBA-Code muss ich eingeben, wenn man, wie im Video, den Tabellennamen UND aus den Tabellenblättern deren Zelle B1 mit auslesen möchte und die mit anzeigt werden?

[@KaiWeissmann]

Hallo Günter, in diesem Video zeige ich, wie du eine zweite Spalte in einer ListBox einfügst: kzbin.info/www/bejne/fZzdiYiBit2qi9U Und den Wert liest du aus dem Tabellenblatt mit ws.Range("B1").Value aus. LG Kai

[@eggi3922]

Wieder mal ein tolles Video!!! Oft weiß man ja, was man logisch machen will, aber es fehlt der Code oder die Syntax. Habe ich gleich mal für ein Template umgesetzt. Es funktioniert super. Allerdings klappt die Positionierung nicht so wie im Video. Nachtrag: Lösung gefunden 'Userform positionieren Me.StartUpPosition = 0 Me.Left = Application.Left + 50 Me.Top = Application.Top + 230

[@KaiWeissmann]

Hallo Eggi, freut mich, dass dir das Video gefällt und dass du dein Problem direkt lösen konntest :) LG Kai

[@excelnewcomer4672]

Klasse Video. Muss ich gleich umsetzen. Vielen Dank. Kleine Anmerkung; "Wie wäre es, wenn die Tabellenblätter alphabetisch sortiert wären? Würde die Suche ja ein bisschen vereinfachen."

[@KaiWeissmann]

Hey Excel Newcomer! Danke für dein Feedback. Zum Thema Tabellenblätter sortieren siehe gern dieses Video: kzbin.info/www/bejne/eZTNamljfcSAnqM Hoffe das hilft dir. Lg, Kai

[@ThomasSohst]

Ich habe viele gute Hinweise erhalten: Heute habe ich folgende Herausforderung. Eine dynamische Tabelle hat den Tabellennamen: "tbl_NAME". Ich möchte diesen Tabellennamen in eine Variable speichern und anschließend den Tabellennamen ändern in "tbl_Name2". Gibt es dafür eine VBA-Lösung?

[@KaiWeissmann]

Hallo Thomas! Spontaner Lösungsansatz aus meiner Sicht: Variable = ActiveSheet.ListObjects(1).Name 'sofern das die 1 Tabelle im Tabellenblatt ist ActiveSheet.ListObjects(Variable).Name = "tbl_Name2" Hoffe das hilft dir. Lg, Kai

[@HexeLilli]

Hii Kai, ich habe mir in letzter zeit gedanken gemacht wie ich Dokumente in Excel (bzw bevorzugt WORD) mit einem Barcode versehen (automatisch), und durch scannen abrufen kann. .. Also einen Dokumentenmanager. Weiss ned ob du sowas kannst, aber suche nach so einer lösung...

[@KaiWeissmann]

Hey Lilli Marie Sie! Hier mein Video zum Barcode erstellen: kzbin.info/www/bejne/nXykoJKqZquYgqs Und hier zum Barcode scannen: kzbin.info/www/bejne/pGqqYZ2mgZ6nrqs Hoffe das hilft dir. Lg, Kai

[@omitin418]

Hallo Kai, sehr schönes und nützliches Tool. Öffnen mit einer Tastenkombination auch sehr schön. Aber wie verwende ich es wenn meine Tabellenblätter alle versteckt sind?

[@maxmustermann6400]

Hallo Kai, ist es möglich in der Navigationsleise die Abstände der einzelnen Tabellenblätter zu vergrößern?

[@Cancionesviejos]

Tolles Video aber eine Frage dazu. Kann man die Ausgeblendeten Blätter irgendwie rausnehmen? Muchas gracias

[@KaiWeissmann]

Hallo Carsten, freut mich, dass dir das Video gefällt! Ja, das kannst du machen, indem du eine If-Bedingung nutzt und dort überprüfst, ob das Tabellenblatt eingeblendet ist. LG Kai

[@skubi3104]

Ich hab das so gelöst: If Not ws.Visible = False Then x = x + 1 Aber frag besser nicht warum diese x =x +1 da steht! Es funktioniert bei mir und ich bin damit zufrieden.

[@SimonSchernthanner]

Hey Kai, das Video ist echt klasse! Ich habe mir auch das Video zur Listbox mit der Suchen bzw Filterfunktion angesehen. Ich wollte mir jetzt den code so anpassen, dass ich auch für meine Listbox mit den dynamischen Tabellenblatteinträgen so eine Suchleiste einfügen kann. Hast du dazu ein paar Tips? Danke für deine hilfreichen Videos!

[@rmzahn7665]

ich habe bisher die Navigation wie in "Moderne Navigationsleiste mit Hamburger Menü" gezeigt. Allerdings habe ich in den Blättern in denen "Fenster fixieren" aktiv ist, das Problem, daß dann die Navigation nicht mehr (ganz) sichtbar ist, wenn ich in den Datensätzen weiter unten bin. So, wie ich das sehe, dürfte dieses Problem über diese Methode hier nicht mehr auftreten, oder?

[@KaiWeissmann]

Ja, das stimmt. Es gibt aber auch 2 Möglichkeiten, um mit der Hamburger Navigation das Problem zu beheben. Möglichkeit 1: Immer wenn du auf das Hamburger Icon klickst, springst du in die erste Zeile des aktuellen Tabellenblattes. Möglichkeit 2: Du integrierst eine Scrolling Funktion wie in diesem Video beschrieben: kzbin.info/www/bejne/on-nfn-Yp6irZpY ich hoffe das hilft dir weiter.

[@rmzahn7665]

@@KaiWeissmann vielen Dank. Ich glaube, ich werde die Scrolling-Funktion nicht einfügen, sondern erstmal einen Test mit der Navigation aus diesem Video hier durchführen. Danach werde ich wahrscheinlich die vorherige Navigation rauswerfen 😂😇😉

[@rmzahn7665]

edit: ja, damit bin ich absolut glücklich herzlichen Dank 💖😊

[@lukasbleile7294]

Hey Kai, ich hätte da mal eine Frage. Ich will für meine Schule ein Schulbuchverleihungssystem machen. Das heißt ich habe 2 Tabellen (Schüler mit jeweiliger Klasse + Die Buch Liste mit Buchname und Barcode vom Buch. Da ich absoluter Anfänger bin brauche ich Hilfe. Ich will es so haben das man einen Schüler auswählen kann und auf ihn ein Buch schreibe. Schüler auswählen - Barcode vom Buch Scannen per USB Scanner - Benutzer Profil haben für jeden Schüler wo die Bücher vom Schüler angezeigt werden - ausbuchungs Funktion (Buch von Schüler lösen) Währe sehr nett wenn du mir helfen könntest. LG Lukas

[@KaiWeissmann]

Hey Lukas! Ich kann dir dafür mein Coaching anbieten: vbatrainer.de/coaching/ Lg, Kai

[@sascha7624]

Hallo Kai, mal wieder ein TOP Video von dir. Besteht den die Möglichkeit die Namen in der ListBox zu verändern, ohne das Tabellenblatt umzubenennen ? Manchmal reicht der Platz für den Tabellenblatt Name leider nicht aus und dann ist es schön, wenn der richtige Name in der Navigation steht und die Abkürzung nur auf dem Tabellenblatt. VG Sascha PS: Habe gerade Probiert den Code so umzuschreiben, das die Auswahl schon bei einem Klick funktioniert und nicht erst nach einem Doppelklick. Aber irgendwas mache ich da falsch. Kannst du mir hierzu einen Hinweis geben ?

[@sascha7624]

Hat hier jemand vielleicht eine Lösung zu ?

[@rainerherden8893]

Hallo zusammen, egal was ich mache oder mit welcher Tabelle, es kommt bei dem Code ´Variable dimensionieren Dim ws As worksheet ´Schleife über Tabellenblätter For Each ws In Worksheets ´Tabellenblatt ListBox lbsheets.AddItem ws.Name nach aktivieren der F5 Taste folgende Meldung: Fehler beim Kopillieren - Sub oder Function nicht deviniert. Grüße Rainer

[@KaiWeissmann]

Hey Rainer! Aus der Ferne ist das schwer zu sagen. Eventuell hast du den Namen der Listbox nicht zu "lbsheets" geändert? Lg, Kai

[@brunoholzinger4246]

Tolles Video , vielen Dank.

[@KaiWeissmann]

Heey Bruno! Sehr gerne. Danke für dein Feedback! Lg, Kai