Ich bin auf folgendes Problem gestoßen:
Beim Erzeugen der Datei als PDF wird beim Schließen der Workbook_Beforeclose Code (s.u.)abgefragt, also die Messagebox aufgerufen. Diese soll aber nur angezeigt werden, wenn die Datei vor dem PDF-Erzeugen geschlossen wird.
Button zum Erzeugen der PDF:
Private Sub CommandButton8_Click()
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "UW-Tool.pdf", Quality:=xlQualityStandard _
, IncludeDocProperties:=False, IgnorePrintAreas:=False, From:=1, To:=4, OpenAfterPublish:= _
True
Application.DisplayAlerts = False
Application.Quit
End Sub
Folgender Code soll beim Erzeugen der PDF ignoriert werden:
Private Sub Workbook_BeforeClose(Cancel As Boolean)
If (MsgBox("Es wurde noch keine Exportierung durchgeführt. Alle eingegebenen Daten
gehen" & vbCr & "verloren!" & vbCr & vbCr & _
"Wollen Sie trotzdem fortfahren?", vbYesNo) = vbNo) Then
Cancel = True
End If
End Sub
Vielen Dank schonmal im Voraus.