Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
364to368
364to368
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Dateien schliessen

Forumthread: Dateien schliessen

Dateien schliessen
21.01.2004 09:43:28
Daniel
Hallo an alle Excel/VBA Freunde
Hab da eine kleine Frage..... (was denn sonst)
Wenn ich eine bestimmte Exceldatei öffne, möchte ich gerne das alle anderen geöffneten Exceldateien geschlossen werden ( am liebsten wäre es mir, wenn es mich sogar noch Fragen würde, ob es die zu schliessenden Dateien speichern soll oder nicht.)
Warum suche ich nach dieser Möglichkeit:... Diese Ecxeldatei ist seht gross.
wenn möglich soll das ALLES via VBA gehen.
Danke
Gruss Dani
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien schliessen
21.01.2004 10:03:10
Matthias G
Hallo Daniel,
folgender Code in "DieseArbeitsmappe":

Private Sub Workbook_Open()
Dim i As Integer
For i = Workbooks.Count To 1 Step -1
If Workbooks(i).Name <> ThisWorkbook.Name Then
Workbooks(i).Close
End If
Next
'evtl. Abbruch, wenn nicht alle Dateien geschlossen wurden:
If Workbooks.Count > 1 Then
MsgBox "Es konnten nicht alle Dateien geschlossen werden. " & Chr(10) & _
ThisWorkbook.Name & " wird geschlossen."
ThisWorkbook.Close False
End If
End Sub

Die If-Then-Abfrage nach 'evtl Abbruch... kannst du weglassen, wenn deine Mappe geöffnet bleiben soll, obwohl der Benutzer nicht alle Dateien geschlossen hat.
Gruß
Matthias
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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