Editing ray

Title / Description

Code
Sheets("Wochenplan").Select Dim Datum1 As String Datum1 = Range("B1").Value Dim Datum2 As Date Datum2 = DateValue(Datum1) Dim Dateiname As String Dateiname = "woche-" + Format(Datum2, "yyyy-mm-dd") + ".pdf" MsgBox "Dateiname: " + Dateiname Sheets("Wochenplan").Select ChDir "\\ugisr0672\dienstplan$" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "\\ugisr0672\dienstplan$\" + Dateiname, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _ True

Author

Highlight as C C++ CSS Clojure Delphi ERb Groovy (beta) HAML HTML JSON Java JavaScript PHP Plain text Python Ruby SQL XML YAML diff code