Speicherpfad
Jens
hab mal wieder ein problem.
ich möchte eine pdf aus einer tabelle erstellen was auch klappt, nur der speicherpfad soll dort sein wo die datei her ist. da die datei meistens vom stick gestartet wird variiert der pfad.
bis jetzt hab ich das:
Sub pdf ()
Dim oChart As Chart, rngChart As Range, wks As Worksheet
Dim oShape As Shape, oSerie As Series
Application.DisplayAlerts = False
Sheets("Plandruck").Select
Range("A2:J15").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Jens\Desktop\Plan.pdf", Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
False
End Sub
ich hab schon mit thisworkbook.patch probiert aber sie landet immer auf dem desktop.
was und wie muß ich denn die zeile "C:\Users\Jens\Desktop\Plan.pdf" ändern.
vielen dank im voraus
Anzeige