Fortschrittsbalken in Excel Schritt für Schritt erstellt | Excel VBA

[@falk1983]

Geil geil geil. Damit bekommt man die Arbeitsweise eines Makros gut erklärt und niemand drückt mehr auf den Tasten rum weil nix vorwärts geht. Danke

[@KaiWeissmann]

Hey Falk! Sehr gerne! Lg, Kai

[@juliensanchez-baldeon1566]

Cooles Feature !! Wird viele Leute, die mit einem bestimmten Makro arbeiten, sicherlich beeindrucken ;)

[@KaiWeissmann]

Hey Julien! Danke für dein Kommentar! Lg, Kai

[@mattri483]

Das ist wiedermal eine tolle Idee, vielen Dank fürs Teilen. Obwohl man dieses Teil ja nicht so gerne sieht, wenn man es selbst erstellt hat, ist das natürlich gaaanz anders. 😁. Einen schönen Tag 👍

[@KaiWeissmann]

Hey Matt Ri! Sehr gerne! Lg, Kai

[@-redox-506]

Danke, die besten Videos über VBA 👍

[@KaiWeissmann]

Hey -Red Ox-! Danke für dein Feedback! Lg, Kai

[@opijkkk4918]

Ich kann mich nur bedanken

[@andyr.459]

Super! Einfach klasse Idee! Genial!

[@KaiWeissmann]

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

[@Mennix007]

Danke wollte ich mal sagen für deine Videoclips in KZbin, diese sind wirklich gut verständlich Erklärt, kann viel lernen auch wenn ich schon über 60 Jahre alt bin. HABE EINEN SCHÖNEN VORSCHLAG ZU MACHEN : Ein Exel VBA Benutzerlogin hast du ja schon in das Netz gestellt, nun fehlt noch ein Benutzerlogin mit Steuerung von Zugriffsrechte für jedes einzelnes Tabellenblatt. Beispiel ein Programm mit 15 Tabellenblätter, 5 Mitarbeiter, jeder Mitarbeiter darf aber nicht auf einzelne Tabellenblätter zugreifen. Es müsste eine Intiligente Tabelle geben, Horizontal die einzelnen Tabellenblätter und links vertikal die Mitarbeiter, dann in den einzelnen Zellen könnte man die entsprechenden Mitarbeiter den Tabellenblätter zuordnen. Die Kategorien müssten sein, Tabellenblatt nicht sichtbar, Tabellenblatt sichtbar aber nicht beschreibbar, Tabellenblatt sichtbar und beschreibbar. Das wäre was für mein Tool, Grüsse von der Nordseeinsel Borkum, der Wolfgang

[@KaiWeissmann]

Vielen Dank für deine Unterstützung. Tatsächlich habe ich bereits ein umfangreiches Video zum Thema Benutzerlogin erstellt. kzbin.info/www/bejne/hKmwgqiQqrKmi9E Ich hoffe das hilft dir weiter.

[@lifeshiftug3421]

Einfach genial, super Content!

[@KaiWeissmann]

Hey LifeShift UG! Danke für dein Feedback! Lg, Kai

[@gerdmuster4541]

Vielen Dank, wie immer Toll!

[@KaiWeissmann]

Hey gerd! Sehr gerne! Lg, Kai

[@nicotrapp3690]

Wie auch die übrigen Videos super erklärt. Konnte das Ganze auch nachstellen allerdings nur solange meine For Next schleife von oben nach unten durchlief. Als ich dann von unten nach oben durchlaufen lassen musste habe ich den Balken nicht mehr gebändigt bekommen 😀

[@KaiWeissmann]

Freut mich, dass es geklappt hat. Wenn du die Schleife umdrehst, dann am besten die Laufvariable mit -1 multiplizieren. LG Kai

[@Zweeble1]

Wieder eine tolle Idee verwirklicht. Das kann ich sicher auf Visual Basic/Studio übertragen. Hast du ein Video, wie man von Excel aus auf Daten von Webseiten zugreift?

[@KaiWeissmann]

Hallo Zweble, freut mich, dass dir das Video gefällt! In diesem Video zeige ich die Selenium Bibliothek: kzbin.info/www/bejne/b5_afZWQm9KdhNE LG Kai

[@carstenbehfeld8828]

Super Video. Klasse erklärt. Danke dafür :-)

[@KaiWeissmann]

Hey Carsten! Sehr gerne. Lg, Kai

[@carstenbehfeld8828]

@@KaiWeissmann Hi Kai, Dein gesamter Channel ist super gut. Gefällt mir sehr. Hab schon viel von Dir gelernt :-)

[@KaiWeissmann]

Hey Carsten! Danke für dein Feedback! Es freut mich, dass du durch mich VBA besser kennen und verstehen lernst. Lg, Kai

[@Beastscorp]

Super genial und einfach. 😁👍🏼 Habe eine Datei, die ziemlich lange benötigt. Und für den Nutzer ist ersichtlich, wie weit die Aufbereitung ist. Ich rufe die Sub sogar 4 mal auf, mit dann unterschiedlichen Namen (Schritt 1/4 usw.) Vielen Dank dafür!!

[@KaiWeissmann]

Hey Sebastian! Freut mich, wenn es bei dir gleich in Verwendung ist! Lg, Kai

[@Rohwi]

Wenn deine Gesamt-Anzahl groß ist, so 10.000+, solltest du drüber nachdenken deinen Update Call mit „IF i mod Gesamt/100 = 0 then Call UpdateUF“ zu machen. Ansonsten frisst der Update Balken unglaublich viel Performance um 0,0001% mehr zu zeigen, die ohnehin weggerundet werden. Ein Update reicht in der Regel ja alle 1%

[@Beastscorp]

Sind „nur“ um die 5000+. Aber danke für den Tip, kann ich ja mal probieren. ;) Bin kein Pro und daher immer wieder erstaunt, was es so für Möglichkeiten mit VBA gibt und bin über jede gezeigte Lösung bzw. jeden Anreiz dankbar. 😅

[@timbergfeld9054]

Hallo Kai, Kann man mit VBA die Module bzw. Userformen durch ein Modul exportieren und auch wieder importieren, sodass man dadurch eine „Update“ Funktion bekommt? Deine Videos sind sehr gut erklärt und mega Lehrreich! Mach auf jeden Fall so weiter !

[@knut6924]

Sehr gutes Video! …. Wie schafft man eie User Form mit abgerundeten Ecken?

[@sirwillibald]

Tolles Video, schickes Ergebnis. Eine Sache: Ich habe diesen Fortschrittsbalken in mein aktuelles Projekt eingebaut, allerdings läuft das entsprechende Skript 20sec lang, wenn ich den Fortschrittsbalken einbaue. Ohne den Balken - ich habe einfach alle entsprechenden Anweisungen auskommentiert - braucht das Skript nur 11sec. Ist das normal? In jedem Fall danke für die Anleitung und die ganzen anderen unfassbar hilfreichen Videos! 🙂

[@Stimmtso4]

Super cooles Konzept. Hab es auf eine meiner Dateien angewandt, klappt super. Kurze Folgefrage: In meinen Dateien werden selten Schritte auf einzelne Zeilen angewandt, sondern meist auf Tabellenblätter. Gibt es eine Möglichkeit, den Fortschritt anhand des VBA-Fortschritts darzustellen? Also, im Sinne von 2/20 Schritten wurden durchgeführt, und deshalb 10%?

[@KaiWeissmann]

Du kannst z.B. die Schritte und Prozentangaben auch per Hardcopy eintragen. Z.B. Schritt + 1 und +10% nach jedem Tabellenblatt. Das wäre jetzt mein Spontanvorschlag dazu. Viel Erfolg bei der Umsetzung. Lg, Kai

[@FAA81]

Cooles Video, ist es auch möglich in der Fortschrittsuserform einen abbrechen Button einzufügen? Dieser bricht dann das komplette makro ab. Vielen dank für deine Antwort!

[@johnmayer4936]

Hallo Kai, wie kann ich denn den Fortschrittsbalken auch dazu verwenden, um während des Ladens eines Tabellenblattes (größere DB) diesen anzuzeigen?

[@Chris-vl5qr]

Gutes Video, danke :) Eine Frage dazu: Wie kann ich es erreichen, dass der Fortschrittsbalken mit dem Rückwärtszähler, siehe unten, funktioniert ? Danke :) Dim letzte_Zeile As Long Dim i As Long letzte_Zeile = Cells(Rows.Count, 4).End(xlUp).Row For i = letzte_Zeile To 21 Step -1

[@ragnak666]

Vielen Dank für deine Videos, wie immer genial! Hast du vielleicht eine Idee, wie ich deine Version des Fortschrittsbalken in ein Makro integrieren kann, in dem es mehrere Schleifen und Subroutinen gibt, um den Gesamtfortschritt des vollständigen Ablaufs darstellen zu können? Ich habe es für mich so gelöst, dass ich die Breite des Balkens an einzelnen Stellen des Codes - bspw. in 10% Schritten - hartcodiert habe. Lg

[@KaiWeissmann]

Hey ragnak666! Sehr gerne! Danke für dein Kommentar! Das mit dem "hartcodieren" ist schon ein guter Ansatz aus meiner Sicht, da es ja eigentlich darum geht, dem User anzuzeigen, dass das Makro noch läuft. Zu viel zusätzlichen Code würde ich wenn es geht vermeiden, aber vielleicht lässt das Makro eine "Überschleife" zu, die das ganze automatisiert. Das ist aber natürlich auch alles Codeabhängig und nicht für jedes Makro geeignet. Ich wünsche dir für dein Projekt jedenfalls alles Gute. Lg, Kai

[@alexvitzthum5744]

Bei meinem Projekt habe ich ebenfalls einige verschiebene Module. Wie kann ich dem Balken und der Prozentanzeige einen fixen wert zuweisen?

[@gerhardurban7563]

Hallo Kai, mir ist aufgefallen das Deine UserForm schöne runde Ecken hat. Bei mir sind die leider Eckig. Wie hast Du das hinbekommen. Hab ich was übersehen? Sonst alles super

[@KaiWeissmann]

Hallo Gerhard, die abgerundeten Ecken sind mit Windows 11 gekommen. Sobald du updatest, sollte das bei dir also auch so aussehen :) LG Kai

[@christianschafer3667]

Hallo Kai, danke schön ,das hilft mir auf jeden Fall weiter.Jetzt würde ich noch gerne wissen wie ich das mit einem VBS Script mache. Nachdem du mal in einem Video die Fernsteuerung gezeigt hast😀benutz ich das sehr gerne.Bislang hab ich mir den Fortschritt mit einer Msgbox anzeigen lassen, aber Kaffee holen war dann nichts.Hättest du da auch eine Idee? Vielen Dank Christian

[@Speedway1604]

Hallo! Super Video, DAnke! Ist es auch möglich diesen Fortschritsbalken ohne For Schleife zu Verwenden? ich habe enorm viele sehr langsame module ohne forschleife. danke, lg

[@zenglerrudi]

Hallo, Die Idee ist echt genial, ist es auch möglich die Idee so einzubauen wenn man das Dokument als E-Mail versenden möchte aus der Excel Tabelle?

[@KaiWeissmann]

Ja, das kannst du auch machen. Zum Mailversand habe ich auch schon zwei Videos gemacht: - Mit Outlook: kzbin.info/www/bejne/o57KmZiam8ajnLM - Anderer Maildienst: kzbin.info/www/bejne/a3iYgoVvdtOjbq8 LG Kai

[@zenglerrudi]

@@KaiWeissmann Danke

[@synthompainkiller]

Gutes Video, aber am tollsten ist der Titel im Vorspann. FORTSCHIRTTS-BALKEN.😆😜

[@KaiWeissmann]

Hey synthompainkiller! Danke für dein Feedback! Stimmt 😅, der FORTSCHIRTTS-BALKEN ist noch mal ein Stückchen fortschrittlicher. Danke für die Info. Muss ich bei den nächsten Videos besser aufpassen beim Tippen der Intros. Lg, Kai

[@synthompainkiller]

@@KaiWeissmann ich mag ja sowas. Habe ein ganzes Album voll mit irgendwelchen lustigen Tippfehlern die ich bei uns auf Arbeit finde. 😆

[@ThisIsScorefun]

Cool - wie immer. Benutze ich auch immer wieder gerne ...aber (noch) nicht so elegant wie bei Dir ;-)

[@KaiWeissmann]

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

[@alexvitzthum5744]

Kann ich her auch einen Startwert des Balkens und der Prozent angeben? Wenn ich möchte bei 30% - 80% die schleife definieren und dann geht mein Code weiter und dann werden die restlichen 20% hardgecodet

[@KaiWeissmann]

Das kannst du natürlich tun. Also die ersten 30% auch hardcoden, dann eben die Schleife bei 30% starten der Zielwert der Schleife soll dann eben 80% sein. Lg, Kai

[@DerRumo]

Coole Sache. Ich habe dafür bisher unten links mit der Statuszeile gearbeitet und den aktuell ausgeführten Schritt hingeschrieben. Um wie viel ist der Code denn langsamer, wenn man das macht, weil ja immer wieder die Darstellung aktualisiert wird.

[@Rohwi]

hab mal die Macros aus dem Range vs. Array video mit 65.000 Zeilen getestet. Range ohne bar ~ 10s Range mit bar ~ 40s Array ohne bar ~ 0,3s Array mit bar ~ 10s deswegen den Call nur machen, wenn sich auch etwas ändert! Also wenn i x/100 von der Gesamtmenge sind. If i mod Gesamt/100 = 0 then Call UpdateUserForm

[@danmg]

Hey Kai! Wirst du auch TypeScript lehren? Das wäre top!

[@KaiWeissmann]

Hallo Dan, danke der Nachfrage. Aktuell arbeite ich selbst noch nicht so viel mit TypeScript, da mir ein paar Funktionen fehlen (Code zu Button zuordnen bspw.). Wenn sich das ändert, kann ich mir das auf jeden Fall vorstellen :) LG Kai

[@JoachimVisOfficial]

Bei meinem Makro UPDATE Makro ActiveWorkbook.refreshAll ActiveWindow.SmallScroll Down:=-3 funktioniert es nicht. Habe das Makro aufgenommen und dem Button zugeordnet. Läuft beim Drücken des Buttons aber leider nicht der Fortschrittsbalken. Parameter i fehlt bei meinem Makro.

[@alexst9912]

hi Kai, wäre super wenn du mal ein Tutorial machen würdest, wie man eine Planungs/Terminmaske / Tool erstellt. Wo man Termine bucht und die in eine Tagesplanung übertragen wird und in die richtige Uhrzeit/ Spalte

[@KaiWeissmann]

Hey Alex! Danke für deinen Videovorschlag. Ich nehme das gerne in die Ideensammlung mit auf. Lg, Kai

[@peterk5086]

Hallo Kai, vielen Dank für deine Videos, die mich immer wieder inspirieren, neues auszuprobieren und in vorhandene Dateien einzubauen. Die Idee mit dem Fortschrittsbalken ist super. Wollte dies auch bei mir integrieren. Jedoch habe ich ein Userform mit Listbox, in der eine Abarbeitung der angeklickten Zellen (über eine for next schleife) erfolgt. Ich bekomme dann eine Fehlermeldung "Ungebundenes Formular kann nicht angezeigt werden, während gebundenes Formular angezeigt wird. Hast du hier eine Lösung? Das Formuar unloaden macht keinen Sinn, dann kann nichts mehr verarbeitet werden 😞 Viele Grüße Peter aus Dresden - treuer Fan und Abonnent

[@Dr.Acula787]

Du kannst andere Formulare ebenfalls mit "Show 0" (also modal 0) aufrufen, dann sind diese ebenfalls ungebunden. Diese Eigenschaft kannst du auch der Userform in ihrem Eigenschaftsfenster direkt zuweisen (unter "ShowModal" auf "False" setzen). Mehrere ungebundene (ShowModal 0) Formulare gleichzeitig sind kein Problem. *Nachteil:* Der User kann dann in der Tabelle herumklicken, während die Userform geöffnet ist, und eventuell Daten verändern, die bereits in die Userform geladen wurden. Das kann natürlich zu Fehlern führen, darum ist "ShowModal" standardmäßig auf "True" gesetzt.

[@mauriceg7454]

Schicker Balken Kann man sowas auch bei CALL befehlene einbauen, als ich habe zb 10 MAkros die er über Call ausführt und dafür einen Fortschrittbalken?

[@KaiWeissmann]

Hallo Maurice, ja, das kannst du machen. Du könntest z.B. nach jedem Call den Balken um 10% erhöhen. LG Kai

[@mauriceg7454]

@@KaiWeissmann Ich bin da ganz neu da drinnen, drum muss ich leider bisschen Fragen. Was mache ich in die Klammern Call fortschrittsbalkenUpdaten (?) ? Nach jedem Call soll ich erhöhen bsp .Prozent.Caption = 10 das mach ich nach jeden Call rein damit er weiß das er erhöhen soll ? Muss das auch verändert werden oder kann ich das von dir übernehmen Sub FortschrittsbalkenUpdate(Anteil As Long, Gesamt As Long) + das was darunter kommt Sorry für die vielen Fragen

[@knut6924]

…habs gerade gesehen, hat schon ein anderer gefragt 😌

[@kleindieter]

Hallo Kai, Du machst tolle Videos, die mir schon sehr viel geholfen haben, Danke schon mal dafür. 🙂 Ich habe eine lange Namensliste mit Passwörtern von unseren Azubis die für eine Notenübersicht eingelesen werden soll. Da dieser Prozess lange dauert würde ich gerne einen Fortschrittsbalken anzeigen. Leider funktioniert die Version von Dir hier leider nicht. In Excel erscheint ganz unten der Berechnungswert in Prozent wenn Daten gelesen werden. Kann man diesen Wert abfangen und in den Balken einbinden??? Unten habe ich mal die Routine aufgeführt, die die Tabelle einließt. Danke für Deine Hilfe und noch eine schöne Woche. Gruß Dieter Private Sub Auswaehlen() Range("Name").Value = lb_Name.List(lb_Name.ListIndex) Range("b2").Select Unload Me End Sub

[@ets2atstruckermartin527]

Bei mir sagt er Laufzeitfehler 6, Überlauf, wenn ich das mit einer Scrollbar mache und mit nem Commandbutton starten will.

[@retohummer2570]

Bei mir funktionierte die Angabe "Anteil as Long" nicht, gab mir irgendeine Fehlermeldung mit "ByRef..." aus. Habe es dann in "ByVal Anteil as Long" ausgetauscht, dann hat es funktioniert. Also falls noch jemand das gleiche Problem hat ;)

[@KaiWeissmann]

Super, das du den Fehler gefunden hast und vielen Dank, dass du die Lösung mit uns teilst!

[@retohummer2570]

@@KaiWeissmann Gern :) Danke dir für deine tollen Videos. Bitte mach weiter so.

[@Metallica4life1981]

Warum übergeben wir auf der einen Seite i und rngdata [..] und nehmen in der nächsten Prozedur ganz andere Namen? Wie kann VBA das zuordnen?

[@markuslienhard9472]

In der Sub sagst du was für Daten du erwartets. Platz 1 ist der Anteil. Beim aufrufen der Prozedur sagst du an Platz 1 woher dieser Wert für Anteil genommen werden soll. In diesem Fall von der Variable i. VBA ordnet es über die Reihenfolge zu.