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
1644to1648
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
1644to1648
1644to1648
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Excel Mappe als PDF mit bestimmtem Ziel und Namen

Excel Mappe als PDF mit bestimmtem Ziel und Namen
20.09.2018 18:56:35
Sven
Hallo liebe Leute
ich habe eine Problem und zwar möchte ich in VBA per knopf druck(Sub) die Excel datei als PDF schpeichern der Datei name der PDF soll sich nach Zelle B3 richten und der Speicherort soll wie folgt sein C:\Ordner\"Zelle I3"\"Zelle C3"\...
ich hoffe mir kann da jemand behiflich sein.
MFG S

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel Mappe als PDF mit bestimmtem Ziel und Namen
21.09.2018 00:38:33
fcs
Hallo Sven,
mit deinem angegebenen Level VBA=gut solltest du eigenlich in der Lage sein ein entsprechendes Makro mit dem Makro-Recorder aufzuzeichnen und das Makro dann an den Stellen anzupassen, wo es variabel sein soll.
Gruß
Franz
Kann dann am Ende etwa so aussehen. 
Sub PDF_Speichern_Tabellenblatt()
' Aktives Tabellenblatt als PDF_Speichern
Dim strDateiname As String
With ActiveSheet
strDateiname = "C:\Ordner\" & .Range("I3").Text & "\" & .Range("C3").Text & "\" _
& .Range("B3").Text & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End With
End Sub
Sub PDF_Speichern_Arbeitsmappe()
' Aktive Arbeitsmappe/Datei als PDF_Speichern
Dim strDateiname As String
With ActiveSheet
strDateiname = "C:\Ordner\" & .Range("I3").Text & "\" & .Range("C3").Text & "\" _
& .Range("B3").Text & ".pdf"
End With
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=strDateiname, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
End Sub

Anzeige

300 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
Blatt als PDF speichern (Excel 2007)
Gerhard

Hallo,
in einem gelegentlich langsamen Intranet muss ein Excel-Blatt von verschiedenen Netzwerk-PC aus mit diesem Code in einen vorhandenen oder neu erzeugten Ordner gespeichert werden.
Immer wieder kommt es vor, dass nicht in den mit If Dir(spath, 16) = "" Then MkDir (spath) erzeug...
10.03.2010 12:31:39
Thread-ID: 1144818
3 Beiträge
Anzeige
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
Excel als PDF speichern
max

Hallo Excelfreunde,
arbeite viel mit FreePDF XP, Nachteil: es öffnet sich eine Maske ausserhalb von Excel zum Zusammenfügen von Excelseiten und Abspeichern als Datei.
Vor kurzem habe ich im Archiv folgenden Makro gefunden (meinerseits bereits angepasst):
Sub Makro1() ActiveSheet.Exp...
29.02.2012 00:47:25
Thread-ID: 1252798
2 Beiträge
Excel als PDF mit Makro speichern
Wildgans

Hallo Forum,
ich habe mit dem Makrorecorder ein Makro aufgezeichnet, siehe Dokument https://www.herber.de/bbs/user/80794.doc
Wenn ich jetzt diese Makro starte funktionert es auch. Jetz möchte ich nur das bei der Ausgabe nicht drei einzelne Dateien erzeugt werden, sondern dass aus diese...
28.06.2012 10:48:17
Thread-ID: 1269286
3 Beiträge
Anzeige

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