ich hätte da eine, glaube relativ einfache Aufgabe für euch. Ich möchte per Mausklick auf einem Button klicken das anschließend nur bestimmte Arbeitsblätter in PDF umgewandelt und abgespeichert werden können.
Ist dies via VBA möglich?
Bspw. habe ich Tab1 Tab2 Tab3…usw Tab(n)
Durch ein Mausklick sollen feste Tabellen wie z.B.: Tab1 Tab4 und Tab8 in PDF abgespeichert werden. Ich weiß das es die Funktion bei Excel schon das man bestimmte Seiten auswählen kann und die dann als PDF abspeichern.
Ich möchte aber diesen Weg umgehen und nur durch ein Klick zum Ziel kommen.
ich hätte da eine, glaube relativ einfache Aufgabe für euch.
Ich möchte per Mausklick auf einem Button klicken das
anschließend nur bestimmte Arbeitsblätter in PDF umgewandelt
und abgespeichert werden können.
Ist dies via VBA möglich?
Bspw. habe ich Tab1 Tab2 Tab3…usw Tab(n)
Durch ein Mausklick sollen feste Tabellen wie z.B.: Tab1 Tab4
und Tab8 in PDF abgespeichert werden. Ich weiß das es die
Funktion bei Excel schon das man bestimmte Seiten auswählen
kann und die dann als PDF abspeichern.
Ich möchte aber diesen Weg umgehen und nur durch ein Klick zum
Ziel kommen.
dann zeichne das Abspeichern in ein Makro auf. Anschließend das Makro einen Button zuordnen!
Gruß - Wolfgang
was Skater geraten hat wäre auch meine Antwort gewesen und bei mir kommt folgendes
Roh-Makro dabei zustande:
Sub Makro1()
’
’ Makro1 Makro
ChDir „C:\Users\thomas\Desktop“
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
„C:\Users\thomas\Desktop\TS_Menu_3D_Fokus.pdf“, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
End Sub
Im Grunde muss man dann den Ausdruck „ActiveSheet“ variieren. Notfalls noch mit den Parametern experimentieren. Dabei können wir helfen. Zuerst müssen wir aber wissen, was da nicht klappt. Da wäre es an Dir, mehr Informationen zu geben.
Ich verwende übrigens Excel 2010.
Hm hab das genau so gemacht wie du es gesagt hast,
funktioniert leider nicht. Außer einem Kommentar steht weiter
nichts in dem Makro.
Muss dazu sagen dass ich was VBA angeht nicht so fit bin…
Bei mir funktioniert es mit diesem Makro schon!
Sub Mehrere_pdf()
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
„C:\Users\Wolfgang\Dropbox\Statistik\statistik.pdf“, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets(„Pivot 2“).Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
„C:\Users\Wolfgang\Dropbox\Statistik\statistik2.pdf“ _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Sheets("WEB-Seite ").Select
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
„C:\Users\Wolfgang\Dropbox\Statistik\statistik3.pdf“ _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
alle in eine pdf?
Hallo,
sollen nun doch mehrere Blätter in eine pdf geschrieben werden? - Da kann ich nix zu sagen, musst Du selber experimentieren, googeln oder auf Antworten warten.
Wenn einzelne pdf´s reichen und die Blätter immer dieselben sind: Lass´doch die entsprechenden ( 2 ) Makrozeilen mit unterschiedlichen Quellangaben mehrmals durchlaufen.
Bei vielen Blättern lohnt sich evtl. der Einsatz einer Schleife. Aber schreibe doch ´mal genau, was Du willst!
Es wäre auch schön, wenn Du direkt unter dem bezogenen Post antworten würdest. So verlieren wir sehr schnell die Übersicht.
Freundliche Grüße
Thomas
Hallo,
also ich versuche es nochmal genauer zu erklären. Ich habe eine Excel Datei mit mehreren Tabellenblätter und aus einigen dieser Tabellenblätter möchte ich eine Umwandlung in nur EINE Pdf Datei schreiben.
Hallo,
also ich versuche es nochmal genauer zu erklären. Ich habe
eine Excel Datei mit mehreren Tabellenblätter und aus einigen
dieser Tabellenblätter möchte ich eine Umwandlung in nur EINE
Pdf Datei schreiben.
so funktioniet es, dass nur eine Pdf erstellt wird. Dazu musst Du die einzelnen Arbeitsblätter markieren (hier Grafik, Erhebung, WEB-Seite). Also in der Aufzeichnung des Makro enthalten sein!
Sub Mehrere_Pdf()
Sheets(Array(„Grafik“, „Erhebung“, "WEB-Seite ")).Select
Sheets(„Grafik“).Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
„C:\Users\Wolfgang\Dropbox\Statistik\statistik2.pdf“ _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
End Sub
so funktioniet es, dass nur eine Pdf erstellt wird. Dazu musst
Du die einzelnen Arbeitsblätter markieren (hier Grafik,
Erhebung, WEB-Seite). Also in der Aufzeichnung des Makro
enthalten sein!
Sheets(Array(„Grafik“, „Erhebung“, "WEB-Seite ")).Select
Hallo Wolfgang
Ich habe ein ähnliches „Problem“ wie Khai. Ich möchte aus einer Excel-Datei mehrere Tabellenblätter in einem PDF ausgeben.
Aber: Ich müsste einen „dynamischen“ Array haben, denn ich möchte die Tabellen ganz variabel auswählen können. Es heisst dann einmal:
Sheets(Array(„Grafik“, „Erhebung“, "WEB-Seite ")).Select
Ein anderes Mal
Sheets(Array(„Erhebung“, „Beteiligte“, „Uebersicht“)).Select usw.
Ich möchte die Tabellen, die in einem PDF ausgegeben werden sollen, mit CTRL-Mausklick von Mal zu Mal neu auswählen können.
Mit folgendem Makro kann ich schon mal festhalten, welche Tabellenblätter mit CTRL-Mausklick ausgewählt sind.
Sub GroupSheets()
Dim i As Integer
With ActiveWindow.SelectedSheets
For i = 1 To .Count
MsgBox .Item(i).Name
Next i
End With
End Sub
Mein Problem aber ist, wie kriege ich die Ergebnisse dieses Makros in den Array hinein? Also ganz trivial gesagt, wie kriege ich folgenden Array:
@Wolfgang
Danke dir schonmal für die Hilfe. Kann man die Markierungen umgehen? Ich möchte ungefähr 10 Tabellenblätter umgewandelt haben und jedesmal alle Tabellenblätter zu markieren ist mühsam. Könnte man sich den „weg“ mit der Markierung sparen und direkt eine Umwandlung durchführen?