Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 18:34:36
Welches Datum gibt mein M-Code aus?
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei wurde nicht gespeichert '1004'

Forumthread: Datei wurde nicht gespeichert '1004'

Datei wurde nicht gespeichert '1004'
13.08.2006 12:01:31
Stefan
Hallo,
kennt jemand eine Lösung für folg. Effekt.
Per Makro wird ein Tabellenblatt gelöscht, worauf sich danach nicht mehr die Datei speichern lässt.
...
ThisWorkbook.Sheets("Tabelle2").Delete
ThisWorkbook.Save
Laufzeitfehler '1004':
Datei wurde nicht gespeichert.
Gruß, Stefan
Anzeige

15
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei wurde nicht gespeichert '1004'
13.08.2006 13:30:03
ChrisL
Hallo Stefan
Ich glaube nicht, dass dein Save-Problem in Zusammenhang mit Delete steht (mach mal eine Trockenübung). Vielleicht ist die Ursache ganz banal z.B. keine Schreibberechtigung. Ansonsten könnte ich mir Vorstellen, dass dein übriger Code zu optimieren wäre z.B. wenn sehr grosse Breiche kopiert werden oder ähnlich.
Manchmal hilft es auch die Mappe zu "säubern" d.h. neue Mappe anlegen und Tabellenblätter, Codes etc. einzeln in die neue Mappe kopieren. Leere Bereiche z.B. Zeile 100:65536 markieren und löschen (ganze Zeile löschen nicht nur Inhalt).
Gruss
Chris
Anzeige
AW: Datei wurde nicht gespeichert '1004'
13.08.2006 14:26:51
Stefan
Hi Chris,
"Schreibschutz" habe ich probiert - der ist's nicht.
"Kopieren" soll erst danach, also nach dem Blatt löschen erfogen. Scheidet also auch aus.
Das verrückte ist, das Makro lief schon mal mit diesem Code.
Hier der Code, fällt DIR dabei etwas auf ?
Sub einlesen()
Dim st_b As Variant, st_z As Variant, st_a As Variant, wks As Worksheet
st_b = Array("05 b d0", "05 b d1", "05 b d2", "05 b d3", "05 b d4", "05 b d5")
st_z = Array("05 d0", "05 d1", "05 d2", "05 d3", "05 d4", "05 d5")
st_a = Array("akt d0", "akt d1", "akt d2", "akt d3", "akt d4", "akt d5")
For Each wks In ThisWorkbook.Sheets
wks.Visible = -1
Next wks
If Application.Dialogs(xlDialogOpen).Show("bestände.xls", False, True) = False Then Exit Sub
ThisWorkbook.Sheets(st_b(0)).Delete
ThisWorkbook.Unprotect
ThisWorkbook.Save
>>> Fehlermeldung Activesheets(1).Move After:=Workbooks(ThisWorkbook.Name).Sheets(ThisWorkbook.Sheets.count)
...
Gruß, Stefan
Anzeige
AW: Datei wurde nicht gespeichert '1004'
13.08.2006 15:27:01
ChrisL
Hallo Stefan
Nein, da fällt mir auch nichts auf. Aber insbesondere weil der Code schonmal lief, würde ich eine neue Mappe nehmen (Stichwort "säubern").
Gruss
Chris
AW: Datei wurde nicht gespeichert '1004'
13.08.2006 15:38:34
Horst
Hi,
der Code kann so ohne Fehlermeldung nicht gelaufen sein.
mfg Horst
@Horst - warum nicht?
13.08.2006 15:46:53
ChrisL
Hallo Horst
Reine Neugier ;-)
Gruss
Chris
Anzeige
AW: @Horst - warum nicht?
13.08.2006 18:02:58
Horst
Hi,
ausprobieren!
mfg Horst
AW: @Horst - warum nicht?
14.08.2006 08:58:25
ChrisL
Hallo Horst
Habe längst ausprobiert und läuft. Oder habe ich die Fehlermeldung übersehen? ;-)
Gruss
Chris
AW: Datei wurde nicht gespeichert '1004'
13.08.2006 19:44:19
Gerd
Hallo Stefan,

Sub einlesen()
Dim st_b As Variant, st_z As Variant, st_a As Variant, wks As Worksheet
st_b = Array("Tabelle6", "05 b d1", "05 b d2", "05 b d3", "05 b d4", "05 b d5")
st_z = Array("05 d0", "05 d1", "05 d2", "05 d3", "05 d4", "05 d5")
st_a = Array("akt d0", "akt d1", "akt d2", "akt d3", "akt d4", "akt d5")
For Each wks In ThisWorkbook.Sheets
wks.Visible = -1
Next wks
If Application.Dialogs(xlDialogOpen).Show("060812.xls", False, True) = False Then Exit Sub
ThisWorkbook.Sheets(st_b(0)).Delete
ThisWorkbook.Unprotect
ThisWorkbook.Save
End Sub

'>>> Fehlermeldung 'Activesheets(1).Move After:=Workbooks(ThisWorkbook.Name).Sheets(ThisWorkbook.Sheets.Count)
Bis dahin läuft dein Code, den ich für meinen Test gerinfügig
abgeändert habe.
Allerdings natürlich nur einmal bzw. solange das "Tabellenblatt6"
existiert.
Wegen ActiveSheet und Move guckt mal in der Hilfe.
Oder schreibe mal nach "...Save",
da wo bei Dir "Fehlermeldung" steht zum Testen
Debug.Print "ActiveWorkbook.Name"
Debug.Print "ActiveSheet.Name"
Debug.Print "Activesheets(1).Name"
Exit Sub
Gruß
Gerd
Anzeige
AW: Datei wurde nicht gespeichert '1004'
13.08.2006 20:42:58
Stefan
Hallo Gerd,
ich komme gar nicht über Thisworkbook.save hinaus. Dort kommt schon die Fehlermeldung.
Wie gehe ich mit den Debug-Anwiesungen um, was bewirken diese?
Gruß, Stefan
AW: Datei wurde nicht gespeichert '1004'
13.08.2006 20:56:43
Gerd
Hallo Stefan,
diese bewirken, dass der Wert des dahinter angegebenen Ausdrucks bzw. Variable
im VBA-Editor im Direktfenster ausgegeben wird.
(im VBA-Editor unter "Ansicht" einzublenden).
P.S. Ist das zu löschende Sheet beim Start des Makros noch vorhanden ?
Gruß
Gerd
Anzeige
AW: Datei wurde nicht gespeichert '1004'
14.08.2006 09:19:26
Stefan
Hallo Gerd,
danke, das ist gut - hab wieder dazu gelernt.
Sehe damit auch, das die Variablen alle richtig belegt sind.
Ich glaube aber nicht, das dort die Ursache liegt. Ich kann problemlos die Plazierung der Befehle verändern, die Verweigerung die Datei speichern zu können kommt grundsätzlich erst nach dem das Blatt gelöscht wurde. Also nach:
ThisWorkbook.Sheets(st_b(i)).Delete
Ja, das Sheet ist noch beim Makrostart vorhanden.
Gruß, Stefan
Anzeige
AW: Datei wurde nicht gespeichert '1004'
14.08.2006 11:28:28
Gerd
Hallo Stefan,
schreibe mal "Unprotect("") vor die Zeile mit "Delete" und wenn Du
ein Passwort vergeben hast, dann " Unprotect("Passworttext") "
Gruß
Gerd
AW: Datei wurde nicht gespeichert '1004'
14.08.2006 11:39:26
Stefan
Hallo Gerd,
:o) das hatte ich schon im Quelltext - ging auch nicht.
Es lässt sich solange speichern bis der .Delete-Befehl abgearbeitet wurde, ab dann nicht mehr. -- unklar, oder --
Sub einlesen()
Dim st_b As Variant, wks As Worksheet
st_b = Array("05 b d0", "05 b d1", "05 b d2", "05 b d3", "05 b d4", "05 b d5")
For Each wks In ThisWorkbook.Sheets
wks.Visible = -1
Next wks
If Application.Dialogs(xlDialogOpen).Show("bestände.xls", False, True) = False Then Exit Sub
ThisWorkbook.Sheets(st_b(0)).Delete
ThisWorkbook.Unprotect
ThisWorkbook.Save
>>> Fehlermeldung
Anzeige
AW: Datei wurde nicht gespeichert '1004'
14.08.2006 12:39:00
Gerd
Hallo Stefan,
nimm mal eine neue Mappe, ohne jeden Schutz, übernehme deinen Code,
kommentiere aber für den Anfang jeden Befehl mit Protect, Unprotect
und Save mit "'" ganz links in den entsprechenden Codezeilen aus
und teste schrittweise.
Gruß
Gerd
AW: Datei wurde nicht gespeichert '1004'
14.08.2006 12:31:03
Stefan
Hallo Gerd,
Problem erkannt.
Hab's auf'nem anderen Rechner laufen lassen und eine aussagefähigere Fehlermeldung erhalten.
Das Problem war:
Es gibt einen Listboxbezug ( .ListFillRange ) auf das zu löschende Blatt, der das Speichern nach dem Blattlöschen, durch den ungültige Bezug verhindert !!!
Trotzdem vielen Dank für Eure Hilfe und Anteilnahme ;o)
Gruß, Stefan.
Anzeige
;

Forumthreads zu verwandten Themen

Die Arbeitsmappe kann nicht geschlossen werden!
Andreas

Die Arbeitsmappe kann nicht geschlossen werden, da sie von einer anderen
Arbeitsmappe verwendet wird!"
Diese Meldung bekomme ich in Excel 2007, wenn ich in meinem VBA- Code
"workbooks.close" verwende.
Es sind aber keine weiteren Mappen geöffnet, kann mir da jemand weiterhelfen?<...
13.08.2008 20:56:05
Thread-ID: 1001659
2 Beiträge
XML Datei kann nicht geöffnet werden
Josef

Guten Morgen!
Ich wollte mit folgendem code (gefunden in der Recherche) eine xml Datei aus einem Arbeitsblatt erstellen:
Sub Erzeuge_xml() Dim Original As String Dim Kopie As String Dim t As Integer If Len(Dir("H:\Statistik HVB", vbDirectory)) = 0 Then 'Prüfe ob Verzeichniss vorhanden...
18.11.2008 07:44:00
Thread-ID: 1025458
2 Beiträge
Anzeige
Pivottable kann in 2003 nicht bearbeitet werden
Ralf

Hallo,
ein Kunde von mir arbeitet seit einiger Zeit mit Excel 2007 und erstellt
umfangreiche PivotTables.
Da einige Mitarbeiter aber noch mit Excel 2003 arbeiten, müssen diesen die Dateien
im 2003-Format zur Verfügung gestellt werden. Dabei wurde festgestellt, dass die
Pivot...
08.01.2009 19:08:36
Thread-ID: 1038015
3 Beiträge
Fehlermeldung "Objekt kann nicht entladen werden"
Nik

Hallo.
Bin am Verzweifeln.
Mein excel ist im VB-Editor offen und ich versuche, das Projekt zu speichern.
Es kommt immer wieder die Fehlermeldung, dass ich excel nicht speichern kann.
Im VB-Editor versuche ich, die Userform frmStart zu schließen.
Es kommt die Fehlermeldung La...
24.02.2009 13:59:02
Thread-ID: 1053502
2 Beiträge
Zahlen werden nicht erkannt
Emanuel

Hallo,
ich habe ein Problem mit einer fremden Excel-Datei. Ich kann in Spalte G (bzw. H - war ein Selbstversuch) keine Summen bilden. Anscheinend wird diese Spalte nicht als Zahlenspalte erkannt auch nach Formatierung etc.
Könnt Ihr mir da weiterhelfen?
Viele Grüsse Emanuel
Link...
02.09.2009 11:32:24
Thread-ID: 1100009
9 Beiträge
Copy kann nicht ausgeführt werden
Heinz

Liebe Excelfreunde,
ich schlage mich schon lange mit folgendem Problem herum:
Ich habe einige Wertungsroutinen für einen Triathlon-Cup geschrieben. Da gibt es Einzel-, Gesamt- und Altersklassenwertungen. Das Ganze läuft einige Zeit. Bei der letzten (Altersklassen) Wertung gibt es plötzl...
08.10.2009 17:24:53
Thread-ID: 1108209
3 Beiträge
Datei nicht gespeichert.Alle vorher gespeicherten
dieter

hallo Forum,
diese meldung habe ich auf dem macintosh:
>Datei nicht gespeichert.Alle vorher gespeicherten Kopien wurden gelöscht. Die datei lässt sich nicht speichern.
Gibt es eine Lösung?
gruss d.
15.11.2009 21:43:37
Thread-ID: 1117415
2 Beiträge
Anzeige
Zahlen werden nicht als Zahlen erkannt
Wolfango

Und noch ein Problem Phänomen:
ich habe hier Datenmaterial in Excel, welches aus einem anderen EDV-system stammt.
https://www.herber.de/bbs/user/66024.xls
Excel interpretiert die Zahlen als Text (erkennbar an der linksbündigkeit, da hilft auch kein anderes Zahlenformat) und somit la...
18.11.2009 15:57:43
Thread-ID: 1118359
4 Beiträge
Anzeige
Zahlen werden nicht als Zahlen erkannt
Wolfango

Und noch ein Problem Phänomen:
ich habe hier Datenmaterial in Excel, welches aus einem anderen EDV-system stammt.
https://www.herber.de/bbs/user/66024.xls
Excel interpretiert die Zahlen als Text (erkennbar an der linksbündigkeit, da hilft auch kein anderes Zahlenformat) und somit la...
18.11.2009 16:04:17
Thread-ID: 1118360
6 Beiträge
Anzeige
Fehlermeldung: Datei wurde nicht gespeichert
PeterFl

Hi Freaks,
ich habe hier bereits mehrfach den Fall, dass eine Datei, die ich völlig normal vom Server runtergeladen und bearbeitet habe, sich anschliessend nicht mehr speichern lässt.
Wenn ich nach meinen Eingaben die Datei speichern will, rödelt die Kiste heftig los (bis ca. 97 %) und da...
12.04.2002 15:54:00
Thread-ID: 112886
4 Beiträge
Datei nicht gespeichert / wiederherstellen | Herbers Excel-Forum
Thomas R.
Hallo,
eine Kollegin welche den ganzen Tag eine Excel Tabelle gefüllt hat, hat gerade aus Versehen die Datei geschlossen und den Warnhinweis speicher Ja/nein verneint, also nicht gespeichert.
Ist die Datei irgendwie noch zu retten?
AutoWiederherstellen ist auf alle 10min eingestellt, ab...
03.02.2010 17:32:49
Thread-ID: 1135540
2 Beiträge
Datei wurde nicht gespeichert
DirkR

Hallo Ex(cel)perten,
vielleicht hat jemand von Euch zufällig einen Tipp für mich auf die Schnelle:
Ich habe eine recht grosse Exceldatei und wollte diese Speichern weil ich diverse Änderungen vorgenommen habe. Sobald ich auf speichern klicke kommt die Meldung: "Datei wurde nicht gespeic...
03.03.2010 16:49:54
Thread-ID: 1142966
2 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Infobox / Tutorial

Laufzeitfehler 1004: Dokument wurde nicht gespeichert in Excel VBA beheben

Schritt-für-Schritt-Anleitung

  1. Fehler identifizieren: Wenn du den Laufzeitfehler '1004' erhältst, kann dies oft daran liegen, dass ein Blatt gelöscht wird, während eine Referenz auf dieses Blatt noch besteht.

  2. Code anpassen: Überprüfe den VBA-Code. Stelle sicher, dass alle Referenzen zu dem zu löschenden Blatt entfernt werden, bevor du das Blatt mit ThisWorkbook.Sheets("Tabelle2").Delete löschst.

  3. Unprotect vor Delete: Vergewissere dich, dass du die Arbeitsmappe mit ThisWorkbook.Unprotect vor dem Löschen des Blattes entsperrst.

  4. Debuggen: Füge Debug-Anweisungen ein, um zu überprüfen, wo der Fehler auftritt. Beispiel:

    Debug.Print "ActiveWorkbook.Name"
Debug.Print "ActiveSheet.Name"

  5. Mappe "säubern": Wenn das Problem weiterhin besteht, kann es helfen, eine neue Arbeitsmappe zu erstellen und die Inhalte schrittweise zu übertragen.

Häufige Fehler und Lösungen

  • Schreibschutz: Überprüfe, ob die Excel-Datei schreibgeschützt ist. Dies kann zu der Meldung "Das Dokument wurde nicht gespeichert" führen.
  • Referenzen auf gelöschte Blätter: Achte darauf, dass keine Listbox-Referenzen oder andere Verknüpfungen auf das zu löschende Blatt bestehen.
  • Ungültige Bereiche: Wenn du große Bereiche oder leere Zeilen kopierst, kann dies ebenfalls zu Problemen führen. Lösche leere Zeilen und Bereiche, bevor du speicherst.

Alternative Methoden

  • Manuelles Speichern: Versuche, die Datei manuell zu speichern, um festzustellen, ob das Problem im VBA-Code oder in der Datei selbst liegt.

  • VBA-Fehlerbehandlung: Implementiere eine Fehlerbehandlung in deinem Code, um spezifische Fehler abzufangen. Beispiel:

    On Error GoTo ErrorHandler
' Dein VBA Code hier
Exit Sub
ErrorHandler:
MsgBox "Fehler Nummer: " & Err.Number & " - " & Err.Description

Praktische Beispiele

Hier ist ein einfaches Beispiel, wie du den Laufzeitfehler 1004 vermeiden kannst:

Sub einlesen()
    Dim st_b As Variant
    Dim wks As Worksheet

    st_b = Array("05 b d0", "05 b d1")

    ' Arbeitsmappe entsperren
    ThisWorkbook.Unprotect

    ' Blätter sichtbar machen
    For Each wks In ThisWorkbook.Sheets
        wks.Visible = xlSheetVisible
    Next wks

    ' Blatt löschen
    ThisWorkbook.Sheets(st_b(0)).Delete

    ' Speichern
    ThisWorkbook.Save
End Sub

Tipps für Profis

  • Verwende Option Explicit: Dies hilft, Fehler durch nicht deklarierte Variablen zu vermeiden.
  • Regelmäßige Backups: Mache regelmäßig Backups deiner Excel-Dateien, um Datenverlust zu vermeiden.
  • VBA-Referenzen überprüfen: Stelle sicher, dass alle externen Verknüpfungen und Referenzen im Code korrekt sind, um Laufzeitfehler zu vermeiden.

FAQ: Häufige Fragen

1. Was bedeutet Laufzeitfehler 1004?
Der Laufzeitfehler 1004 tritt auf, wenn Excel ein Dokument nicht speichern kann, oft aufgrund von Referenzen auf gelöschte Objekte oder fehlenden Berechtigungen.

2. Wie kann ich den Fehler debuggen?
Füge Debug.Print-Anweisungen in deinen Code ein, um den Status von Variablen und Objekten zu überprüfen, bevor der Fehler auftritt.

3. Was kann ich tun, wenn die Datei nicht gespeichert werden kann?
Überprüfe, ob die Datei schreibgeschützt ist oder ob es noch Referenzen auf gelöschte Blätter gibt. Eine neue Mappe zu erstellen und den Code dort zu testen, kann ebenfalls hilfreich sein.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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