Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.04.2024 14:29:30
Matrixkonstanten als Quelle für Gültigkeit und Steuerelement
16.04.2024 13:54:06
Multiplikation
16.04.2024 12:41:11
Vielleicht Onur ? Leider werden nicht alle Monate
16.04.2024 12:08:33
Zelle/Spalte bestimmten Wert in Kopfzeile zuordnen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1300to1304
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
1300to1304
1300to1304
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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
Anzeige
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.

Anzeige
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
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige