Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 08:08:24
Pivot Vormonatsveränderung
26.04.2024 07:54:11
nur den ersten Eintrag in spalte zählen
25.04.2024 23:47:55
Datum ausweisen, wenn definierte Summe erreicht ist
25.04.2024 21:40:53
Excel Datenquelle aus dem Web mit Anmeldung?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1548to1552
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
1548to1552
1548to1552
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Sub kann beim Speichern nicht ausgeführt werden

Sub kann beim Speichern nicht ausgeführt werden
23.03.2017 16:00:28
Philipp
Hallo Excelperten,
ich habe mehrere Dateien zur Liquiditätsplanung von Projekten, die alle gleich aufgebaut sind. In das Template, mit dem diese Dateien erstellt werden, habe ich neue Funktionen eingebaut und die bestehenden Projektdateien sollen ebenfalls die neuen Funktionen erhalten. Deshalb habe ich in eine externe Datei ein Makro geschrieben, das verkürzt so aufgebaut ist:
- Öffne bestehendes Projektsheet (sFilename)
- Öffne Template (sFilenameTemplate)
- Kopiere alle Eingabefelder aus Projektsheet (sFilename) in das Template (sFilenameTemplate)
- Schließe Projektsheet (sFilename)
- Speichere Template unter dem Namen des Projektsheets (sFilename & „_NEW“) ab. Und genau hier kommt es zum Fehler.
Insgesamt gibt es also drei Dateien: Das Projektsheet, das Template und die Datei zur Übertragung ins neue Template.
Der Befehl zum Speichern kommt aus der Datei zur Übertragung, also jene Datei die das oben beschriebene Makro enthält. Das Template selbst hat im Modul "DieseArbeitsmappe" ein Makro "Workbook_BeforeSave" (Private Sub), das dieses Makro ausführt: „Tabelle1.HidePeriods“ (Public Sub). Beim Ausführen dieses Makros schlägt jedesmal der Debugger Alarm mit
"Laufzeitfehler '1004': Anwendungs- oder objektdefinierter Fehler. Klicke ich auf Beenden, wird die Datei dennoch gespeichert.
Woran kann das liegen?
Ich hoffe, das ist soweit verständlich.
Vielen Dank im Voraus!

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Update: Problem näher eingegrenzt
23.03.2017 16:30:03
Philipp
Nun konnte ich das Problem weiter eingrenzen: Das aufgerufene Makro "Tabelle1.HidePeriods" ruft wiederum das Makro "sheets_unprotect" auf: 
Sub sheets_unprotect()
Dim sWBname As String
Application.ScreenUpdating = False
sWBname = ThisWorkbook.Name
Workbooks(sWBname).Sheets(1).Unprotect "XYZ"
Workbooks(sWBname).Sheets(2).Unprotect "XYZ"
Workbooks(sWBname).Sheets(3).Unprotect "XYZ"
Workbooks(sWBname).Sheets(4).Unprotect "XYZ"
End Sub
Obwohl der Debuger mit Einzelschritten ohne Fehlermeldung durchläuft und auch die Variable sWBname das richtige Workbook hinterlegt hat, wird der Blattschutz nicht aufgehoben. Eine Diagnose aus der Ferne ist wahrscheinlich schwer, aber hat vielleicht dennoch jemand eine Idee, woran das liegen könnte?
Anzeige
AW: Update: Problem näher eingegrenzt
23.03.2017 19:06:59
ChrisL
Hi Philipp
Der Index (1, 2,...) muss nicht unbedingt mit der Tabellenreihenfolge überein stimmen. Prüfe mal mittels Namen, ob du den Schutz für die richtigen Blätter aufhebst...
MsgBox Sheets(1).Name
Vielleicht wird im weiteren Prozess ein Event aufgerufen, welches den Blattschutz wieder herstellt.
Eher nicht die Ursache, aber dennoch präziser...
Sub sheets_unprotect()
Dim WB As Workbook
Application.ScreenUpdating = False
Set WB = ThisWorkbook
WB.Sheets(1).Unprotect "XYZ"
WB.Sheets(2).Unprotect "XYZ"
WB.Sheets(3).Unprotect "XYZ"
WB.Sheets(4).Unprotect "XYZ"
End Sub
cu
Chris
Anzeige
AW: Update: Problem näher eingegrenzt
27.03.2017 09:01:12
Philipp
Hallo Chris,
danke für deine Antwort und Entschuldung für meine späte Rückmeldung. Das Problem konnte ich auch mit der Änderung der Deklaration von String auf Workbook nicht lösen. Die Nummerierung der Sheets ist nicht ursächlich, die habe ich hier nur zur Vereinfachung durchnummeriert. In dem original Quelltext wird mit festen Namen gearbeitet (WB.sheets("Name"). etc.).
Könnte es was damit zu tun haben, dass die erste Sub in einem Tabellenmodul liegt und/oder das Workbook_BeforeSave Modul eine Private Sub ist? Mein Gedanke war, dass dies eigentlich unproblematisch sein sollte, weil das Workbook aus dem die Makros ausgeführt werden, in diesem Zeitpunkt auch das ActiveWorkbook ist. Aber eine andere Erklärung finde ich irgendwie nicht.
Anzeige
AW: Update: Problem näher eingegrenzt
27.03.2017 09:41:15
ChrisL
Hi Philipp
Solange die Prozeduren abgespielt werden (zur Sicherheit testen mit einer MsgBox o.ä.), spielt es keine Rolle in welchem Modul sie sind.
Ich würde die Datei mal schrittweise abspecken (Code löschen, testen, Code löschen, testen usw.). Entweder findest du so die Ursache selber oder es bleibt eine Beispieldatei fürs Forum übrig.
cu
Chris

309 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
Solver - Makro aufgezeichnet, lässt sich nicht abs
u_hoernchen

habe über Makro Aufzeichnen die Benutzung des Solvers aufgezeichnet. Der Code sieht dann aus wie folgt.
SolverOk SetCell:="$K$39", MaxMinVal:=3, ValueOf:="0", ByChange:="$K$16"
SolverSolve
Beim Abspielen hängt er sich dann allerdings bei "SolverOK" auf und sagt "Sub oder Function n...
20.07.2009 13:09:09
Thread-ID: 1089960
3 Beiträge
Geöffnete Datei wird nicht angezeigt...
Ruediger

Hallo zusammen,
ich habe eine Datei - mit einigen Verknüpfungen auf eine andere Datei - versuchen wollen zu öffnen. Ich werde auf gefragt, ob ich aktualisieren will oder nicht. Drücke ich aktualisieren als auch nicht aktualisieren, wird die Datei zwar geöffnet, aber nicht angezeigt.
Wo...
22.07.2009 17:02:42
Thread-ID: 1090605
3 Beiträge
Datei lässt sich nicht öffnen
einfachf

Hallo Zusammen ich schreibe gerade an einem Macro.
Dazu soll aus einer bestehenden datei eine andere Datei geöffnet werden.
Leider funzt das nicht und ich weiß nicht warum.
Hier mein Code.
Dim EX As Excel.Application
Dim WB As Workbook
Dim WS As Worksheet
Set EX = Cr...
06.08.2009 12:12:10
Thread-ID: 1094009
3 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
Anzeige

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
3
2
2
2
8
2
3
5
2
1
4
1
5
2
19
7
1
7
4
6
3