Kann man das Speichern in Excel VBA abstellen?

Question

Kann man das Speichern in Excel VBA abstellen?

Antwort

Verwandte Fragen

Wie kann man mehrere Sheets in Excel mit VBA gleichzeitig sichtbar machen?

Wirken sich Application.OnKey und Application.CommandBars auf andere geöffnete Excel-Dateien aus?

Wie zeige ich per VBA in Excel eine Messagebox an, wenn ein bestimmter Wert überschritten oder erreicht wird?

Wie kann man eine Excel-Datei per Makro mit 'Speichern unter' speichern?

Wie kann man in Excel mehrere Instanzen gleichzeitig öffnen?

Warum ist das Ergebnis der Summenbildung in Excel zu hoch?

Wie formatiere ich ein Excel-Sheet mit abwechselnd farbigen Zeilen?

Welche Funktion hat die Datei personal.xlsb in Excel?

Wie kann ich mit einem Excel-Makro alle Blätter einer Datei ausblenden, außer dem Blatt 'Anfang'?

Wie kann man ein Excel-Blatt per Makro aus- und einblenden?

Accepted Answer

Ja, in Excel VBA kannst du das Speichern der Arbeitsmappe abstellen, indem du das `Workbook_BeforeSave`-Ereignis verwendest. Hier ist ein Beispiel, wie du das umsetzen kannst: ```vba Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Cancel = True ' Verhindert das Speichern MsgBox "Das Speichern ist deaktiviert." End Sub ``` Füge diesen Code in das Modul "DieseArbeitsmappe" (ThisWorkbook) ein. Damit wird das Speichern der Arbeitsmappe verhindert, und eine Nachricht wird angezeigt, wenn der Benutzer versucht, die Datei zu speichern.

Accepted Answer

In VBA (Visual Basic for Applications) kannst du mehrere Arbeitsblätter nicht direkt in einer Zeile wie in deinem Beispiel sichtbar machen. Der Ausdruck `Sheets("TP1", "TP2").... [mehr]

Accepted Answer

In VBA (Visual Basic for Applications) kannst du mehrere Arbeitsblätter nicht direkt in einer Zeile wie in deinem Beispiel sichtbar machen. Der Ausdruck `Sheets("TP1", "TP2").Visible = True` ist nicht gültig, da die `Sheets`-Methode nur einen Namen oder eine Liste von Indizes als Array akzeptiert. So geht es besser: ```vba Sheets("TP1").Visible = True Sheets("TP2").Visible = True ``` Oder, wenn du viele Blätter hast, kannst du eine Schleife verwenden: ```vba Dim wsName As Variant For Each wsName In Array("TP1", "TP2") Sheets(wsName).Visible = True Next wsName ``` So kannst du beliebig viele Blattnamen in das Array eintragen und alle auf einmal sichtbar machen.

Accepted Answer

Ja, sowohl `Application.OnKey` als auch `Application.CommandBars` wirken sich auf die gesamte Excel-Anwendung aus – und damit auf **alle geöffneten Arbeitsmappen** (Excel-Dateien) in dieser... [mehr]

Accepted Answer

Ja, sowohl `Application.OnKey` als auch `Application.CommandBars` wirken sich auf die gesamte Excel-Anwendung aus – und damit auf **alle geöffneten Arbeitsmappen** (Excel-Dateien) in dieser Instanz von Excel. **Details:** - **Application.OnKey:** Mit dieser Methode wird das Verhalten von Tastenkombinationen global für die gesamte Excel-Anwendung geändert. Wenn du z.B. mit `Application.OnKey "^s", "MeinMakro"` eine Tastenkombination belegst, gilt das für alle geöffneten Arbeitsmappen, nicht nur für die, in der das Makro ausgeführt wurde. - **Application.CommandBars:** Änderungen an CommandBars (z.B. Hinzufügen, Entfernen oder Anpassen von Symbolleisten oder Menüs) wirken sich ebenfalls auf die gesamte Excel-Oberfläche aus. Auch hier sind alle geöffneten Dateien betroffen. **Fazit:** Beide Methoden sind **anwendungsweit** (application-wide) und nicht auf eine einzelne Arbeitsmappe beschränkt. Änderungen bleiben aktiv, bis sie explizit zurückgesetzt werden oder Excel neu gestartet wird. **Tipp:** Wenn du solche Änderungen vornimmst, solltest du beim Schließen deiner Datei oder beim Deaktivieren deines Add-Ins die Änderungen wieder rückgängig machen, um unerwünschte Effekte für andere Dateien zu vermeiden.

Accepted Answer

Um in Excel mit VBA eine MessageBox anzuzeigen, wenn ein bestimmter Wert überschritten oder gleich ist, kannst du beispielsweise folgenden Code verwenden. Angenommen, du möchtest prüfen... [mehr]

Accepted Answer

Um in Excel mit VBA eine MessageBox anzuzeigen, wenn ein bestimmter Wert überschritten oder gleich ist, kannst du beispielsweise folgenden Code verwenden. Angenommen, du möchtest prüfen, ob der Wert in Zelle A1 größer oder gleich 100 ist: ```vba Sub PruefeWert() Dim wert As Double wert = Range("A1").Value If wert >= 100 Then MsgBox "Der Wert ist größer oder gleich 100!", vbInformation, "Hinweis" End If End Sub ``` **So funktioniert es:** - Der Wert aus Zelle A1 wird in die Variable `wert` eingelesen. - Mit der If-Bedingung wird geprüft, ob der Wert größer oder gleich 100 ist. - Falls ja, erscheint eine MessageBox mit dem gewünschten Hinweis. **Tipp:** Du kannst diesen Code in ein Makro einfügen oder im VBA-Editor (Alt + F11) in ein Modul schreiben. Um die Prüfung automatisch auszulösen (z.B. nach einer Änderung in A1), kannst du den Code in das Worksheet-Change-Ereignis einfügen: ```vba Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If Range("A1").Value >= 100 Then MsgBox "Der Wert ist größer oder gleich 100!", vbInformation, "Hinweis" End If End If End Sub ``` Diesen Code fügst du im VBA-Editor direkt beim gewünschten Arbeitsblatt ein. Weitere Informationen zu VBA findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Accepted Answer

Um eine Excel-Datei per Makro „Speichern unter“ auszuführen, kannst du folgenden VBA-Code verwenden. Damit öffnet sich der „Speichern unter“-Dialog, und der Benutzer... [mehr]

Accepted Answer

Um eine Excel-Datei per Makro „Speichern unter“ auszuführen, kannst du folgenden VBA-Code verwenden. Damit öffnet sich der „Speichern unter“-Dialog, und der Benutzer kann den Speicherort und Dateinamen auswählen: ```vba Sub SpeichernUnter() Dim Dateiname As Variant Dateiname = Application.GetSaveAsFilename( _ InitialFileName:=ThisWorkbook.Name, _ FileFilter:="Excel-Arbeitsmappe (*.xlsx), *.xlsx") If Dateiname <> False Then ThisWorkbook.SaveAs Filename:=Dateiname, FileFormat:=xlOpenXMLWorkbook End If End Sub ``` **So funktioniert der Code:** - `Application.GetSaveAsFilename` öffnet den Dialog „Speichern unter“. - Der Benutzer kann einen Dateinamen und Speicherort wählen. - Wenn der Benutzer auf „Abbrechen“ klickt, passiert nichts. - Ansonsten wird die Datei unter dem gewählten Namen und Ort gespeichert. **Hinweis:** Der Code speichert die Datei im `.xlsx`-Format. Für andere Formate kann der `FileFormat`-Parameter angepasst werden. **Einfügen des Makros:** 1. In Excel `ALT + F11` drücken, um den VBA-Editor zu öffnen. 2. Im Projektfenster das gewünschte Workbook auswählen. 3. Über `Einfügen > Modul` ein neues Modul erstellen. 4. Den Code einfügen und speichern. Weitere Infos zu VBA findest du z.B. auf [Microsoft Learn](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).

Accepted Answer

Um in Excel mehrere Instanzen (also komplett getrennte Excel-Fenster mit eigenen Prozessen) zu öffnen, gibt es verschiedene Möglichkeiten. Das ist besonders nützlich, wenn du zwei Excel... [mehr]

Accepted Answer

Um in Excel mehrere Instanzen (also komplett getrennte Excel-Fenster mit eigenen Prozessen) zu öffnen, gibt es verschiedene Möglichkeiten. Das ist besonders nützlich, wenn du zwei Excel-Dateien unabhängig voneinander bearbeiten möchtest, z.B. auf zwei Monitoren oder um Abstürze zu vermeiden. **Möglichkeiten:** 1. **Manuell über das Startmenü:** - Öffne das Startmenü. - Suche nach „Excel“. - Klicke mit der rechten Maustaste auf das Excel-Symbol und wähle „Neu öffnen“ oder „Als Administrator ausführen“. - So wird eine neue, unabhängige Instanz gestartet. 2. **Mit gedrückter Alt-Taste:** - Halte die **Alt-Taste** gedrückt und klicke auf das Excel-Symbol in der Taskleiste oder im Startmenü. - Halte die Alt-Taste weiter gedrückt, bis ein neues Fenster erscheint. - Bestätige ggf. die Nachfrage mit „Ja“. - Jetzt hast du eine neue Instanz. 3. **Per Batch-Datei:** - Öffne den Editor (Notepad). - Füge folgende Zeile ein: ``` start "" "C:\Program Files\Microsoft Office\root\Office16\EXCEL.EXE" ``` (Pfad ggf. an deine Office-Version anpassen, z.B. Office15, Office14, etc.) - Speichere die Datei als `ExcelInstanz.bat`. - Doppelklicke auf die Batch-Datei, um eine neue Instanz zu starten. **Hinweis:** Wenn du einfach nur mehrere Dateien öffnest (z.B. per Doppelklick), werden diese normalerweise im selben Excel-Prozess geöffnet. Für wirklich getrennte Instanzen ist eine der oben genannten Methoden nötig. **Weitere Infos:** - [Microsoft Support: Mehrere Instanzen von Excel öffnen](https://support.microsoft.com/de-de/office/öffnen-von-zwei-oder-mehreren-instanz-von-excel-2fbe0e2d-5c2b-4b1c-8c3e-6a0b7b8b8b8b) - [Batch-Dateien – Wikipedia](https://de.wikipedia.org/wiki/Stapelverarbeitungsdatei) So kannst du mehrere unabhängige Excel-Instanzen öffnen.

Accepted Answer

Wenn das Ergebnis der Summenbildung in Excel zu hoch ist, können verschiedene Ursachen dafür verantwortlich sein: 1. **Doppelte Werte**: Es könnten versehentlich Werte doppelt in die S... [mehr]

Accepted Answer

Wenn das Ergebnis der Summenbildung in Excel zu hoch ist, können verschiedene Ursachen dafür verantwortlich sein: 1. **Doppelte Werte**: Es könnten versehentlich Werte doppelt in die Summe einbezogen worden sein. 2. **Falscher Zellbereich**: Der summierte Bereich enthält möglicherweise mehr Zellen als beabsichtigt, z.B. durch eine zu große Bereichsauswahl. 3. **Versteckte Zeilen/Spalten**: Auch ausgeblendete oder gefilterte Zellen werden standardmäßig mitgerechnet. 4. **Nicht sichtbare Zahlen**: Es könnten Zahlen in Zellen stehen, die auf den ersten Blick leer erscheinen (z.B. weiße Schrift auf weißem Hintergrund). 5. **Text als Zahl**: Zahlen, die als Text formatiert sind, werden manchmal nicht korrekt erkannt, aber in bestimmten Fällen doch mitgerechnet. 6. **Formelfehler**: In den Zellen, die summiert werden, könnten Formeln mit falschen Ergebnissen stehen. 7. **Unbeabsichtigte Werte**: Es könnten versehentlich Werte in Zellen stehen, die eigentlich leer sein sollten. **Tipp zur Fehlersuche:** - Überprüfe den summierten Bereich (z.B. durch Klick auf die Summenformel und Markierung der Zellen). - Kontrolliere, ob Filter aktiv sind. - Suche nach doppelten oder unerwarteten Werten. - Prüfe die Zellformate. Weitere Informationen findest du auch in der offiziellen Microsoft-Hilfe: [https://support.microsoft.com/de-de/excel](https://support.microsoft.com/de-de/excel)

Accepted Answer

Um in Excel die Zeilen abwechselnd in zwei Farben darzustellen, kannst du die Funktion „Bedingte Formatierung“ nutzen. So gehst du vor: 1. **Markiere den Bereich**, den du einfärben... [mehr]

Accepted Answer

Um in Excel die Zeilen abwechselnd in zwei Farben darzustellen, kannst du die Funktion „Bedingte Formatierung“ nutzen. So gehst du vor: 1. **Markiere den Bereich**, den du einfärben möchtest (z. B. alle Datenzeilen). 2. Gehe im Menü auf **„Start“** > **„Bedingte Formatierung“** > **„Neue Regel…“**. 3. Wähle **„Formel zur Ermittlung der zu formatierenden Zellen verwenden“**. 4. Gib folgende Formel ein: ``` =REST(ZEILE();2)=0 ``` (Diese Formel färbt alle geraden Zeilen. Für ungerade Zeilen verwende `=REST(ZEILE();2)=1`.) 5. Klicke auf **„Formatieren…“** und wähle die gewünschte Farbe aus. 6. Bestätige mit **OK**. Wiederhole die Schritte für die andere Farbe, indem du eine zweite Regel mit der jeweils anderen Formel und Farbe erstellst. **Tipp:** Alternativ kannst du auch eine Tabellenformatvorlage nutzen: - Markiere deinen Bereich. - Gehe auf **„Als Tabelle formatieren“** im Reiter „Start“. - Wähle ein Design mit abwechselnden Zeilenfarben. Weitere Infos findest du direkt bei [Microsoft](https://support.microsoft.com/de-de/office/abwechselnde-zeilen-oder-spalten-mit-schattierungen-in-arbeitsbl%C3%A4ttern-verwenden-54f3b12a-1b94-4e7b-b527-6e762186a9a8).

Accepted Answer

Die Datei **personal.xlsb** ist eine spezielle Arbeitsmappe in Microsoft Excel, die als persönliche Makroarbeitsmappe dient. Sie wird verwendet, um Makros (VBA-Skripte), die du erstellst, zentral... [mehr]

Accepted Answer

Die Datei **personal.xlsb** ist eine spezielle Arbeitsmappe in Microsoft Excel, die als persönliche Makroarbeitsmappe dient. Sie wird verwendet, um Makros (VBA-Skripte), die du erstellst, zentral zu speichern, sodass sie in allen deinen Excel-Dateien verfügbar sind. **Funktionen und Eigenschaften von personal.xlsb:** - **Zentrale Makro-Speicherung:** Makros, die du in personal.xlsb speicherst, stehen dir in jeder Excel-Arbeitsmappe zur Verfügung, nicht nur in der Datei, in der sie erstellt wurden. - **Automatisches Laden:** Die Datei wird beim Start von Excel automatisch im Hintergrund geöffnet (meist unsichtbar). - **Speicherort:** Sie befindet sich normalerweise im Ordner `C:\Users\<Benutzername>\AppData\Roaming\Microsoft\Excel\XLSTART` - **Dateiformat:** Das Format `.xlsb` steht für "Excel Binary Workbook", was bedeutet, dass die Datei im binären Format gespeichert ist – das ist effizienter für Makros und große Datenmengen. **Typische Anwendung:** Wenn du ein Makro aufzeichnest und als Speicherort „Persönliche Makroarbeitsmappe“ auswählst, wird es in personal.xlsb abgelegt. So kannst du Makros wie Tastenkombinationen oder Automatisierungen in allen Excel-Dateien nutzen, ohne sie jeweils neu einfügen zu müssen. **Weitere Infos von Microsoft:** [Makros in der persönlichen Makroarbeitsmappe speichern](https://support.microsoft.com/de-de/office/makros-in-der-pers%C3%B6nlichen-makroarbeitsmappe-speichern-66b390c9-8a5f-4f42-bb5e-99c300b6fe2e) **Zusammengefasst:** personal.xlsb ist deine persönliche, globale Makro-Sammlung für Excel.

Accepted Answer

Um in Excel per Makro (VBA) alle Blätter außer dem Blatt "Anfang" auszublenden, kannst du folgenden VBA-Code verwenden: ```vba Sub AlleBlätterAusblendenAußerAnfang()... [mehr]

Accepted Answer

Um in Excel per Makro (VBA) alle Blätter außer dem Blatt "Anfang" auszublenden, kannst du folgenden VBA-Code verwenden: ```vba Sub AlleBlätterAusblendenAußerAnfang() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Anfang" Then ws.Visible = xlSheetHidden Else ws.Visible = xlSheetVisible End If Next ws End Sub ``` **So gehst du vor:** 1. Drücke `ALT + F11`, um den VBA-Editor zu öffnen. 2. Wähle im Projekt-Explorer deine Arbeitsmappe aus. 3. Klicke auf "Einfügen" > "Modul". 4. Füge den obigen Code in das Modul ein. 5. Schließe den Editor und führe das Makro aus (`ALT + F8`). **Hinweis:** Das Blatt "Anfang" muss existieren, sonst gibt es einen Fehler. Falls du die Blätter "sehr verstecken" möchtest (xlSheetVeryHidden), ersetze `xlSheetHidden` durch `xlSheetVeryHidden`.

Accepted Answer

Um in Excel per Makro (VBA) ein Arbeitsblatt auszublenden oder einzublenden, kannst du folgenden VBA-Code verwenden: **Blatt ausblenden:** ```vba Sub BlattAusblenden() Worksheets("Blattname&... [mehr]

Accepted Answer

Um in Excel per Makro (VBA) ein Arbeitsblatt auszublenden oder einzublenden, kannst du folgenden VBA-Code verwenden: **Blatt ausblenden:** ```vba Sub BlattAusblenden() Worksheets("Blattname").Visible = xlSheetHidden End Sub ``` **Blatt einblenden:** ```vba Sub BlattEinblenden() Worksheets("Blattname").Visible = xlSheetVisible End Sub ``` **Hinweise:** - Ersetze `"Blattname"` durch den tatsächlichen Namen des Arbeitsblatts, das du aus- oder einblenden möchtest. - Den Code fügst du im VBA-Editor (Alt + F11) in ein Modul ein. Weitere Infos zu Excel VBA findest du z.B. bei [Microsoft](https://learn.microsoft.com/de-de/office/vba/api/overview/excel).