"SaveAs" speichert nicht
14.04.2007 09:27:00
Franz
ich steht vor einem Rätsel und bitte um Eure Hilfe: Ich habe in einer Workbook_BeforePrint-Anweisung "SaveAs" - es wird aber nicht gespeichert:
Private Sub Workbook_BeforePrint(Cancel As Boolean)
Set wks = Worksheets("Eintragungen")
If Druck = False Then
Cancel = True
MsgBox "Drucken ist nur über den vorgesehenen Button möglich!!! ", vbCritical
Else
Druck = False
End If
If wks.Range("E2") 0 And wks.Range("I2") 0 Then
If MsgBox("Vor dem Ausdruck unter neuem Namen speichern? ", 20) = vbYes Then
SpeicherName = SpeichPfad & NamensTeil & Format(wks.Range("E2"), "yyyy-mm-dd") & " - " & _
Format(wks.Range("I2"), "yyyy-mm-dd") & ".xls"
'MsgBox SpeicherName
ThisWorkbook.SaveAs SpeicherName
End If
End If
Set wks = Nothing
End Sub
Bei Einzelschritt mit F8 wird die Zeile zwar markiert, aber beim Weitergehen passiert ohne jegliche Fehlermeldung nichts! Die verwendeten Variablen stimmen alle, wie die auskommentierte MsgBox zeigt.
Außerdem steht genau dasselbe auch in einer Workbook_BeforeClose-Anweisung, und da klappt es so, wie es soll:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Set wks = Worksheets("Eintragungen")
If ThisWorkbook.Name = DatNam And wks.Range("E2") 0 Then
If MsgBox("Datei unter neuem Namen speichern? ", 20) = vbYes Then
If wks.Range("E2") 0 And wks.Range("I2") 0 Then
SpeicherName = SpeichPfad & NamensTeil & Format(wks.Range("E2"), "yyyy-mm-dd") & " - " & _
Format(wks.Range("I2"), "yyyy-mm-dd") & ".xls"
Frage = "Speichern unter " & SpeicherName
If MsgBox(Frage, vbYesNo) = vbYes Then
ThisWorkbook.SaveAs SpeicherName
End If
Else
Application.Dialogs(xlDialogSaveAs).Show
End If
End If
End If
Set wks = Nothing
End Sub
Warum wird hier gespeichert und bei Workbook_BeforePrint nicht? Woran kann das liegen?
Für Eure Hilfe schon mal dankeschön im Voraus.
Grüße
Franz