pdf speichern

Forumthread: pdf speichern

pdf speichern

05.03.2013 13:45:12

Tom

Hallo,
ich möchte Hilfe eines Buttons per VBA erreichen, dass man sofort ins Menü "Speichern unter ..." gelangt und dann dort auch gleich der Dateityp pdf vorgeben ist.
Dateiname usw möchte ich jeweils selbst vergeben.
Hat mir jemand ne Lösung?
Mit dem Makrorekorder komme ich auf kein vernünftiges Ergebnis.
Danke TOM

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: pdf speichern

05.03.2013 14:53:51

Klaus
AW: pdf speichern

05.03.2013 15:01:58

Luschi
AW: pdf speichern

05.03.2013 15:20:20

Tom
AW: pdf speichern

06.03.2013 07:07:25

Luschi
AW: pdf speichern

12.03.2013 11:09:14

Tom

AW: pdf speichern

05.03.2013 14:53:51

Klaus

Hallo Tom,
folgendes geht zumindest in die Richtung, funktioniert aber leider noch nicht ganz. Vielleicht hilft es dir, ich lasse den Beitrag offen.

Option Explicit
Sub SaveDialogSelf()
'https://www.herber.de/forum/archiv/1128to1132/1129302_SaveAs_Dialog_exakt_wie_in_Excel.html
Dim vSaveAs
On Error GoTo Fehler
'  Cancel = True
Application.EnableEvents = False 'Verhindert rekursiven Aufruf von BeforePrint
'Speichernamen im Dialog abfragen/eingebn - Optionen nicht möglich
vSaveAs = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, _
fileFilter:="Excel(*.xls;*.xlsx;*.xlsm;*.xlsb)," _
& "*.xls;();*.xlsx;*.xlsx;*.xlsb", _
Title:="Bitte Namen der Datei für Speichern Unter wählen", _
Buttontext:="Speichern Unter")
'DAS FUNKTIONIERT LEIDER NICHT
'vSaveAs = Application.GetSaveAsFilename(InitialFileName:=ActiveWorkbook.Name, _
fileFilter:="PDF(*.pdf)," _
& "*.pdf", _
Title:="Bitte Namen der Datei für Speichern Unter wählen", _
Buttontext:="Speichern Unter")
If vSaveAs  False Then 'Dialog wurde nicht abgebrochen
ActiveWorkbook.SaveAs vSaveAs
Else
End If
Err.Clear
Fehler:
With Err
Select Case .Number
Case Is = 0 'Alles OK
Case Else
MsgBox "Fehler-Nr.: " & .Number & vbLf & .Description
End Select
End With
Application.EnableEvents = True
End Sub

Grüße,
Klaus M.vdT.

AW: pdf speichern

05.03.2013 15:01:58

Luschi

Hallo Tom,
so funktioniert es bei mir:
Application.Dialogs(xlDialogSaveAs).Show "*.*", 57
Guß von Luschi
aus klein_Paris

AW: pdf speichern

05.03.2013 15:20:20

Tom

Hallo Luschi,
funktioniert perfekt.
Ist es noch möglich den genauen Pfad zum Speichern anzugeben
z.B. C:\Users\MyPC\Documents\Rechnungen Projekt\2013
Danke vorab
TOM

AW: pdf speichern

06.03.2013 07:07:25

Luschi

Hallo Tom,
so sollte es gehen:
Application.Dialogs(xlDialogSaveAs).Show "C:\Users\...\Downloads\*.*", 57
Guß von Luschi
aus klein-Paris

AW: pdf speichern

12.03.2013 11:09:14

Tom

Hallo Luschi,
sorry, hatte ganz vergessen zu antworten und mich zu bedanken :-)
Funktioniert einwandfrei - DANKE !!!!!
Gruß
TOM

Beliebteste Forumthreads (12 Monate)

Forumthread: pdf speichern

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread