Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
16.10.2025 17:40:39
Rabattstafel
16.10.2025 17:25:38
bedingte Formatierung
16.10.2025 16:39:53
Ergebnisse nach rechts ausgeben
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Makro alle xls schließen

Forumthread: Makro alle xls schließen

Makro alle xls schließen
06.04.2006 11:19:18
Stefan
Hi,
gibt es einen Makro Befehl der heißt :
"Schließe alle Excel Files ausgenommen das Aktuelle"
Wäre für eine Antwort sehr dankbar
LG Stefan
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro alle xls schließen
06.04.2006 11:31:43
IngGi
Hallo Stefan,
so zum Beispiel:

Sub Dateien_schliessen()
Dim strAktDatei As String
Dim wkb As Workbook
strAktDatei = ActiveWorkbook.Name
For Each wkb In Application.Workbooks
If wkb.Name <> strAktDatei Then
If wkb.Name <> ThisWorkbook.Name Then
wkb.Close False 'Schliessen ohne zu speichern !!!
End If
End If
Next 'wkb
If strAktDatei <> ThisWorkbook.Name Then
ThisWorkbook.Close False 'Schliessen ohne zu speichern !!!
End If
End Sub
Gruß Ingolf
Anzeige
AW: Makro alle xls schließen
06.04.2006 11:46:50
otto-mueller
Hallo,
oder so:

Sub MappeSchliessen()
Dim Mappe As Workbook
For Each Mappe In Application.Workbooks
If Application.ActiveWorkbook.FullName <> Mappe.FullName Then Mappe.Close
Next Mappe
End Sub

Gruß
Otto
AW: Makro alle xls schließen
06.04.2006 12:48:18
stefan
DANKE ! Funktioniert einwandfrei !
LG Stefan
Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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