Hallo,
ich verwende den unten stehenden Code und möchte, dass die Datei unter folgendem Namen abgespeichert wird:
Aktionsplanung_Datum_Zelle W3
Wenn ich das Makro ausführe, kommt aber nur:
Aktionsplanung_Datum_ (es fehlt der Zellinhalt W3).
Das Makro wurde zuvor für 3 Tabellenblätter verwendet und muß nun nur noch für 1 Tabellenblatt gelten.
Hat jemand eine Lösung?
Sub PDF_drucken()
'
' PDF_drucken Makro
Dim strPfad As String
Dim lngLetzte As Long
'Pfad und Dateiname für das Blatt Aktionsplanung wurde festgelegt
strPfad = "G:\Einkauf\Werbung\Aktionsplanungen PDF\Aktionsplanung" & Date & "_" & Worksheets("Aktionsplanung").Range("W3").Value
'letzte beschriebene Zeile im Tabellenblatt in Spalte A ermitteln
lngLetzte = Worksheets("Aktionsplanung").Cells(Rows.Count, 1).End(xlUp).Row
'ausgefüllter Bereich aus Tabellenblatt wird gedruckt
With Worksheet("Aktionsplanung").Range("A1:W" & lngLetzte)
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Range("W3")
strPfad , Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
End Sub