Bräuchte mal eure Hilfe. Und zwar habe ich ein Makro gefunden das mir den Druckbereich als PDF auf den Desktop speichert. Er speichert es mir ab als Lackierbericht mit Datum das in Zeile "C58" steht.
Ich möchte aber das er mir die Nummer aus Zeile " D5" mit übernimmt anstatt das Datum.
Vielleicht kann mir ja jemand helfen.
Hier der Code
Sub speichern()
ActiveSheet.ExportASFixedFormat Type:=x1TypePDF, Filname:=
CreateObject("WScript.Shell") .SpezialFolders("Desktop") & "\Lackierprotokoll " & Format(Range(" _
_
C58"), " du mm ja") & ".pdf",_
IncludeDocProerties:=True,_
IngnorePrintAreas:=False,_
OpenAfterPuplish:=True
End
Sub
Gruß Michael