Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: 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)

    Anzeige

    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)

    Anzeige
    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)
    ;

    Forumthreads zu verwandten Themen

    Anzeige
    Anzeige
    Anzeige
    Entdecke relevante Threads

    Schau dir verwandte Threads basierend auf dem aktuellen Thema an

    Alle relevanten Threads mit Inhaltsvorschau entdecken
    Anzeige

    Beliebteste Forumthreads (12 Monate)

    Anzeige
    Anzeige
    Entdecke mehr
    Finde genau, was du suchst

    Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

    Suche nach den besten Antworten
    Unsere beliebtesten Threads

    Entdecke unsere meistgeklickten Beiträge in der Google Suche

    Top 100 Threads jetzt ansehen
    Anzeige