Wenn Bed. beim Speichern Quit / Close

Bild

Betrifft: Wenn Bed. beim Speichern Quit / Close
von: udo
Geschrieben am: 25.09.2003 15:33:40

Hallo Excies,

bräuchte bitte kurz eure Hilfe.

Ich beende eine Datei per VBA auf folgendem Weg

ThisWorkbook.Close

das ist soweit toll, da somit die noch anderen geöffneten Dateien aus EXCEL noch geöffnet bleiben.

Nun meine Frage , wie müsste denn eine If Bedingung aussehen, dass wenn keine andere EXCEL Datei mehr geöffnet ist, das er dann von

ThisWorkbook.Close

auf

Application.Quit

umspringt, damit EXCEL insgesamt dann geschlossen wird. Kann mir dabei bitte Jemand helfen.

Gruß udo

Danke euch schon mal im Voraus ...

Bild


Betrifft: AW: Wenn Bed. beim Speichern Quit / Close
von: Hajo_Zi
Geschrieben am: 25.09.2003 15:38:55

Hallo Udo


Sub test()
    If Workbooks.Count = 1 Then
        ' Datei Sichern
        'Excel schliessen
    Else
        ' Datei Sichern
    End If
End Sub




Falls Code vorhanden wurde dieser getestet unter Betriebssystem XP Pro und Excel Version XP SBE.
Bitte kein Mail, Probleme sollen im Forum gelöst werden.

Microsoft MVP für Excel

Das Forum lebt auch von den Rückmeldungen.

Zurzeit gibt es wieder Probleme mit der E-Mail Benachrichtigung.

Ich bekomme Mails zu Beiträgen an denen ich nicht beteiligt bin und zusätzlich noch Mails zu meinen eigenen Beiträgen.
Das Problem mit den eigenen Benachrichtigung kann gelöst werden durch Lösche und Neuanmelden. Dieses möchte ich aber nicht jeden Tag machen.
Um dieses Problem erstmal zu beseitigen habe ich die automatische Mailbenachrichtigung abgeschaltet.
Aus diesem Grunde ist es dem Zufall überlassen ob auf Rückfragen Antworten von mir kommen.


http://home.media-n.de/ziplies/



Bild


Betrifft: Danke dir Hajo, super , vielen lieben Dank oT
von: udo
Geschrieben am: 25.09.2003 15:50:43

...


Bild


Betrifft: Danke für Rückmeldung oT
von: Hajo_Zi
Geschrieben am: 25.09.2003 15:51:30




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Wenn Bed. beim Speichern Quit / Close"