Sub pdfErstellen()
Dim DieDatei As Boolean, Pfad$
If MsgBox("ACHTUNG: Vorhandende Datei kann überschrieben werden!!!" & vbNewLine & "Weiter ?", vbYesNo) = vbYes Then
DieDatei = IstDateiOffen(Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & ".pdf")
If DieDatei = True Then
MsgBox "Datei ist bereits geöffnet, Bitte vorher schließen!"
Else
Pfad = "N:\" & Left(ActiveWorkbook.Name, Len(ActiveWorkbook.Name) - 5) & ".pdf"
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Pfad, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End If
Else
MsgBox "Vorgang abgebrochen"
End If
End Sub