Makro alle xls schließen

Forumthread: Makro alle xls schließen
3 Beiträge zu diesem Forumthread
Anzeige

Forumthread: Makro alle xls schließen

06.04.2006 13: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

AW: Makro alle xls schließen

06.04.2006 13:31:43

IngGi
AW: Makro alle xls schließen

06.04.2006 13:46:50

otto-mueller
AW: Makro alle xls schließen

06.04.2006 14:48:18

stefan

AW: Makro alle xls schließen

06.04.2006 13: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 13: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 14:48:18

stefan

DANKE ! Funktioniert einwandfrei !
LG Stefan

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!