Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 18:41:19
vba Zeilen duplizieren ab aktiver Zeile bis letzte Zeile
25.04.2024 18:22:55
Zeilen mit bestimmtem Datum in andere Mappe übertragen
25.04.2024 18:14:45
VBA - Excell - Kopie und "Diebstahl" Schützen
25.04.2024 17:49:39
Bedingte Formatierung
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
788to792
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
788to792
788to792
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
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
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

129 Forumthreads zu ähnlichen 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
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
Anzeige
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
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
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
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

Links zu Excel-Dialogen

ListBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
1
2
1
8
2
1
3
5
3
1
1
1
11
2
12
10
3
2
1
18
7
9
2
3