|
Hallo Karl-Heinz,
ich war zu vorschnell. Wenn ich den Macro so ändere wie du vorgeschlagen hast, kommt die Meldung Pfad nicht gefunden.
Hier nochmal den Code wie du vorgeschlagen hast also dort wo Masemann stand steht jetzt " & Range("B11").value & "
Sub PDF()
'
' PDF Makro
'
'
Sheets("Abrechnung ").Select
ActiveSheet.Unprotect
Sheets("Arbeitszeit Dokumentation ").Select
ActiveSheet.Unprotect
Sheets(Array("Abrechnung ", "Arbeitszeit Dokumentation ")).Select
Sheets("Abrechnung ").Activate
Range("M3:O3").Select
Selection.Copy
Range("M4:O4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Selection.Copy
Application.CutCopyMode = False
ChDir "/Users/onhhollander/Desktop/Abrechnung " & Range("B11").Value & " WorkingHours / "
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/onhhollander/Desktop/Abrechnung " & Range("B11").Value & "WorkingHours/" & Range("M3").Value & " .pdf" _
, Quality:=xlQualityMinimum, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("Abrechnung ").Select
ActiveSheet.Shapes.Range(Array("Pentagon 1")).Select
With Selection.ShapeRange.Fill
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent3
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
.Solid
End With
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Sheets("Arbeitszeit Dokumentation ").Select
ActiveSheet.Protect DrawingObjects:=False, Contents:=True, Scenarios:= _
False
Sheets("Abrechnung ").Select
End Sub
|