Sub Makro1()
ActiveWorkbook.Unprotect
Sheets("Deckblatt").Visible = True
Sheets("Deckblatt").Select
Sheets("SDM Update").Select
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=ActiveWorkbook.Path & Application.PathSeparator & _
Range("A1") & " - " & Format(Date, "dd.mm.yy") & ".pdf", Quality:=xlQualityStandard, OpenAfterPublish:=True, IncludeDocProperties:=True
Sheets("Deckblatt").Select
Sheets("Deckblatt").Visible = False
MsgBox "Eine PDF Kopie wurde im Ordner der Quelldatei abgelegt."
End Sub
Hallo,
ich habe folgendes Marko programmiert, welches zwei excel sheets als pdf exportieren soll.
Es funktioniert auch wunderbar, nur wird zwischen dem Sheet Deckblatt und SDM Update eine leere Seite hinzugefügt. Die Daten liegen lediglich im Bereich, dass pro Sheet nur eine Seite benutzt wird. Außerhalb dieses Bereichs habe ich schon mehr fach Zelle/Zeile löschen probiert, leider ohne Erfolg. Gibt es die Möglichkeit nur einen bestimmten Bereich zu makieren der exportiert warden soll, sodas es gar nicht möglich ist wenn irgendetwas außerhalb des Bereichs liegt, dass diese Daten mitexportiert warden.
Vielen Dank für eure Hilfe
|