Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
752to756
752to756
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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

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
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
Anzeige
AW: Makro alle xls schließen
06.04.2006 12:48:18
stefan
DANKE ! Funktioniert einwandfrei !
LG Stefan

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige