ich bin der Jens und versuche mich ein wenig in Excel VBA. Leider habe ich ein kleines Problem, mit dem ich nicht recht weiter komme.
Ich möchte eine Datei auf Knopfdruck über den Butto "Speichern" in einem bestimmten Ordner als PDF ablegen. Der Dateiname wird aus der Zelle "C3" genommen.
Wenn ich jetzt auf "Speichern" klicke möchte ich, dass Excel vorher Prüft, ob die Datei schon vorhanden ist. Ist das der fall soll ein Fenster mit einem Warnhinwei geöffnet werden.
So sieht es bissher bei mir aus:
Sub PDFAblegen()
' PDFAbfrage Makro
If Dir("C:\Users\DFPJLU\Desktop\Range("C3").pdf") Then
MsgBox "Datei bereits vorhanden"
Else
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\DFPJLU\Desktop\" & Range("C3"), Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End If
End Sub
Speichern als PDF ist kein Problem. Das Problem ist die Abfrage vorher. Leider komme ich hier nicht weiter.Es gibt immer die Fehlermeldung "Listentrennzeichen"
Hoffe auf Hilfe ;-)
Grüße
Jens