Live-Forum - Die aktuellen Beiträge
Datum
Titel
18.04.2024 21:09:11
4 Spalten aus smarter Tabelle in andere smarte Tab. kopieren
18.04.2024 20:45:35
Worksheet_Activate für alle Sheets
18.04.2024 19:30:20
VBA - Tabelle mit Mannschaftsergebnissen sortieren
18.04.2024 18:04:29
Formel fehler Wert#
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1816to1820
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
1816to1820
1816to1820
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Als PDF speichern

Als PDF speichern
04.03.2021 10:40:20
Markus
Hallo,
ich habe eine Arbeitsmappe, die mehrere Tabellenblätter beinhaltet. jetzt möchte ich über einen CommandButton, dass gewisse Tabellenblätter ausgewählt werden und als PDF gespeichert werden.
Zu den Vorraussetzungen:
In meinem Tabellenblatt "Übersicht" stehen in der Spalte A nummern, diese sind identisch zu den Bezeichnungen der anderen Tabellenblättern. Wenn jetzt bei meinem Tabellenblatt "Übersicht" in der Spalte G etwas steht, soll in der Spalte A nach der nummer geschaut werden und das demendsprechende Tabellenblatt + meinem Tabellenblatt "Zusammenstellung" ausgewählt werden und als PDF gespeichert werden.
In meiner Bsp Datei wäre es dann Tabellenblatt 1 + 3 + Zusammenfassung.
https://www.herber.de/bbs/user/144434.xlsm
Ich hoffe es ist einigermaßen verständlich, was ich möchte.
MfG
Markus

9
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Als PDF speichern
04.03.2021 10:53:25
Nepumuk
Hallo Markus,
in deiner Tabelle "Übersicht" steht in Spalte G sowohl in Zeile 8 und Zeile 10 etwas. Sollen dann 2 PDF's erstellt werden?
Gruß
Nepumuk

AW: Als PDF speichern
04.03.2021 11:32:37
Markus
Hallo Nepumuk,
nein, es soll am Ende eine PDF Datei sein.
MfG
Markus

AW: Als PDF speichern
04.03.2021 11:56:33
Nepumuk
Hallo Markus,
ich bin jetzt mal davon ausgegangen dass sich der CommandButton in der Tabelle "Übersicht" befindet.
Das PDF wird im Ordner der Mappe gespeichert, den Dateinamen musst du noch anpassen.
Option Explicit

Private Sub CommandButton1_Click()
    Dim objCell As Range
    Dim astrWorksheets() As String
    Dim ialngIndex As Long
    Redim astrWorksheets(1)
    astrWorksheets(0) = "Übersicht"
    astrWorksheets(1) = "Zusammenfassung"
    ialngIndex = 1
    For Each objCell In Range(Cells(8, 7), Cells(Rows.Count, 7).End(xlUp))
        If Not IsEmpty(objCell.Value) Then
            ialngIndex = ialngIndex + 1
            Redim Preserve astrWorksheets(ialngIndex)
            astrWorksheets(ialngIndex) = CStr(objCell.Offset(0, -6).Value)
        End If
    Next
    If ialngIndex > 1 Then
        Call Worksheets(astrWorksheets).Select
        Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Test.pdf")
        Call Me.Select
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Als PDF speichern
04.03.2021 12:51:40
Markus
Hallo Nepumuk,
leider ist noch ein Fehler drin. Die Tabelle "Übersicht soll nicht mit ausgegeben werden, sondern nach meinem Bsp. müsste Tabellenblatt 1+3+Zusammenfassung ausgegeben werden.
MfG Markus

AW: Als PDF speichern
04.03.2021 12:55:04
Nepumuk
Hallo Markus,
dann so:
Option Explicit

Private Sub CommandButton1_Click()
    Dim objCell As Range
    Dim astrWorksheets() As String
    Dim ialngIndex As Long
    Redim astrWorksheets(0)
    astrWorksheets(0) = "Zusammenfassung"
    For Each objCell In Range(Cells(8, 7), Cells(Rows.Count, 7).End(xlUp))
        If Not IsEmpty(objCell.Value) Then
            ialngIndex = ialngIndex + 1
            Redim Preserve astrWorksheets(ialngIndex)
            astrWorksheets(ialngIndex) = CStr(objCell.Offset(0, -6).Value)
        End If
    Next
    If ialngIndex > 0 Then
        Call Worksheets(astrWorksheets).Select
        Call ActiveSheet.ExportAsFixedFormat(Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\Test.pdf")
        Call Me.Select
    End If
End Sub

Gruß
Nepumuk

Anzeige
AW: Als PDF speichern
04.03.2021 13:28:26
Markus
Hallo Nepumuk,
jetzt ist es so, dass nur Zusammenfassung und Tabellenblatt 3 ausgegeben werden. Es soll ja so sein, dass sobald im Tabellenblatt "Übersicht" in der Tabelle Tb_Übersicht[Wart./Insp.] etwas steht soll das dazu gehörige Tabellenblatt mit ausgegeben werden. Darum haben die Tabellenblätter auch die selbe Bezeichnung wie die Angebotsnummer (Spalte "A"). Ich werde meine Bsp Datei mal erweitern damit es etwas vertändlicher ist.
MfG Markus

AW: Als PDF speichern
04.03.2021 13:35:46
Markus
Hallo Nepumuk,
sorry ich muss meine letzte Nachricht zurück nehmen, in der Test Prog funktioniert es nur in der Originalen nicht. Muss erstmal nachscheuen was da jetzt anders sein soll.
MfG Markus

Anzeige
AW: Als PDF speichern
04.03.2021 14:40:34
Markus
Hallo Nepumuk
leider wird in meiner Original Datei immer die Tabelle 1 ausgelassen. Vielleicht hast du ja eine Idee. Ich habe sogar gerade die Datei nochmal neu aufgesetzt.
MfG Markus

AW: Als PDF speichern
04.03.2021 15:12:11
Markus
Hallo Nepumuk,
ich habe den Fehler gefunden. In meiner original Datei fing die Tabelle "Übersicht" nicht in Zeile 7 sondern in der Zeile 5 an. Einfach zwei Zeilen eingefügt und siehe da es funktioniert.
Ich danke dir für deine Hilfe.
MfG Markus

327 Forumthreads zu ähnlichen Themen

Tabelle als PDF speichern
PeTeR

Hallo VBA-Freaks,
ich suche seit Stunden - finde aber nicht den exakt passenden Code, obwohl es zig Einträge zu dem Thema gibt.
Ich will eine Tabelle per VBA in PDF umwandeln u. drucken. Mein Code:
Application.ActivePrinter = "Adobe PDF auf Ne01:"
ActiveWindow.SelectedSheets.Pri...
25.10.2008 23:06:00
Thread-ID: 1019291
5 Beiträge
Anzeige
Tabellenblatt als pdf und speichern
Horst

Hallo,
ich möchte über VBA ein Tabellenblatt als pdf speichern.
Momentan kann ich dank dem Makrorecorder ein pdf Dokument mit der BroadGun PDF Machine erstellen,
Acrobat Reader startet und zeigt das Dokument an.
Mein Wunsch wäre jedoch , dass das PDF Dokument auch gleich mit e...
27.11.2009 15:18:04
Thread-ID: 1120555
3 Beiträge
Excel Worksheet in PDF Datei umwandeln
Benedikt

hallo excel spezialisten
ich möchte gerne ein excel worksheet in eine pdf datei umwandeln, wie kann ich das machen?
das ganze sollte über einen makro möglich sein, denn ich möchte einen button dafür einsetzen (CommandButton1_Click), gleichzeitig möchte ich das sich die pdf datei automat...
28.02.2010 22:11:37
Thread-ID: 1142230
2 Beiträge
Anzeige
per VBA als PDF speichern - mit Code
Klaus

Moin Moin,
um eine Arbeitsmappe als PDF zu speichern, bemühe ich den "PDFCreator" sowie den Drucken-Dialog. _ Der Recorder gibt mir dann folgendes: Sub Makro1() Application.ActivePrinter = "PDFCreator auf Ne00:" ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _ "PDFCreator...
16.04.2010 14:23:54
Thread-ID: 1152230
2 Beiträge
Excel Blatt als PDF speichern und dann verschicken
M

Hallo,
ich glaube ich habe mein Werk jetzt fast fertig, aber nun scheitert es doch an den letzen Zügen und an meinen nicht vorhandenen VBA Kenntnissen.
Dies ist mein erster Makro und der funktioniert auch so wie ich es mit vorgestellt habe: Sub Makro1() ' Makro1 Makro ActiveSheet.Expor...
03.05.2010 09:14:35
Thread-ID: 1155012
2 Beiträge
Blatt als PDF-Datei abspeichern
WalterK

Hallo,
in der Recherche habe ich einen Code gefunden mit dem Blätter als PDF-Datei gespeichert werden. Auf meine Bedürfnisse angepasst funktioniert er tadellos.
Eine kleine Änderung bekomme ich aber nicht hin.
Es geht um die Zeile sPDFName = "Arbeitszeitnachweis .....
MonatJahr...
16.07.2010 22:10:25
Thread-ID: 1167519
6 Beiträge
Aus Excel word Formular füllen & als pdf speichern
Tim

Hallo,
ich habe ein Excel Datei it Makros in deren Verlauf ich eine Word Formatvorlage fülle. Soweit klappt das alles auch gut.
Sub Test() Dim wrdApp Dim wrdDoc Dim Pfad As String Pfad = ThisWorkbook.Path & "\Vorlagen\Vorlage Gutschrift.docx" On Error GoTo ErrorExit Set wrdApp = C...
31.05.2011 12:43:37
Thread-ID: 1216846
3 Beiträge
Mail per VBA mit PDF-Anhang
Ralf

Hallo,
ich werkle schon geraume Zeit an folgendem Problem rum:
Ich muss für einen Kunden aus einer Excel-Mappe heraus eine Mail versenden können.
Dabei gibt es folgende Bedingungen:
1. Als Attachement gibt es eine PDF-Datei, die vorher erzeugt wurde.
(Name und Speicherpfad s...
05.02.2012 16:38:24
Thread-ID: 1249421
7 Beiträge
Anzeige

Links zu Excel-Dialogen

CommandButton

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
4
2
2
1
2
1
1
5
2
6
1
7
2
3
1
15
12
2
10
3
16
1
2
6
6