Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 17:40:39
16.10.2025 17:25:38
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Alle Arbeitsmappen schließen

Forumthread: Alle Arbeitsmappen schließen

Alle Arbeitsmappen schließen
30.01.2003 09:59:07
Roland
Ich möchte mittels VBA-Code alle geöffneten Arbeitsmappen schließen.Der Code ist in der Excel-eigenen "Personl.xls" -Mappe hinterlegt und wird über ein Schaltflächensymbol ausgeführt.
Der Code "Workbooks.Close" schließt zwar die Mappen,doch wird jeweils nachgefragt,ob man speichern will oder nicht.Diese Meldung ließe sich für einzelne Mappen mit dem Zusatz "SaveChanges:=False(od. True)" unterdrücken.Für den Code "Workbooks.Close",also für das Schließen aller Mappen,funktioniert dies nicht.Wer kann mir hier weiterhelfen,dass alle Mappen ohne Nachfragen geschlossen werden?




Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Alle Arbeitsmappen schließen
30.01.2003 10:24:15
Bernd Held

Hallo Roland,

so täts bei mir funktionieren:

Sub AlleMappenSchließenMitSpeichern()
Dim Mappe As Workbook
For Each Mappe In Application.Workbooks()
Mappe.Close savechanges:=True
Next Mappe
End Sub

Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de


Anzeige
Re: Alle Arbeitsmappen schließen
30.01.2003 11:08:14
Roland

Hallo Bernd,
ich habe den Code entsprechend ergänzt.Leider tut sich gar nichts.Keine der Mappen wird geschlossen.Wo kann es noch klemmen?

Grüße Roland


Re: Alle Arbeitsmappen schließen
30.01.2003 11:14:48
Bernd Held

Hallo Roland,

hast Du das MAkro unter einem Modul abgelegt. Da soltle es nämlich hin. Ich kann Dir gerne auch meine Demodatei schicken, maile mich diesbez. bei Interesse an.

Viele Grüße
Bernd
MVP für Microsoft Excel
Noch mehr Excel-Tipps und VBA-Datenbank unter: http://held-office.de


Anzeige
Re: Alle Arbeitsmappen schließen
30.01.2003 14:13:52
Roland

Hallo Bernd,

jetzt klappt's.
Danke für den Tipp!!

Gruß Roland

;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Alle Arbeitsmappen in Excel mit VBA schließen


Schritt-für-Schritt-Anleitung

Um alle geöffneten Arbeitsmappen in Excel zu schließen, kannst du ein einfaches VBA-Makro verwenden. Folge diesen Schritten:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
  2. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.
  3. Gib den folgenden Code ein:

    Sub AlleMappenSchließenMitSpeichern()
       Dim Mappe As Workbook
       For Each Mappe In Application.Workbooks
           Mappe.Close SaveChanges:=True
       Next Mappe
    End Sub
  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Füge eine Schaltfläche hinzu:

    • Gehe zu Entwicklertools > Einfügen > Schaltfläche (Formularsteuerelement).
    • Zeichne die Schaltfläche und wähle das Makro AlleMappenSchließenMitSpeichern aus.
  6. Klicke auf die Schaltfläche, um alle Arbeitsmappen zu schließen.


Häufige Fehler und Lösungen

  • Fehler: Keine Arbeitsmappen werden geschlossen.

    • Lösung: Stelle sicher, dass das Makro in einem Modul und nicht in der Personal.xls-Mappe gespeichert ist. Wenn das Makro in der falschen Arbeitsmappe gespeichert ist, wird es möglicherweise nicht ausgeführt.
  • Fehler: Es erscheint ein Dialogfeld zum Speichern.

    • Lösung: Achte darauf, dass du SaveChanges:=True oder SaveChanges:=False im Code korrekt gesetzt hast, um das Dialogfeld zu unterdrücken.

Alternative Methoden

Wenn du keine VBA verwenden möchtest, kannst du auch manuell alle Arbeitsmappen schließen:

  1. Klicke auf das X-Symbol jedes Fensters.
  2. Nutze die Tastenkombination ALT + F4, um das aktive Fenster zu schließen.

Beachte, dass du bei dieser Methode gefragt wirst, ob du die Änderungen speichern möchtest.


Praktische Beispiele

Ein Beispiel für ein Makro, das alle Arbeitsmappen ohne Speichern schließt:

Sub AlleMappenOhneSpeichernSchließen()
    Dim Mappe As Workbook
    For Each Mappe In Application.Workbooks
        Mappe.Close SaveChanges:=False
    Next Mappe
End Sub

Du kannst das Makro anpassen, um nur bestimmte Arbeitsmappen zu schließen, indem du Bedingungen hinzufügst.


Tipps für Profis

  • Verwende Error Handling: Füge Fehlerbehandlungsroutinen hinzu, um sicherzustellen, dass dein Makro auch bei unerwarteten Fehlern weiterläuft:

    On Error Resume Next
  • Testen in einer Kopie: Teste dein Makro zuerst in einer Kopie deiner Arbeitsmappen, um Datenverluste zu vermeiden.


FAQ: Häufige Fragen

1. Kann ich das Makro so anpassen, dass nur bestimmte Arbeitsmappen geschlossen werden? Ja, du kannst Bedingungen in die Schleife einfügen, um nur bestimmte Mappen zu schließen, z. B. basierend auf dem Namen.

2. Muss ich VBA aktivieren, um das Makro auszuführen? Ja, du musst VBA aktivieren und sicherstellen, dass Makros in deinen Excel-Einstellungen erlaubt sind.

3. Wie kann ich das Makro automatisch beim Schließen von Excel ausführen? Du kannst das Makro im Workbook_BeforeClose-Ereignis deiner ThisWorkbook-Objektdatei einfügen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige