Blätter exportieren als PDF
17.10.2007 15:40:00
Marko
habe folgendes Problem.
Ich habe eine Excel-Datei mit sagen wir 11 Tabellenblättern.
Der Inhalt der Tabellenblätter generiert sich über die Eingabe von gewissen daten auf Tabellenblatt 1 über Hyperlinks.
Ich möchte nun ein Makro einbauen, dass es mir ermöglich, z.B. Tabellenblatt 2&3 in eine eigene Datei und mit den Werten (nicht den Verknüpfungen zu Blatt 1) zu exportieren.
Habe bereits erste Hilfe bekommen:
Sub KopierenOhneVerknuepfungen()
Dim wbAlt As Workbook, wbneu As Workbook
Dim shArr, sh
shArr = Array("Tabelle3", "Tabelle4") 'Diese Blätter werden kopiert
Set wbAlt = ActiveWorkbook
Sheets(shArr).Copy
Set wbneu = ActiveWorkbook
For Each sh In wbneu.Sheets(shArr)
wbAlt.Sheets(sh.Name).Cells.Copy
wbneu.Sheets(sh.Name).[A1].PasteSpecial Paste:=xlValues
Next
Application.CutCopyMode = False
wbneu.SaveAs "C:\Temp\Kopie neu.xls"
Set wbAlt = Nothing
Set wbneu = Nothing
End Sub
Ist schon recht gut für den Anfang. Aber gibt es anstatt der oben erwähnten Lösung auch gleich die Möglichkeit, die gewünschten Tabellenblätter als PDF zu exportieren?
Anzeige