Makro-Code

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Makro-Code

24.10.2015 13:20:38

Daniel

AW: Makro-Code

24.10.2015 13:51:25

Chris

AW: Makro-Code

24.10.2015 14:17:29

Daniel

AW: Makro-Code

24.10.2015 13:22:23

ransi

AW: Makro-Code

26.10.2015 09:12:42

Chris

AW: Makro-Code

26.10.2015 10:40:11

Chris

AW: Makro-Code

30.10.2015 19:45:17

Esmo

Sub Makro1() Dim ws As Worksheet For Each ws In ThisWorkbook.Worksheets ws.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:= ThisWorkbook.Path & "\" & ws.Name, _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False Next End Sub

Vielen Dank für eure schnelle Antwort und für eure Mühe. Leider führt es nicht zu dem gewünschten Ergebnis bei meiner Testdatei. Ich verwende Excel für Mac - in der Arbeit arbeiten wir mit Windowsrechner. Das macht aber denke ich mal keinen Unterschied.
Meine Testdatei hat 4 Tabellenblätter mit den Namen: 11 , 22 , 33 , 44 !
Und jetzt will ich z.B. dass der Makro das Tabellenblatt 11, 22 und 44 auswählt und als PDF im Speicherpfad der Excelmappe unter dem Namen Test1 abspeichert. Anschließend soll er z.B. Tabellenblatt 22 und 33 auswählen und als PDF unter dem Speicherpfad der Excelmappe unter dem Namen Test2 abspeichern. Versteht ihr was ich meine?
Wenn es euch keine Umstände bereitet, könnt ihr ja mal ein Code für das Beispiel schreiben, dann finde ich mich bestimmt zurecht. Ich habe es auch über den Recorder versucht, aber es kommt nicht wirklich was verwertbares raus.
Viele Grüße
Chris

Sub PDF() Sheets(Array("Deckblatt", "K_700100", "K_700105")).Select Selection.ExportAsFixedFormat _ Type:=xlTypePDF, _ Filename:=ThisWorkbook.Path & "\Test.pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, _ IgnorePrintAreas:=False, _ OpenAfterPublish:=False End Sub

Moin!
Der Code funktioniert, obwohl er nicht das tut, was er soll?
In der Excel-Hilfe für ".ExportAsFixedFormat" steht, daß das Objekt, auf das es sich bezieht, ein Zellbereich sein soll. Stimmt nicht ganz, ein Arbeitsblatt oder Arbeitsmappe gehen auch. Du selektierst aber 3 Arbeitsblätter.
Abhilfe: Die 3 Arbeitsblätter kopieren (in eine temporäre Mappe), abspeichern und die temporäre Mappe löschen. Dabei müssen wir den Namen vorher definieren, weil bei einer neuen, noch nicht gespeicherten Mappe der Pfad leer ist.

Sub PDF()
Dim PDFname As String
PDFname = ThisWorkbook.Path & "\test.pdf"
' jetzt die 3 Blätter in eine neue Arbeitsmappe kopieren
Sheets(Array("Sheet1", "Sheet2", "Sheet3")).Copy
' Diese exportieren
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=PDFname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, openAfterPublish:=True
'Erzeugte Datei schließen
ActiveWorkbook.Close savechanges:=False
' Nächste Datei erzeugen
PDFname = ThisWorkbook.Path & "\test2.pdf"
Sheets(Array("Sheet4", "Sheet5")).Copy
ActiveWorkbook.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=PDFname, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
openAfterPublish:=True
'Erzeugte Datei schließen
ActiveWorkbook.Close savechanges:=False
End Sub

Schönes WE

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread