22.12.2015, 18:07
Hallo zusammen,
ich beschäftige mich erst seit kurzem mit VBA und möchte gerne über ein Makro einen markierten Zellbereich
als PDF-Datei abspeichern. Der Dateiname sollte sich aus zwei Zellinhalten (Bezeichn und Ort) (.pdf) zusammensetzen.
Habe mir ein Makro aus verschiedenen Vorlagen zusammengebastelt, jedoch hapert es am Dateiname. Die drei ???
habe ich jetzt absichtlich reingeschrieben.
Vielen Dank, Grüße Thomas
ich beschäftige mich erst seit kurzem mit VBA und möchte gerne über ein Makro einen markierten Zellbereich
als PDF-Datei abspeichern. Der Dateiname sollte sich aus zwei Zellinhalten (Bezeichn und Ort) (.pdf) zusammensetzen.
Habe mir ein Makro aus verschiedenen Vorlagen zusammengebastelt, jedoch hapert es am Dateiname. Die drei ???
habe ich jetzt absichtlich reingeschrieben.
Code:
Sub EG_als_PDF_speichern()
Dim myPath, myFileName As String
Bezeichn = Sheets("Tabelle1").Range("A1").Text
Ort = Sheets("Tabelle1").Range("A5").Text
myPath = "C:\Users\Thomas\Haus\NK-Abr.(PDF)"
myFile = ???
ThisWorkbook.Sheets("NK-Abr. EG").Range("A1:H105").ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
myPath & "\" & myFile, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
MsgBox "Die Datei wurde unter folgenden Pfad abgelegt " & myPath
End Sub