Finde deine Videos gut strukturiert und erklärst du verständlich Schritt für Schritt was du machst.. gefällt mir sehr gut 👍 Ich beschäftige mich erst kurze Zeit mit VBA und finde ich deine Videos sehr hilfreich zum Lernen 😊 Danke !
@KaiWeissmann2 жыл бұрын
Hallo Christoph, vielen Dank für dein positives Feedback. Es freut mich sehr, dass dir meine Videos beim Lernen helfen! LG Kai :)
@ninnick-nick2 жыл бұрын
Auch wenn ich mich wiederholen sollte, - die besten Tuts zu Excel auf ganz KZbin. - meine Meinung 👍🏾👏👌
@KaiWeissmann2 жыл бұрын
Vielen Dank für dein super Feedback. Das darfst du auch gerne mehrfach äußern :) LG Kai
@umbauwfb2 жыл бұрын
Wieder einmal ein Top-Video👍 Unaufgeregt, zielgerichtet, klar formuliert und auch noch sympathisch. Vielen Dank... ich lerne sehr viel von Dir😊
@KaiWeissmann2 жыл бұрын
Hallo Harry, freut mich sehr :) LG Kai
@nuaguasАй бұрын
Hallo Kai, danke für das tolle Video. Ich bastle mir gerade eine KFZ-Verwaltungs-Datei zusammen. Die Mappe besteht aus 2 Arbeitsblättern. Auf dem 1. Blatt habe ich alle relevanten Daten zum Auto und eine Auswertung der Daten vom 2. Blatt. Nun habe ich, nach deiner Anleitung, vom 1. Blatt alle nicht Benötigten Zeilen und Spalten und die Scroll-Leisten ausgeblendet, allerdings kann ich trotzdem noch mit dem Scrollrad der Maus hoch und runter scrollen. Hast du eine Idee woran das liegen kann?
@crazystaff75sw2 ай бұрын
Hat jemand vielleicht eine Idee? Sobald ich Blattschutz so wie beschrieben aktiviere, geht mein Date Picker nicht mehr :( Kann man das auch irgendwie ausgrenzen aus dem Schutz? Ansonsten geile Videos, wegen Dir sitz ich jetzt da *lol*
@flepppieder69073 ай бұрын
Hallo Kai Deine Ausführungen sind sind sehr gut und helfen mir bei meiner Arbeit. Nun haben ich aber das Problem, dass ich in meiner gesperten Tabelle noch Makros zum Speichern habe. Nach dem Blattschutz und der Scrolliste entfernen kann ich das Makro nicht mehr brauchen. Die VBA dafür ist aus dem Button entfernt worden. Was kann ich amchen?
@user-zp5ds1ez9s3 ай бұрын
Ich kann trotz dem Befehlt mit dem Laptop touchpad immer noch nach unten scrollen. So das der Startbildschirm einmal fast komplett verschwindet. Gibt es dazu einen workaround? Das selbe Verhalten beim scrollen nach recht.
@Isaac-bw5du2 жыл бұрын
Danke für das super Video, Kai. Kleiner Hinweis: Kai wählt in der Scrollarea "A1:P29" aus; P29, weil seine Tabelle bis Q30 geht. Also Buchstabe -1 und Zahl -1, die eure letzte zu sehende Zelle bestimmt.
@KaiWeissmann2 жыл бұрын
Hallo Isaac, freut mich, dass dir das Video gefällt und vielen Dank für deine Ergänzung! LG Kai
@michaelguennewig6722 Жыл бұрын
Ich habe gerade Deine Videos entdeckt und bin beeindruckt wie verständlich Du die Programmierung erklärst. Es wird eine Zeit dauern bis ich all Deine Videos durch habe, vieles ist mir zwar mittlerweile auch schon bekannt, aber per Google gelernt und daher Stückwerk. Da hilft es mittels Deiner Videos mehr Struktur rein zu bringen. Ein Problem zu dem ich auch im Netz keine echte Lösung gefunden habe und welches hier durchaus zum Thema passen würde könntest Du vielleicht in einem eigenen Video noch anschneiden. Und zwar die Funktion "Application.ScreenUpdating" um das sichtbare hin und her switchen zwischen den Tabellenblättern bei Abarbeitung diverser Makros zu verhindern. Das funktioniert (bei mir) nämlich zum Beispiel nur teilweise und gemäß meiner Googlerecherche scheint das ein sehr verbreitetes Problem zu sein.
@junjor3 жыл бұрын
Kai! wieder ein super Video in allen Belangen!!! Kurze Frage an dich oder die Community: wie "responsible" ist die Sperrung des Scrollbereichs? Wenn ich das alles wie im Video auf meinem 24-Zoller einrichte, kann mein 15-zölliger Laptop auf der Arbeit das dann auch wechseln? Oder wie kann ich ein Tabellenblatt "responisble" machen, ohne die einfache Skalierung/Zoom zu benutzen (wenn das überhaupt geht)?
@KaiWeissmann3 жыл бұрын
Hey Micha, vielen Dank für deinen anhaltenden Support :) Da der Scrollbereich sich auf die Zellen des Tabellenblatts bezieht, verhält er sich an unterschiedlichen Bildschirmen erstmal identisch: Wir können nur noch in diesem Bereich scrollen und Zellen anklicken. Ich hoffe das klärt deine Frage. Ansonsten einfach nochmal nachhaken :)
@M3IK1 Жыл бұрын
Woran kann es liegen das der Fixierte Scrollbereich plötzlich nicht mehr fixiert ist ? Letzte Woche war noch alles super und heute gehts leider nicht mehr 😅 Alle anderen Makros funktionieren aber ohne Probleme Doch dieser funktioniert selbst wenn ich ihn manuell starte nicht mehr
@KaiWeissmann Жыл бұрын
Das ist aus der Ferne sehr schwer zu sagen. Setz am besten einmal den Scrollbereich mit WorkSheet.ScrollArea="" zurück und setze ihn dann nochmal. LG Kai
@MikeDerUnwissende211 ай бұрын
Bei etwa 2:00 gibt's einen Schönheitsfehler: es basiert nur auf der aktuellen Auflösung. D.h. bei kleineren Auflösungen ist die Fläche zu groß dimensioniert, bei größeren Auflösungen zu klein. Da ich mir die Serie noch nicht vollständig angesehen habe könnte natürlich noch der Block mit der ScreenWidth und -Height kommen, um die Breiten/Höhen entsprechend dynamisch anzupassen :)
@PeterLenzky2 жыл бұрын
Moin Kai, Ich habe für den Entwicklermodus ein Piktogramm eingefügt und dieses mit einem Passwort versehen, nun kommt aber immer erst die Bearbeitungsleiste zurück und dann muss ich noch ein zweites mal auf das Piktogramm klicken und nochmal das Passwort eingeben und erst dann kommt alles wieder. Was ist Falsch an meinem Code? (Beste Grüße aus MV) : Sub Passwort() 'Passwort Aufforderung Dim PW PW = InputBox("Bitte Passwort eigeben") If PW = "Mein Passwort" Then Call Entwicklermodus 'wenn Passwort falsch Else MsgBox "Sie haben ein falsches Passwort eingegeben, oder Sie sind nicht berechtigt den Bereich zu betreten!" Exit Sub End If End Sub Sub Entwicklermodus() Dim ws As Worksheet With Application .ExecuteExcel4Macro "Show.Toolbar(""Ribbon"",True)" .DisplayFormulaBar = True .DisplayFullScreen = False End With With ActiveWindow .DisplayHeadings = True .DisplayWorkbookTabs = True End With End Sub
@jimknopf3148 Жыл бұрын
Hallo Kai Weissmann Habe mal eine Frage: Habe eine lange Liste mit vielen Zahlen untereinander. Wenn Ich diese Liste ausdrucke bekomme ich nur viel Zahlen untereinander! Ich möchte aber gerne eine Überschrift auf der Papierseite. Ein Übertrag von der vorigen Seite, die Zahlen aus der Excel Liste und eine Gesamt Summe bis jetzt auf der Paper Seite und so weiter. Problem ist jetzt aber: Wenn ich die Liste Filter wir die Liste kurzer, bei ein neu Ausdruck, möchte ich gerne das die Lücke automatisch geschlossen wir weil die Zahlen ja Fehlen! Dankeschön - für deine Hilfe! 😀
@steffenfreund25622 жыл бұрын
Hey Kai, ich habe seit gestern deinen Kanal gesehen und bin begeistert über deine Coolen Videos. Hab schon sehr viel für mein kleines Programm nutzen können. Jetzt hab ich noch eine Frage: Kann man auch die Gitternetzlinien und Überschriften über einen VBA-Code ausblenden? Bei mir wird jetzt alles ausgeblendet, nur die genannten Sachen muss ich manuell ein- und ausschalten. Gruß Steffen
@steffenfreund25622 жыл бұрын
Hätte doch noch eine 2te Frage. Wenn ich die Tabellenblätter Schütze funktionieren manche Makros und Formeln nicht mehr, da sie ein Problem mit dem Schutz haben. Gibt es da einen Trick sodass es trotz Schutz funktioniert?
@KaiWeissmann2 жыл бұрын
Hallo Steffen, freut mich, dass dir der Kanal und die Videos gefallen :) Gitternetzlinien und Überschriften kannst du mit ActiveWindow.DisplayGridlines = False ActiveWindow.DisplayHeadings = False ausblenden. Am besten hebst du den Schutz des Tabellenblatts am Anfang der Makros auf und schützt die Tabellenblätter dann wieder am Ende. Ich hoffe das hilft dir weiter :) LG Kai
@anzeigenparadies Жыл бұрын
@@KaiWeissmann Hallo Kai, danke für deine tollen Videos. Ich habe das gleiche Problem. Sobald ich den Blattschutz aktiviere, funktioniert meine intelligente Tabelle nicht mehr und die Formeln sind ohne Funktion. Ich würde aber gerne bestimmte Zellen sperren, damit hier keine Formeln aus Versehen gelöscht werden. Wie kann ich dies am besten realisieren?
@RalfStellmach Жыл бұрын
Moin Kai, danke für die Informativen und nützlichen Videos. Ich habe aus diesem Video für mein Projekt sehr viel anwenden können. Dieses Video war mir eine große Hilfe. Es klappt alles. Ähm, fast. Ein Problem Habe ich. Die Strg-Taste und am Rädchen drehen. Dazu habe ich eine Frage: Kann man Strg + Scrollrad für das Projekt mit einem VBA-Code deaktivieren? Und wenn ja, wo müsste ich ihn einbinden? Hast Du eine Idee? Ich möcht dieses Problem gerne lösen. Danke! Gruß Ralf
@KaiWeissmann Жыл бұрын
Hallo Ralf, freut mich sehr, dass dir das Video geholfen hat. Mit diesem Code kannst du das Zoomen deaktivieren: Application.RollZoom = True LG Kai
@RalfStellmach Жыл бұрын
@@KaiWeissmann Moin Kai, danke für deine Antwort. Leider war dieser VBA-Code nicht das, was ich wollte. Eigentlich sollte der User keine Möglichkeit haben, so einfach per Tastatur den Zoomfaktor zu vergrößern bzw. zu verkleinern. Ich habe jetzt die entsprechenden TBs „umgebaut“ und habe somit die Lösung, die ich wollte. Kai, mach bitte weiter so mit deinen Videos. Du bereicherst uns immer wieder.
@mattri4833 жыл бұрын
Vielen Dank auch für dieses anschauliche Video. Es macht einfach Spaß und Lust auf mehr Excel, wenn man dir hier zuschaut. 👍
@KaiWeissmann3 жыл бұрын
Hey Matt, freut mich, dass dir der Inhalt gefällt. Vielleicht klau ich mir das auch als Vision für VBATrainer "Spaß und Lust auf mehr Excel" :)
@mattri4833 жыл бұрын
@@KaiWeissmann "Vielleicht klau ich mir das auch als Vision für VBATrainer "Spaß und Lust auf mehr Excel" :)" Bitteschön, warum nicht :-)
@flepppieder69073 ай бұрын
Hallo Kai ich habe die Lösung gefunden. Im Makro musste ich mit dem Blattschutz ein und aus definieren und schon lief es 🙂.
@bugsbunny43292 жыл бұрын
vielen Dank...schöne, kleine und verständliche Wissenshäppchen...toll...Vielleicht hast du ja mal Lust und machst ein Video darüber, wie du deinen Code geordnet und sauber hältst, vielleicht hast Du ja auch eine Idee zu Kapselung in VBA...auf jeden Fall schöne Videos mit gehaltvollem Inhalt...top
@KaiWeissmann2 жыл бұрын
Hey Bugs Bunny! Danke für dein Feedback und den Videovorschlag. Ich nehme das gerne mal in die Ideensammlung mit auf. Alles Gute für deine Projekte. Lg, Kai
@christianmaurer337 Жыл бұрын
Sorry, muss mich nochmal melden. Hab meinen Fehler gefunden. (Hab leider nicht so den Überblick wie du. Aber ich arbeite dran - mit deiner Hilfe.) Alles Gute nochmal.
@StefanieGroe Жыл бұрын
Lieber Kai, deine Videos sind super und mega hilfreich. Ich habe das Problem, dass das Scrollen nicht dauerhaft unterbunden wird. Es kommt dann auch der Fehler 424. Hast du einen Rat?
@christianmaurer337 Жыл бұрын
Was dein Video betrifft, kann ich mich den positiven Kommentaren nur anschließen. Meine Frage wäre: Kann man auch die ScrollAreas für alle Blätter aufheben? Meine For Each-Schleife funktioniert nur auf dem aktiven Blatt. Ich wünsche dir einen guten Rutsch und weiterhin viel Erfolg.
@domdom15472 жыл бұрын
Wäre es möglich ein Video über die Rechnungserstellung Datei selber einzusehen?
@KaiWeissmann2 жыл бұрын
Hallo, ich bin aktuell daran einen ausführlichen Onlinekurs zu erstellen, bei dem ich auch auf die Rechnungserstellung eingehe. LG Kai
@ramoasutik67702 жыл бұрын
Danke dir👍🏻 Insbesondere für die entsprechenden Erklärungen zu den jeweiligen Aktionen.
@KaiWeissmann2 жыл бұрын
Hallo Ramo, sehr gerne :) Freut mich, dass es dir gefällt. LG Kai
@62rockrock9 ай бұрын
super Video. Zellen ausblenden klappt super, aber wie blende ich diese wieder ein ? Danke
@wolfganggosejacob7792 жыл бұрын
Warum greifen die Scroll-Area bei min 8:05 und die am Ende nicht auf eine gemeinsame Variable zurück?
@lindahelshani42724 ай бұрын
Hi Kai hast du diese Vorlage für uns evtl. Rechnungserstellung wüdest du es uns zur verfügung stellen?? lg linda
@KaiWeissmann4 ай бұрын
Wie du Excel mit Word verknüpfen kannst zeige ich hier: kzbin.info/www/bejne/aqWUXoFvm9Nrlac Alles Gute bei deinem Projekt.
@lindahelshani42724 ай бұрын
Hi Kai leider find ich dieser schöne Vorlage vom Viedo nicht bitte schick es mir zu oder stelle es bitte bitte zur Verfügung DANKE
@KaiWeissmann4 ай бұрын
Hier kannst du die Vorlage zur Wordverknüpfung herunterladen: vbatrainer.mykajabi.com/Excel-Word-verknuepfen
@Elchbebeblender2 жыл бұрын
Hi Erstmal n dickes Lob und Danke! Einiges konnte ich mir schon abgucken. Oft hakt es an der ein oder anderen Stelle (bei anderen Anwendungen), aber am Ende gelange ich doch irgendwie zum Ziel. Eine Sache bekomme ich gerade jedoch nicht gelöst. Ich möchte Tabellenblätter schützen und denn die Bedienung von Pivot Elementen zulassen. Habe auch schon gegoogelt, aber .......... "pivot table kann bei schreibgeschütztem blatt nicht verwendet werden" Die Ratschläge im Netz haben mich nicht weiter gebracht. Hast Du eine Idee? Ich muss dieses Problem auf mehreren Tabellenblättern lösen. Gruß Andreas
@KaiWeissmann2 жыл бұрын
Hallo Andreas, vielen Dank für dein Lob :) Du kannst bei "Blatt schützen" unten einen Haken bei "Verwenden von PivotTabel und PivotChart" setzen. Damit sollte es klappen. Schreib mir gerne nochmal, ob das dein Problem gelöst hat :) LG Kai
@Elchbebeblender2 жыл бұрын
Hi und ja. Problem gelöst. Sogar gestern schon nach meiner Anfrage. Merci
@KaiWeissmann2 жыл бұрын
Super :)
@Elchbebeblender2 жыл бұрын
@@KaiWeissmann Oha, Fakt ist! Nur durch abgucken lernt man VBA nicht ;) Ich versuche gerade zwei Sachen zu verheiraten! Zum Einen schütze ich alle Blätter gleichzeitig hiermit: Sub Schutz() Application.ScreenUpdating = False Dim Blatt As Worksheet For Each Blatt In Worksheets Blatt.Protect Next Blatt Application.ScreenUpdating = True End Sub Haken dran funktioniert. Aber ich möchte mehr, Ich möchte, dass auf allen Blättern die Anwendung "Auto Filter" und "Pivot" möglich ist. Ich habe mal ein Makro aufgezeichnet, um überhaupt mal eine Idee davon zu bekommen, wie es dann aussieht. Also so: Sub Makro3() ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFiltering:=True, AllowUsingPivotTables:=True End Sub Abschließend nochmal meine Frage. Wie bekomme ich diese beiden Sachen zusammen. Ich habe schon einiges versucht, aber bin jämmerlich gescheitert. :( Mir ist klar, dass oben alle Sheets angesprochen werden und unten der aktive Sheet. Aber dann hört es bei mir leider echt auf.
@KaiWeissmann2 жыл бұрын
@@Elchbebeblender das sollte dann etwa so aussehen: Sub Schutz() Application.ScreenUpdating = False Dim Blatt As Worksheet For Each Blatt In Worksheets Blatt.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True, AllowFiltering:=True, AllowUsingPivotTables:=True Next Blatt Application.ScreenUpdating = True End Sub