Office: Doppelte Ausführung verhindern

urskau · 8. Juni 2010

Hallo, habe folgendes Problem :
Ich habe einen Code erstellt, dass die Excel-Date unter eine generierten Dateinamen (Bezug aus verschiedenen Zellen) abspeichert.
Das funktioniert auch alles soweit gut.
Nur durchläuft er die SpeicherUnter-Prozedur immer 2x.
Das heisst, nach dem eigentlichen Speicherdurchgang öffnet sich noch das
Standard "Speichern Unter" Fenster, und dort ist dann die Datei schon vorhanden.

Folgender Code ist in "Diese Arbeitsmappe" :

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Application.EnableEvents = False
MsgBox ("Vor CALL") ' zur Ablaufkontrolle
Call SpeichernUnter
MsgBox ("Nach CALL") ' zur Ablaufkontrolle
Application.EnableEvents = True
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Gleich darauf folgt :
Code:

Public Sub SpeichernUnter()

Dim strSubPath1 As String
Dim strSubPath2 As String
Dim strSubPath3 As String
Dim strPath As String
Dim strProgNrA As String
Dim strProgNr As String
Dim strProgIndA As String
Dim strProgInd As String
Dim strPathDel As String
Dim strFileDel As String

strSubPath1 = ActiveSheet.Range("D9").Value
strSubPath2 = ActiveSheet.Range("D8").Value
strSubPath3 = ActiveSheet.Range("G8").Value
strProgNrA = ActiveSheet.Range("G1").Value
strProgIndA = ActiveSheet.Range("L1").Value
If Len(strProgIndA) = 1 Then
strProgInd = "0" & strProgIndA
End If
If Len(strProgNrA) = 4 Then
strProgNr = strProgNrA
End If
If Len(strProgNrA) = 3 Then
strProgNr = "0" & strProgNrA
End If
If Len(strProgNrA) = 2 Then
strProgNr = "00" & strProgNrA
End If
If Len(strProgNrA) = 1 Then
strProgNr = "000" & strProgNrA
End If

Application.DisplayAlerts = False
strSubPath = ActiveSheet.Range("G8").Value
strPath = "O:\OHQ\Data\NC-Progr\IM_HUEFTE\EINRICHTBLAETTER\DREHEN\" & strSubPath1 & "\" & strSubPath2 & "\" & strSubPath3 & "\"
Dim strFile As String

strFile = "77-" & ActiveSheet.Range("F9").Value & "-" & strProgNr & "-" & strProgInd

ActiveWorkbook.SaveAs strPath & strFile
MsgBox ("Nach Routine") ' zur Ablaufkontrolle
Application.DisplayAlerts = True

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Unter Tabelle1 ist noch folgender Code (zum generieren einer zusammegesetzten Formular-Nummer) :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [G1, F9]) Is Nothing Then
[G1].NumberFormat = """" & "77" & "-" & [f9] & "-""0000"
End If
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dies funktioniert auch bestens.

Die ganze Pfad- und Dateinamen-Erzeugung muss nicht interessierten, ist etwas kopliziert zu erklären und funktioniert eigentich auch wie gewünscht.

Es geht einzig nur um das Doppelte speichern. Hat da jemand einen Tipp?

Danke schon mal.

:)

EarlFred · 10. Juni 2010

Hallo urskau,

Code:

Cancel = True
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

innerhalb der If-Bedingung der Ereignisprozedur sollte den doppelten Aufruf unterbinden.

Grüße
EarlFred

chris-kaiser · 10. Juni 2010

hiho

Code:

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI Then
Application.EnableEvents = False
MsgBox ("Vor CALL") ' zur Ablaufkontrolle
Call SpeichernUnter
MsgBox ("Nach CALL") ' zur Ablaufkontrolle
Application.EnableEvents = True
cancel=true
End If

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

[edit]
da wahr ich wohl wieder zu langsam ^^

M Merlin · 10. Juni 2010

Ich denke das liegt einfach an deinem Aufruf...
...du generierst das im BeforeClose...

Wenn du die Datei z.B. schließen möchtest und davor Speichern würde ich den Code in BeforeClose seitzen un das zu abschluss folgendes...

Code:

Workbooks("WorkbookName").Close SaveChanges:=False
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Die Datei muss aber schon gespeichert sein, sonst werden alle Änderungen verworfen...

urskau · 10. Juni 2010

Es funktioniert. Super

DANKE

Office: Doppelte Ausführung verhindern

Doppelte Ausführung verhindern

Doppelte Ausführung verhindern

Doppelte Ausführung verhindern

Doppelte Ausführung verhindern - Similar Threads - Doppelte Ausführung verhindern

Abfrageergebnis soll keine doppelten Werte enthalten

doppelte

Doppelte finden und Zellen addieren

Doppelte Werte pro Tag, an anderen nicht

Doppelte Werte mit 2 Bedingungen finden

Dateneingabe via Formular: Duplikate auf die gleiche ID schreiben

Textverketten bei doppelten einträgen