Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1492to1496
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
Inhaltsverzeichnis

Excel beenden OHNE Datei Änderungsabfrage

Excel beenden OHNE Datei Änderungsabfrage
10.05.2016 15:59:34
Dieter(Drummer)
Guten Tag, VBA Spezialisten,
ich möchte Excel beenden und alle geöffneten Dateien sollen OHNE evtl. Änderungen ebenfalls geschlossen werden. Folgendes Makro (mit Hilfe aus diesem Forum) lässt immer noch die Frage zu, ob geänderte Dateien geschlssoen werden sollen. Was muss geändert oder angepasst werden?
  • 
    Sub ExcelEnde()
    If MsgBox("Excel schliessen OHNE Änderung?", vbYesNo, "Info") = vbYes Then
    CommandBars.FindControl(ID:=752).Execute
    Application.Quit
    Else
    End If
    End Sub
    

  • Danke für evtl. Hilfe und
    Gruß, Dieter(Drummer)

    7
    Beiträge zum Forumthread
    Beiträge zu diesem Forumthread

    Betreff
    Datum
    Anwender
    Anzeige
    AW: Excel beenden OHNE Datei Änderungsabfrage
    10.05.2016 16:01:42
    Hajo_Zi
    eine schleife über alle geöffneten Dateien .close False

    AW: Excel beenden OHNE Datei Änderungsabfrage
    10.05.2016 16:02:22
    Hajo_Zi
    eine schleife über alle geöffneten Dateien .close False

    AW: Danke Hajo, aber ...
    10.05.2016 16:05:37
    Dieter(Drummer)
    ... für schnelle Rückmeldung. Leider weiß ich nicht, wie ich eine Schleife über alle evtl. geöffneten Dateien programiere.
    Gruß, Dieter(Drummer)

    AW: Datei schließen
    10.05.2016 16:31:23
    Hajo_Zi
    Hallo Dieter,
    Du machst doch schon viel in VBA. Das sollte doch kein Problem sein.
    Option Explicit
    Sub DateiSchliessen()
    Dim WBDatei As Workbook
    For Each WBDatei In Workbooks
    WBDatei.Close True
    Next WBDatei
    End Sub
    
    Gruß Hajo

    Anzeige
    AW: Danke Hajo, das hilft mir weiter
    10.05.2016 16:41:42
    Dieter(Drummer)
    Gruß, Dieter(Drummer)

    AW: Excel beenden OHNE Datei Änderungsabfrage
    10.05.2016 16:34:15
    Nepumuk
    Hallo,
    teste mal:
    Public Sub ExcelEnde()
        Dim objWorkbook As Workbook
        If MsgBox("Excel schliessen OHNE Änderung?", vbYesNo, "Info") = vbYes Then
            For Each objWorkbook In Application.Workbooks
                objWorkbook.Saved = True
            Next
            Application.Quit
        End If
    End Sub

    Gruß
    Nepumuk

    Anzeige
    AW: Danke Nepumuk. Klappt perfekt
    10.05.2016 16:42:53
    Dieter(Drummer)
    Gruß und herzlichen Dank, Dieter(Drummer)

    Beliebteste Forumthreads (12 Monate)

    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Anzeige