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 !
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.
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.
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
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
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.
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?
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?
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?
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)?
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 :)
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.
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
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?
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
@@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?
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.
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*
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 :)
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 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.
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! 😀
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
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
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
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
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
@@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.
@@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
Auch wenn ich mich wiederholen sollte, - die besten Tuts zu Excel auf ganz CZcams. - meine Meinung 👍🏾👏👌
Vielen Dank für dein super Feedback. Das darfst du auch gerne mehrfach äußern :) LG Kai
Wieder einmal ein Top-Video👍
Unaufgeregt, zielgerichtet, klar formuliert und auch noch sympathisch.
Vielen Dank... ich lerne sehr viel von Dir😊
Hallo Harry, freut mich sehr :) LG Kai
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 !
Hallo Christoph, vielen Dank für dein positives Feedback. Es freut mich sehr, dass dir meine Videos beim Lernen helfen! LG Kai :)
Vielen Dank auch für dieses anschauliche Video. Es macht einfach Spaß und Lust auf mehr Excel, wenn man dir hier zuschaut. 👍
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" :)
@@KaiWeissmann "Vielleicht klau ich mir das auch als Vision für VBATrainer "Spaß und Lust auf mehr Excel" :)" Bitteschön, warum nicht :-)
Danke dir👍🏻
Insbesondere für die entsprechenden Erklärungen zu den jeweiligen Aktionen.
Hallo Ramo, sehr gerne :) Freut mich, dass es dir gefällt. LG Kai
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.
Hallo Kai ich habe die Lösung gefunden. Im Makro musste ich mit dem Blattschutz ein und aus definieren und schon lief es 🙂.
Danke für Video
Sehr gerne.
Viel Erfolg bei deinen Projekten
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.
Hallo Isaac, freut mich, dass dir das Video gefällt und vielen Dank für deine Ergänzung! LG Kai
Perfekt erklärt! Vielen Dank!
Sehr gerne!
Einfach super. Vielen Dank
Freut mich :)
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
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
Coole Sache - Machst das echt gut
Hey Roger!
Danke für dein Feedback!
Lg, Kai
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.
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?
super Video. Zellen ausblenden klappt super, aber wie blende ich diese wieder ein ? Danke
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?
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?
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)?
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 :)
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.
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
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?
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
@@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?
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.
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*
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 :)
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
Hallo Ralf, freut mich sehr, dass dir das Video geholfen hat. Mit diesem Code kannst du das Zoomen deaktivieren: Application.RollZoom = True
LG Kai
@@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.
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!
😀
Warum greifen die Scroll-Area bei min 8:05 und die am Ende nicht auf eine gemeinsame Variable zurück?
Wäre es möglich ein Video über die Rechnungserstellung Datei selber einzusehen?
Hallo, ich bin aktuell daran einen ausführlichen Onlinekurs zu erstellen, bei dem ich auch auf die Rechnungserstellung eingehe. LG Kai
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
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
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
Hi Kai hast du diese Vorlage für uns evtl. Rechnungserstellung wüdest du es uns zur verfügung stellen?? lg linda
Wie du Excel mit Word verknüpfen kannst zeige ich hier: czcams.com/video/4t1-N9fn8_E/video.html
Alles Gute bei deinem Projekt.
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
Hier kannst du die Vorlage zur Wordverknüpfung herunterladen: vbatrainer.mykajabi.com/Excel-Word-verknuepfen
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
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
Hi und ja.
Problem gelöst. Sogar gestern schon nach meiner Anfrage.
Merci
Super :)
@@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.
@@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