Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1384to1388
1384to1388
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabs als PDF drucken mit Checkbox-Auswahl

Tabs als PDF drucken mit Checkbox-Auswahl
30.09.2014 11:53:12
herbert
Hallo,
wie kann ich aus einer Arbeitsmappe einige per Checkbox ausgewählte Tabs als pdf speichern? Eine Beispiel-Arbeitsmappe habe ich euch beigefügt.
Servus
https://www.herber.de/bbs/user/92906.xlsm

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

Betreff
Datum
Anwender
Anzeige
AW: Tabs als PDF drucken mit Checkbox-Auswahl
30.09.2014 12:01:14
Klaus
Hallo Herbert,
im Prinzip musst du jede Checkbox durchgehen. Das könnte dann so aussehen:
Sub Pseudocode
if Checkbox1 then Tabelle0.alsPdf
if Checkbox2 then Tabelle00.alsPdf
if Checkbox3 then tabelle1.alsPdf
End Sub
ich sehe keinen eleganteren Weg, da du die Arbeitsblätter ja nicht fest den Checkboxen zuordnen kann. VIELLEICHT wenn du sicherstellst, dass der Index der Arbeitsblätter (also Sheets(i)) immer gleich dem Checkboxnamen ist (Also Kontrollkästcheni), dann könnte man eine Schleife verwenden. Wäre mir aber zu fragil.
Grüße,
Klaus M.vdT.
(lasse mal offen)

Anzeige
AW: Tabs als PDF drucken mit Checkbox-Auswahl
30.09.2014 12:35:19
herbert
Hallo Klaus,
das könnte ich schon, den CB je 1 TB zuordnen. Was ich auch bräuchte ist, dass man das pdf-file völlig wahlfrei aus den CBs zusammenstellen kann. ZB CB2 & CB 4, oder CB1 & CB2, etc. etc.
Servus

AW: Tabs als PDF drucken mit Checkbox-Auswahl
30.09.2014 12:04:38
Rudi
Hallo,
kopiere die ausgewählten Sheets in eine neue Mappe und speichere diese als pdf.
Gruß
Rudi

AW: Tabs als PDF drucken mit Checkbox-Auswahl
30.09.2014 12:39:06
herbert
Servus Rudi,
ich kann ja mit dem folgenden Code Tabs auswählen und diese dann in einer pdf speichern.
Sheets(Array("f_offer ttl", "f_offer ttl2")).Select
Sheets("f_offer ttl").Activate
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\2job\excel-helper\Wellness Interaktiv\LED_ProCalc V.1.0 build 164.pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False
Die Frage ist nun, wie kriege ich nun die Tab "f_offer A1" und/oder die Tab "f_offer A2" und/oder die Tab "f_offer A3" etc. in das "Array"? Arrays sind doch Deine Spezialität! ;o)=)
servus

Anzeige
AW: Tabs als PDF drucken mit Checkbox-Auswahl
30.09.2014 13:08:25
Rudi
Hallo Herbert,
deine Kriterien sind mir nicht klar.
Ich würde die Sheets erst in einem Dictionary sammeln.
Als Ansatz: 
Sub herbert()
Dim objSheets As Object
Set objSheets = CreateObject("Scripting.dictionary")
With Sheets(1)
If .Shapes("Kontrollkästchen 1").ControlFormat = 1 Then
objSheets("Tabelle0") = 0
objSheets("Tabelle00") = 0
End If
If .Shapes("Kontrollkästchen 2").ControlFormat = 1 Then objSheets("Tabelle3") = 0
End With
If objSheets.Count Then
Sheets(objSheets.keys).Copy
With ActiveWorkbook
.ExportAsFixedFormat xlTypePDF, "c:\test\testa"
.Close False
End With
End If
End Sub
Worksheet.exportasfixedformat geht nur mit einem einzelnen sheet, so viel ich weiß.
Gruß
Rudi
Die Rechnung kommt per Post ;-)

Anzeige
wenn die KK als Text ...
30.09.2014 13:29:48
Rudi
Hallo,
... die Blattnamen tragen, dann so: 
Sub herbert2()
Dim objSheets As Object
Dim shp As Shape
Set objSheets = CreateObject("Scripting.dictionary")
With Sheets(1)
For Each shp In .Shapes
If shp.FormControlType = xlCheckBox Then
If shp.ControlFormat = 1 Then
objSheets(shp.DrawingObject.Caption) = 0
End If
End If
Next
End With
If objSheets.Count Then
Sheets(objSheets.keys).Copy
With ActiveWorkbook
.ExportAsFixedFormat xlTypePDF, "c:\test\testa"
.Close False
End With
End If
End Sub
Gruß
Rudi

AW: Tabs als PDF drucken mit Checkbox-Auswahl
30.09.2014 18:30:29
herbert
Hallo Rudi,
das ist anscheinend die einzig machbare Lösung. Danke Dir!
Grüße an H.
Servus
Anzeige

302 Forumthreads zu ähnlichen Themen

als PDF drucken
KLE

Hallo und Guten Abend zusammen,
...jetzt habe ich meine Datei super hinbekommen - alles funktioniert und so, aber wie immer kommt mein Chef im Nachgang mit einem Sonderwunsch...und da komm ich ohne Eure Hilfe auch nicht weiter :o(
Ich habe es nun dank Eurer Unterstützung geschafft aus e...
25.09.2008 18:01:07
Thread-ID: 1012395
2 Beiträge
Anzeige
Nur bestimmten Bereich Drucken
Willy

Hallo Leute
Habe eine Tabelle A1-D60 mit Rahmen und Zwischenlinien, ab der 4. Zeile sind die Spalten miteinander verbunden.
Es soll nur der Bereich gedruckt werden, wo was drin steht, einzelne leer Zeilen sollen ignoriert (leer gedruckt) werden und am Ende sollen zwei leer Zeilen mit ge...
14.02.2009 12:21:00
Thread-ID: 1050686
4 Beiträge
VBA, PDF drucken und speichern
georg

Hallo liebe Excellenzen,
ich habe mich früher des öfteren im Spotlight Forum herumgetrieben. Leider fehlt mir heute die Zeit mich mehr einzubringen.
Hier bei Herber ist es mein erster Beitrag. Vielen Dank dafür dass es hier eine solche Plattform gibt!
Ich habe einen kleinen Server....
12.05.2009 13:23:15
Thread-ID: 1074578
3 Beiträge
Anzeige
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
30.09.2009 19:49:14
Thread-ID: 1106503
2 Beiträge
Makro Datei als Kommentar in PDF implementieren
Alex

Hallo zusammen,
ich habe ein ziemlich umfrangreiches excel tool, dieses simuliert einige technische zusammenhänge, erstellt daraus resultierend, angebote, füllt automatisch Förderanträge aus uvm....
Am Ende erhält jeder Kunde eine Vielzahl von PDF Dateien.
Für diese ganzen Dateien h...
01.10.2009 08:01:37
Thread-ID: 1106504
2 Beiträge
Blatt per VBA mit FreePDF als PDF-Datei sichern
Mike

Hallo,
wer kann mir einen Weg oder Beispiel zeigen, wie ich per VBA mit FreePDF ein Worksheet als PDF-Datei speichern kann?
Vielen Dank, Mike.
02.10.2009 00:05:48
Thread-ID: 1106727
5 Beiträge
tabelle per makro als pdf drucken ohne abfrage
Jens

hi leute
hab mal ne frage
ist es möglich die speicher abfrage vom pdf drucker zu umgehen?
ich möchte einen festen ordner vorgeben und die datei soll auch bei jedem druck überschrieben werden ohne nachfrage.
vielen dank im voraus
23.11.2009 08:59:36
Thread-ID: 1119332
3 Beiträge
PDF ausdrucken- Ergebnis NICHT anzeigen
Björn

Hallo Leute,
eigentlich ist mein Problem kein richtiges Excel-Problem sondern eher ein AdobeAcrobat-Problem.
Ich habe ein Makro erstellt mit dem diverse PDF (über drucken als PDF) erzeugt werden. Das Problem ist, daß bei jedem Ausdruck auch das Ergebnis angezeigt wird (also die erstellt...
05.03.2010 23:07:25
Thread-ID: 1143830
6 Beiträge
Anzeige

Links zu Excel-Dialogen

CheckBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
1
2
3
2
13
1
1
4
2
5
3
1
5
2
2
6
1
2
1
5
8
2
3
1
2