Programmfehler durch VBA ?

Bild

Betrifft: Programmfehler durch VBA ? von: Modolo
Geschrieben am: 16.02.2005 11:39:01

Hallo,
ich habe in einer Mappe folgendes drin

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:="y:\Versand\Versand 05\" & Range("D18") &_ ("  ") & Range("A24") & ".xls"
End Sub


nach dem Speichen stürzt Excel dann immer ab, warum, wieso, weshalb ?

Danke für eure Hilfe

Bild


Betrifft: AW: Programmfehler durch VBA ? von: Matthias G
Geschrieben am: 16.02.2005 11:42:39

Hallo Modolo,

im Ereignis musst du die Ereignisse abstellen, sonst kommt es zu einer Endlosschleife:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Application.EnableEvents = False
ActiveWorkbook.SaveAs Filename:="y:\Versand\Versand 05\" & Range("D18") &_ ("  ") & Range("A24") & ".xls"
Cancel = True
Application.EnableEvents = True
End Sub
Und Cancel auf True, damit er nicht nochmal speichert ;-)

Gruß Matthias


Bild


Betrifft: @Matthias von: Modolo
Geschrieben am: 16.02.2005 12:10:13

Erst mal schönen Dank für deine mühe!!
jetzt bleibt der Programmfehler aus, leider aber die Speicherung unter vorgegebnen Pfad.
Mein Ziel ist es aus einer Vorlage nach dem ausfüllen als eine andere Datei zu Speichern.


Bild


Betrifft: AW: @Matthias von: Matthias G
Geschrieben am: 16.02.2005 12:47:32

Hallo Modolo,

jetzt bleibt der Programmfehler aus, leider aber die Speicherung unter vorgegebnen Pfad.

Was meinst du, speichert er gar nicht mehr?

Matthias


Bild


Betrifft: AW: @Matthias von: Modolo
Geschrieben am: 16.02.2005 13:06:04

doch aber in der Originaldatei die ich immer unverändert lassen möchte


Bild


Betrifft: AW: @Matthias von: Matthias G
Geschrieben am: 16.02.2005 13:09:47

Hallo Modolo,

kann eigentlich nicht sein...

poste doch nochmal den kompletten Code deiner Before_Save-Prozedur!

Gruß Matthias


Bild


Betrifft: AW: @Matthias Sorry von: modolo
Geschrieben am: 16.02.2005 13:54:20

Sorry Matthias,
?? ich versteh das jetzt nicht wirklich, ich hatte es einige male versucht und es wurde keine neue Datei erzeugt, jetzt nach Pause erneut eingegeben = EINWANDFREI.
I C H D A N K E D I R !!!!!


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Schreibschutz beim Öffnen von Excel erzwingen"