Codeerweiterung
11.01.2017 18:58:42
Guesa
Frohes Neues und gleich mal wieder Probleme. Habe diesen Code in der Recherche gefunden. Läuft auch. Könnte man diesen Code so ändern das nur die Seite1 gespeichert wird da ich auf den anderen Grafik eingebunden habe und diese sollten in der PDF nicht zu sehen sein. Könnte mir da jemand helfen?
Vorab schon mal ein Danke schön
Sub Main()
Dim strTMP As String
strTMP = ThisWorkbook.Worksheets("Tabelle2").Range("B2").Text
With ThisWorkbook.Worksheets("Tabelle1")
strTMP = strTMP & .Range("A2").Value & "_" & .Range("B2") & "_" & .Range("C2").Value
.ExportAsFixedFormat 0, strTMP ', OpenAfterPublish:=True
End With
End Sub