Makro speichern unter

Computer: Software & Programmierung Office Software
1

Hi Zusammen:

Ich habe eine Frage:

Ich habe ein Makro, welches nur das „speichern unter“ fenster öffnen soll.

Sub SpeichernUnterDialogAufrufen()
Application.Dialogs(xlDialogSaveAs).Show
End Sub

Dies klappt auch. Kann ich dem Makro noch sagen, dass er automatisch als Dateityp: pdf einstellen soll? Nun, wenn sich das Fenster öffnet ist bei Dateityp automatisch .xlsm eingestellt…

Danke euch Gruß

2

Hi,

in der Hilfe zusammengesucht

 Dim fName as String
 Do
 fName = Application.GetSaveAsFilename( \_
 fileFilter:=_"Text Files (\*.txt), \*.txt"_) 'Beispiel
 Loop Until fName False
 ActiveWorkbook.SaveAs \_
 Filename:=fName, fileFormat:=_xlNormal_ 'Beispiel

Allerdings ist auf meinem System kein pdf-Drucker in Excel installiert. Deshalb müßtest Du mit den Parameter fileFilter und fileFormat ein wenig herumspielen oder sie anhand einer Makroaufzeichnung auslesen.

HTH.

Markus
________________
Und Sterne…

3

bekomme das irgendwie net hin. Habe .txt als .pdf verändert… klappt aber irgendwie nicht :frowning: Hast du oder jemand noch eine andere idee??? Ich werde es auch weiter versuchen :wink: Danke euch

4

VBA SaveAs in Excel 2007 - 2010

bekomme das irgendwie net hin. Habe .txt als .pdf verändert…
klappt aber irgendwie nicht :frowning: Hast du oder jemand noch eine
andere idee??? Ich werde es auch weiter versuchen :wink: Danke
euch

Hallo Kolri,

geht#s auch genauer?
Was klappt nicht, was geschieht dbei bzw. nicht?

Funktioniert dies nicht:
fName = Application.GetSaveAsFilename(, „Adobe PDF (*.pdf), *.pdf“)

oder dieses nicht:
ActiveWorkbook.SaveAs fName

Bei letzterem
schau mal hier.

Gruß
Reinhard

5

Hallo Reinhard, hallo Markus,

Es hat doch geklappt :smile:

Sub Speichern()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs „123“
Application.DisplayAlerts = True

fName = Application.GetSaveAsFilename(, „Adobe PDF (*.pdf), *.pdf“)

End Sub

Vielen Dank an euch beide :smile: Mal wieder :smile:

6

Sub Speichern()
Application.DisplayAlerts = False
ActiveWorkbook.SaveAs „123“
Application.DisplayAlerts = True

fName = Application.GetSaveAsFilename(, „Adobe PDF (*.pdf),
*.pdf“)

End Sub

Hallo Kolri,

wäre anstatt
ActiveWorkbook.SaveAs „123“
ActiveWorkbook.SaveAs „123.xls“
nicht sinnvoller?

Bei SaveAS kommen Warnhinweise? Doch nur dann wenn es die Datei schon gibt, nimm dann doch gleich Save anstatt Saveas.

Und wenn du gleich einen Speichernamen für die pdf vorgeben willst,

fName = Application.GetSaveAsFilename(„123.pdf“, „Adobe PDF (*.pdf), *.pdf“)

Gruß
Reinhard