Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 06:38:45
Kumulierte Daten für Intervalllaufeinheiten
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1308to1312
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
1308to1312
1308to1312
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Speichern als PDF mit Namensgebung

Speichern als PDF mit Namensgebung
14.04.2013 17:09:42
pitt54
Hallo,
habe ein Tab erstellt das als PDF Datei gespeichert werden soll. Das speichern klappt auch, habe ein Makro erstellt.
Was nicht klappt ist der Dateiname.
Er soll sich ergeben aus dem Datum der in Zelle C10 und G10 und aus P8 in dem der Name steht.
in den Datumzellen steht 08.04.13 in G10 steht 14.04.13 und in P8 steht Max,Peter.
Der Dateiname sollte so aussehen 08.04.13-14.04.13 Max,Peter.
Das Datum u.die Namen ändern sich natürlich.
Hoffentlich habe ich es verständlich vormuliert mein Anliegen
Gruß Pitt54

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Speichern als PDF mit Namensgebung
14.04.2013 17:59:31
Hajo_Zi
Range("C10").text &"-" Range("G10").text & " " & Range("P8")
Vielleicht reicht das sonst Format einsetzen.

AW: Speichern als PDF mit Namensgebung
14.04.2013 19:38:15
pitt54
Hallo Hajo
danke für Deine Antwort.
Leider komme ich damit nicht klar.
Wo muß die Zeile rein?
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\Users\Pitt\Documents\Auto\Zettel\auto112.pdf", Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Gruß Pitt54

Anzeige
AW: Speichern als PDF mit Namensgebung
14.04.2013 19:49:45
Hajo_Zi
Du hattest Deine Code nicht gepostet, Da Du den Vorschlag selber einarbeiten wolltest. Darum habe ich nur den Vorschlag für den Dateinamen gemacht.
Den geforderten Datei Name sehe ich nicht. Ersetze auto112 durch "& meinVorschlag &"
Gruß Hajo

AW: Speichern als PDF mit Namensgebung
15.04.2013 18:27:50
pitt54
Hallo Hajo,
vielen Dank für Deine Hilfe.
Leider bekomme ich es nicht hin.
Vielleicht kannst Du Dir das noch mal anschauen. Danke.
Die Zellen C10 u. G10 sind verbundene Zellen
Gruß Pitt54

AW: Speichern als PDF mit Namensgebung
15.04.2013 18:31:19
Hajo_Zi
Ich baue keine Datei nach, die Zeit hat schon jemand investiert.
Ein Nachbau sieht bestimmt anders aus als das Original.
Ein Link zur Datei wäre nicht schlecht.
ich sehe keine Grund warum mein Vorschlag nicht gehen soll.

Anzeige
AW: Speichern als PDF mit Namensgebung
15.04.2013 20:56:23
Matze
Hallo Pitt54, Hallo Hajo,
Sub saveAsPDF()
Dim vntFile As Variant
vntFile = Application.GetSaveAsFilename(ThisWorkbook.Path & "\" & ActiveSheet.Name & ".pdf",  _
_
"PDF Dateien (*.pdf), *.pdf", Title:="Als PDF Speichern")
If vntFile  False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End Sub
Matze
So gewünscht ?

Anzeige
AW: Speichern als PDF mit Namensgebung
16.04.2013 17:56:13
pitt54
Hallo Matze,
das sieht schon gut aus.Vielen Dank.
Leider gibt er mir Syntaxfehler an.
Gruß Pitt54

AW: Speichern als PDF mit Namensgebung
16.04.2013 21:31:50
fcs
Hallo Pitt,
mit folgenden Anpassungen sollte es funktionieren. Wegen besserer Siermöglichkeiten empfele ich das Datum im Dateinamen in einer Schreibweise JJJJ-MM-TT einzubauen.
Den Dialog zur Auswahl des Dateinamens kann man natürlich auch weglassen.
Gruß
Franz 
Sub saveAsPDF()
Dim vntFile As Variant
With ActiveSheet
vntFile = ActiveWorkbook.Path & "\" & Format(.Cells(10, 3).Value, "YYYY-MM-DD -") _
& Format(.Cells(10, 7).Value, "YYYY-MM-DD ") & .Cells(8, 16).Text & ".pdf"
'   vntFile = ActiveWorkbook.Path & "\" & .Cells(10, 3).Text & "-" & .Cells(10, 7).Text _
& " " & .Cells(8, 16).Text & ".pdf"
vntFile = Application.GetSaveAsFilename(vntFile, "PDF Dateien (*.pdf), *.pdf", _
Title:="Als PDF Speichern")
If vntFile  False Then
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=vntFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
End If
End With
End Sub

Anzeige
AW: Speichern als PDF mit Namensgebung
17.04.2013 19:26:48
pitt54
Hallo Franz,
danke für die Antwort.
Schaffe es heute leider nicht mehr es auszuprobieren.
Werde es morgen Abend versuchen.
Danke
Gruß Pitt54

311 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

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