Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Datei automatisch überschreiben

Datei automatisch überschreiben
28.02.2007 16:43:00
lufrio1
Liebe Excelianer,
ich hoffe Ihr könnt mir bei folgendem Problem helfen:
Mit dem Makrorecorder habe ich aufgezeichnet:
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"\\Festplatte\Buchhaltung\Test_backup.xls
Jetzt fragt er mich ja jedesmal, ob ich die bereits vorhandene Datei überschreiben möchte.
Frage: Wie baue ich das ebenfalls ins Makro ein?
Vielen dank im voraus.
Lufrio
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei automatisch überschreiben
28.02.2007 16:51:53
Thorsten_Z
Hallo Lufrio,
Application.DisplayAlerts = False
ActiveWorkbook.Save
ActiveWorkbook.SaveAs Filename:= _
"\\Festplatte\Buchhaltung\Test_backup.xls
Application.DisplayAlerts = True
Gruß
Thorsten
AW: Datei automatisch überschreiben
28.02.2007 16:54:14
lufrio1
Danke erst einmal, Thorsten.
Probiere es morgen. Jetzt gehe ich nach hause :-)
Lufrio
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Datei automatisch überschreiben in Excel


Schritt-für-Schritt-Anleitung

Um eine Datei automatisch zu überschreiben, ohne dass Excel nach Bestätigung fragt, kannst du folgendes VBA-Skript verwenden:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Gehe zu "Einfügen" > "Modul", um ein neues Modul zu erstellen.

  3. Füge den folgenden Code in das Modul ein:

    Sub DateiUeberschreiben()
       Application.DisplayAlerts = False
       ActiveWorkbook.SaveAs Filename:="\\Festplatte\Buchhaltung\Test_backup.xls"
       Application.DisplayAlerts = True
    End Sub
  4. Speichere dein Projekt und schließe den VBA-Editor.

  5. Führe das Makro aus, um die Datei automatisch zu überschreiben.

Dieser Code setzt DisplayAlerts auf False, um die Warnmeldung zu deaktivieren, wenn die Datei überschrieben wird. Nach dem Speichern wird DisplayAlerts wieder auf True gesetzt.


Häufige Fehler und Lösungen

  • Fehler: „Datei kann nicht gespeichert werden“

    • Überprüfe den Pfad und stelle sicher, dass du Schreibrechte für den Speicherort hast.
  • Problem mit Application.DisplayAlerts = False

    • Stelle sicher, dass du den Befehl vor dem Speichern und nach dem Speichern korrekt im Code platziert hast.

Alternative Methoden

Wenn du kein Makro verwenden möchtest, kannst du die Datei auch manuell überschreiben:

  1. Öffne die Datei, die du überschreiben möchtest.
  2. Wähle „Datei“ > „Speichern unter“.
  3. Wähle den Speicherort und benenne die Datei gleich.
  4. Bestätige die Nachfrage zum Überschreiben.

Diese Methode ist jedoch weniger automatisiert und erfordert zusätzliche Schritte.


Praktische Beispiele

In einem Beispiel könntest du das Makro so anpassen, dass es die Datei zu einem bestimmten Zeitpunkt speichert, etwa beim Schließen der Arbeitsmappe:

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:="\\Festplatte\Buchhaltung\Test_backup.xls"
    Application.DisplayAlerts = True
End Sub

Dieses Skript speichert die Datei automatisch, wenn du die Excel-Arbeitsmappe schließt.


Tipps für Profis

  • Nutze die Workbook_Open()-Prozedur, um beim Öffnen der Datei automatisch eine Sicherung zu erstellen.
  • Experimentiere mit verschiedenen Dateiformaten, indem du die FileFormat-Option in SaveAs hinzufügst, um spezifische Dateitypen zu speichern.

FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um eine andere Datei zu überschreiben?
Ändere einfach den Dateinamen in der SaveAs-Zeile deines Codes.

2. Funktioniert das auch in älteren Excel-Versionen?
Ja, der VBA-Code sollte in den meisten Excel-Versionen ab 2007 funktionieren, solange die Makro-Funktionalität aktiviert ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige