Office: Pdf Export von mehreren Tabellen

Habe Office 2010 im Einsatz und möchten nun von einem File mehrere Tabellen Blätter exportieren.

PHP:

         Private Sub CommandButton1_Click()

Sheets(Array("Tabelle1", "Tabelle2", "Tabelle3")).Select
Dim neuerDateiname As String
neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "Export vom " & Format(Date, "dd.mm.yyyy") & ".pdf", "Adobe PDF-Dateien (*.pdf),*.pdf")
If Not neuerDateiname = "Falsch" Then
Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=neuerDateiname, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, From:=1, To:=1, OpenAfterPublish:=True
End If

End Sub


:)

 

Hi,

versuche es so:

Code:

 

Danke Beverly,

habe den Code so eingetragen:

PHP:

         Private Sub CommandButton1_Click()

Dim neuerDateiname As String
neuerDateiname = Application.GetSaveAsFilename("C:\Temp\" & "Export vom " & _
Format(Date, "dd.mm.yyyy") & ".pdf", "Adobe PDF-Dateien (*.pdf),*.pdf")
Sheets(Array("Tabelle2", "Tabelle1", "Tabelle4")).Copy
With ActiveWorkbook
.ExportAsFixedFormat _
Type:=xlTypePDF, Filename:=neuerDateiname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
.Close False
End With

End Sub


 

Hi,

dann gibt es (mindestens) eins der Tabellenblätter nicht, die du im Array ansprichst.

 

Habe den falschen Namen verwendet, damn.
Es exportiert mir aber nur leere Blätter.

 

Kann ich nicht nachvollziehen - bei mir hat die PDF-Datei 3 Seiten mit dem entsprechendem Inhalt.

 

Also die erste Seite ist befüllt mit Daten die anderen sind nur Diagramme welche auf die erste beziehungsweise zweite zugreifen.
Es sind aber alle blank.
Hab mal die Datei angehängt bei der es mir blank rauskommt.

cu

 

In deiner Mappe gibt es keine Diagramme - folglich sind Tabelle2 und Tabelle3 logisscherweise leer.

Übrigens gibt es in deiner Mappe auch keinen Code...

 

Also weiß nicht was gestern los, jetzt geht es einwandfrei.
Mille Grazie !