Office: Laufzeitfehler 1004 beim speichern.

Hi!

in einem Excelsheet habe ich beim Klicken auf einen Button folgenden Code

Code:

Es kommt Laufzeitfehler 1004.
Was ist da falsch?

:)

 

Moin, phobos,

TakeFocusOnClick in den Eigenschaften der Schaltfläche auf True stellen, die Unterschiede von ThisWorkbook und ActiveWorkbook treten nicht auf, da nach dem Speichern unter einem Namen immer eine Übereinstimmung beider eintritt: die neu gespeicherte Mappe ist die Mappe mit dem Makro (und die aktive).

 

TEkeFocusonclick is auf true.

Hab thisworkbook auch mal durch ActiveWorkbook ersetzt.
Aber die Fehlermeldung kommt immer noch.*frown.gif*

 

Moin, phobos,

ich hatte unter Excel2000 SP 3 getestet (keine Probleme) - setzt Du wie im Profil angegeben XP/2002 ein? Dann werde ich mal dort einen Testballon starten...

 

Hi Jinx!

hab erst jetzt wieder mit der Datei gearbeitet. Deswegen etwas verspätet. Sorry dafür.
Ja, hab xp/2002 SP3.

Was ist denn ein Testballon?*entsetzt

 

Hallo phobos,

ich kann den Fehler unter ExcelXP auch nicht nachvollziehen - mit der TakeFocusOnClick-Eigenschaft auf True oder False. In welcher Codezeile tritt der Fehler denn auf? Läuft da vielleicht noch eine BeforeSave-Makro, das den Fehler verursacht?

Gruß Ingolf

 

Hi Ingolf!

der Code steht wie gesagt in einem Tabellenblatt auf dem sich der Button befindet.

Der Debugger bleibt in dieser Zeile stehen.
Code:

 

Hallo phobos,

dann hat der Fehler wohl etwas mit dem verwendeten Dateinamen zu tun. Ich tippe auf Sonderzeichen, die in Dateinamen nicht verwendet werden dürfen, als da wären:

< > ? " : | \ / *

Gruß Ingolf

 

Sonderzeichen kommen nicht vor.

kann man ein aktives Excelsheet per button vlt mit einem anderen Code speichern und schließen?

 

Hallo phobos,

gib mal zu dem Dateinamen den gesamten Pfad mit an. Ohne Pfadangabe wird die Datei im gerade aktiven Verzeichnis gespeichert. Möglicherweise ist dieses Verzeichnis gar nicht das, in dem du die Datei speichern willst.

Der Fehler würde auch auftreten, wenn du in diesem Verzeichnis keine Schreibrechte hast.

Gruß Ingolf

 

Habs jetzt anders gelöst.
Hab den Zusatz as "blablabla" weggelassen.

mit
Code:

funktionierts genauso. mercí.

 

hi

versuche es mal so *Smilie

Private Sub CommandButton1_Click()
ActiveWorkbook.Close true
End Sub