|
Hallo Sabi,
um Fehlern auf die Spur zu kommen ist es manchmal besser eine Variable dafür anzulegen. Da kann man im Direktfenster sich den Inhalt der Variable anschauen.
Schau mal so:
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
Wenn man dann noch Option Explicit in die 1. Zeile des Moduls schreibt, werden dann auch kleine Fehler angezeigt. Das zwingt zum sauberen Deklarieren der Variablen.
Gruß Uwe
|