|
Guten Abend alle zusammen,
ich habe einen Macro aufgezeichnet welches dank volti`s mithilfe jetzt sehr gut funktioniert. Nur wenn die Excel Tabelle von jemand anders benutzt wird, wird dieser PDF Speicher nicht in den richtigen Ordner abgelegt. In die Tabelle wo dieser Macro ausgeführt wird steht in der Zelle B11 der Name Brandes. Also dort wo überall Masemann (fett hinterlegt) steht muß Brandes drin stehen. Was muß ich da machen das dort immer der richtige Name drin steht? Es kann ja auch noch andere diese Excel Tabelle benutzen.
Vielen Dank im voraus
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 Masemann WorkingHours/"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _
"/Users/onhhollander/Desktop/Abrechnung Masemann 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
|