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

Forumthread: Speichern und beenden

Speichern und beenden
09.08.2007 13:51:00
Brauner
Schönen Nachmittag
Ich habe einen Button mit dem ich speichere
nun möchte ich gerne wenn gespeichert wurde Excel
geschlossen wird und gleichzeitig eine sicherungskopie
auf LW C:\Sicher angelegt wird.
Kann mir bitte jemand den Code ergänzen
Danke im vorraus
Wolferl

Private Sub CommandButton1_Click()
ThisWorkbook.Save
End Sub


Anzeige

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern und beenden
09.08.2007 13:57:00
Renee
Mazwara Wolferl,

Private Sub CommandButton1_Click()
ThisWorkbook.Save
ThisWorkbook.SaveAs "C:\Sicher\" & ThisWorkbook.Name
Application.Quit
End Sub


Greetz Renee

AW: Speichern und beenden
09.08.2007 13:58:00
Hajo_Zi
Hallo Wolfgang,

Option Explicit
Private Sub CommandButton1_Click()
ThisWorkbook.Save
ThisWorkbook.SaveAs "C:\Sicher\" & ThisWorkbook.Name
Application.Quit
End Sub



Anzeige
...zur Auflockerung
09.08.2007 14:02:00
Renee
Hi Haj o,
Ich bezeuge hiermit unter Eid, dass wir:
weder einander kennen,
noch irgendwelche VBA Codes ausgetauscht,
noch irgendwie voneinander abgeschrieben haben,
noch sonswie verwandt oder verschwägert sind...
Greetz Renee

AW: Speichern und beenden
09.08.2007 14:28:00
Brauner
Servus Renee u. Hajo
Der Code sieht jetzt wie folgt aus
Option Explicit

Private Sub CommandButton1_Click()
ThisWorkbook.Save
ThisWorkbook.SaveAs "C:\Sicher\" & ThisWorkbook.Name
Application.Quit
End Sub


es wird aber nur die ori.datei überschrieben
und nach C geht nichts beenden tuts auch nicht
was mach ich falsch?
Grias Euch

Anzeige
AW: Speichern und beenden
09.08.2007 14:40:00
Renee
Hi Wolferl,
Woher soll ich wissen was eine ori.datei ist ? Mein Level ist nur Excel so lala - VBA vermeidbar.
In was für einem Kontext (Anderer Arbeitsmappe, Tabellenblatt, Arbeitsmappe, Modul?) läuft Dein Code ?
Greetz Renee

AW: Speichern und beenden
09.08.2007 14:57:20
Brauner
Servus Renee
Mit ori.datei meinte ich die Datei "Originaldatei"
von der ich zugreife.
Code passt war von ein Fehler von mir
Danke für deine Hilfe
Wolferl

Anzeige
AW: Speichern und beenden
09.08.2007 14:48:14
Hajo_Zi
Hallo Wolfgang,
ich hatte den Code Live geschrieben, jetzt habe ich es getestet und er macht genau das was im Code steht.
Ein Nachbau sieht meist anders aus als das Orignal.
Gruß Hajo

AW: Speichern und beenden
09.08.2007 15:00:10
Brauner
Servus Hajo
Auch dir gebührt mein Dank
Sorry war ein Fehler von mir
Code funzt
Bis zum nächstenmal
Danke aus Wien
Wolferl

Anzeige
AW: Speichern und beenden
09.08.2007 15:30:27
Brauner
Grüss Euch
Ich bins wieder
Jetzt hätt ich noch ein kleines Problemchen
kann mann(frau) das lästige meldung "die Datei..... exestiert schon ,überschreiben j/n"
mittels code ausschalten, so dass gleich überschrieben wird?
Danke Wolferl

AW: Speichern und beenden
09.08.2007 15:40:00
Renee
Hi Wolferl,
Frau kann:

Application.DisplayAlerts = False
ThisWorkbook.SaveAs "C:\Sicher\" & ThisWorkbook.Name
Application.DisplayAlerts = True


Renee

Anzeige
AW: Speichern und beenden
09.08.2007 16:05:00
Brauner
Hi Renee
Danke das funktioniert einwandfrei, wie immer
Lg
Wolferl
;

Forumthreads zu verwandten Themen

Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Excel VBA: Speichern und Schließen einer Datei


Schritt-für-Schritt-Anleitung

Um eine Excel-Datei mit VBA zu speichern und anschließend zu schließen, kannst du den folgenden Code verwenden. Dieser wird in ein Makro eingefügt, das durch einen Button oder eine andere Aktion ausgelöst wird.

Private Sub CommandButton1_Click()
    ' Speichern der Arbeitsmappe
    ThisWorkbook.Save
    ' Speichern unter einem neuen Namen
    ThisWorkbook.SaveAs "C:\Sicher\" & ThisWorkbook.Name
    ' Beenden von Excel
    Application.Quit
End Sub

Dieser Code speichert die aktuelle Arbeitsmappe und legt eine Sicherungskopie im Ordner "C:\Sicher" ab, bevor Excel geschlossen wird. Stelle sicher, dass du den Pfad an deine Bedürfnisse anpasst.


Häufige Fehler und Lösungen

  1. Die Originaldatei wird überschrieben
    Wenn nur die Originaldatei gespeichert wird und keine Sicherungskopie erstellt wird, überprüfe, ob der Pfad C:\Sicher\ existiert und ob du die richtigen Berechtigungen hast.

  2. Excel schließt nicht
    Wenn Excel nach dem Ausführen des Codes nicht schließt, stelle sicher, dass Application.Quit korrekt eingegeben wurde. Überprüfe auch, ob es möglicherweise laufende Prozesse gibt, die das Schließen verhindern.

  3. Bestätigungsdialog beim Überwriting
    Wenn du die Bestätigungsnachricht "Die Datei existiert bereits" verhindern möchtest, kannst du Folgendes hinzufügen:

    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs "C:\Sicher\" & ThisWorkbook.Name
    Application.DisplayAlerts = True

Alternative Methoden

Falls du eine andere Methode suchst, um eine Excel-Datei zu speichern und zu schließen, kannst du auch ein Makro in einem Modul erstellen, das ohne einen Button ausgeführt wird. Hier ein Beispiel:

Sub SpeichernUndSchließen()
    ThisWorkbook.Save
    Application.DisplayAlerts = False
    ThisWorkbook.SaveAs "C:\Sicher\" & ThisWorkbook.Name
    Application.DisplayAlerts = True
    Application.Quit
End Sub

Dieses Makro kann direkt über das Makro-Menü in Excel aufgerufen werden.


Praktische Beispiele

  • Beispiel 1: Automatisches Speichern beim Schließen

    Private Sub Workbook_BeforeClose(Cancel As Boolean)
        ThisWorkbook.Save
    End Sub

    Dieses Beispiel speichert die Arbeitsmappe automatisch, bevor Excel geschlossen wird.

  • Beispiel 2: Abfrage beim Speichern

    Private Sub CommandButton1_Click()
        If MsgBox("Möchtest du die Datei speichern?", vbYesNo) = vbYes Then
            ThisWorkbook.Save
            Application.Quit
        End If
    End Sub

    Hier wird der Benutzer gefragt, ob er die Datei speichern möchte, bevor Excel geschlossen wird.


Tipps für Profis

  • Verwende Option Explicit: Dieser Befehl zwingt dich, alle Variablen zu deklarieren, was Fehler reduziert und den Code lesbarer macht.

  • Fehlerbehandlung: Implementiere eine Fehlerbehandlung, um unerwartete Probleme zu vermeiden:

    On Error GoTo Fehlerbehandlung
    ' Dein Code hier
    Exit Sub
    Fehlerbehandlung:
        MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
  • Speichern unter Dialog: Wenn du den Benutzer einen Speicherort auswählen lassen möchtest, kannst du den Application.GetSaveAsFilename-Dialog verwenden.


FAQ: Häufige Fragen

1. Wie kann ich die automatische Speicherung beim Schließen aktivieren?
Du kannst das Event Workbook_BeforeClose nutzen, um die Arbeitsmappe vor dem Schließen zu speichern.

2. Was mache ich, wenn Excel beim Schließen nicht reagiert?
Überprüfe, ob Hintergrundprozesse laufen oder ob das Makro in einer Endlosschleife steckt. Schließe Excel gegebenenfalls über den Task-Manager.

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