schliessen Datei

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: schliessen Datei
von: Daniel
Geschrieben am: 11.04.2005 15:48:15
Hallo zusammen
habe da ein kleineres Problem.
Mit folgenden Code wird ja beim öffnen einer bestimmten Excel Datei alle anderen Exceldateien geschlossen. Nun möchte ich aber folgendes wenn diese bestimmte Datei offen ist soll diese beim öffnen einer anderen Datei gespeichert undgeschlossen werden. Ist das möglich?
Danke


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

Bild

Betrifft: AW: schliessen Datei
von: bennyhamburg
Geschrieben am: 12.04.2005 09:59:23
Hi,
handelt es sich bei der zweiten Datei um eine bestimmte? Oder einfach irgendeine Datei?
gruß
bennyhamburg
Bild

Betrifft: AW: schliessen Datei
von: Daniel
Geschrieben am: 12.04.2005 11:18:25
irgend eine
auch neue.
Danke
 Bild

Beiträge aus den Excel-Beispielen zum Thema "schliessen Datei"