CommandButton "Speichern unter..." erweitern
19.02.2015 08:01:51
Annett
per VBA habe ich einen Button der mir das Fenster öffnet "Speichern unter..."
und mir automatisch gleich den passenden Dateinamen vorgibt.
Habe im Internet folgenden Code gefunden und diesen angepasst ...
Private Sub CommandButton01_Click()
If Not SaveAsUI Then
Cancel = True
Application.SendKeys Range("B55:C55").Value
Application.Dialogs(xlDialogSaveAs).Show
End If
End Sub
Klappt super toll und ist klitze-klein.
Kann man diesen Code nun auch noch so erweitern, das dieser auch gleich
automatisch den Dateityp PDF einstellt ?
LG ans Forum