|
Ich habe hier mal was kleines, was mich aber gerade verzweifeln lässt.
ich will follgenden Code nutzen um eine Range in eine PDF zu drucken.
Dim Pfad As String
Dim DateiName As String
sPfad = ThisWorkbook.Path & "\Rechnungen\"
DateiName = Pfad & Range("F2") & ".pdf"
If Dir$(Pfad, vbDirectory) = "" Then
MsgBox """Rechnungsordner"" fehlt und wurde angelegt!"
MkDir Pfad
End If
If Dir(Pfad & Range("F2") & ".pdf") = "" Then
MsgBox "Datei bereits vorhanden!"
Exit Sub
End If
Sheets("Rechnung").Range("A2:C15").ExportAsFixedFormat xlTypePDF, _
Filename:=DateiName, _
OpenAfterPublish:=True
um den Fehler zu vermeiden, dass jemand eventuell eine Rechnung überschreibt, möchte ich mit follgender IF Schleife prüfen, ob die Datei schon vorhanden ist.
If Dir(Pfad & Range("F2") & ".pdf") = "" Then
MsgBox "Datei bereits vorhanden!"
Exit Sub
End If
Nun bekomme ich die ganze Zeit die Meldung, dass die Detei bereits vorhanden ist, obwohl es nicht so ist.
Irgend wie sehe ich aber den Wald vor lauter Bäume nicht.
Eventuell sieht jemand anderes mehr und kann mir meinen Denkfehler auch erklären.
mfg Hofe
|