Office: Speichern unter mit vorgegebenem Pfad, Dateityp und Dateinamen

benja1108 · 1. März 2016

Hallo,

ich möchte ein Makro erstellen, dass mit Klick auf den Button das Fenster "Speichern unter" geöffnet wird, außerdem ein vorgegebener Pfad zum Speichern vorbelegt ist, außerdem der Dateityp mit "Excel-Arbeitsmappe mit Makros" ausgewählt ist und der Dateiname (steht in Zelle B2) eingeblendet wird.

Bis auf die Funktion mit dem Dateityp habe ich den Code schon mithilfe anderer Forumsbeiträge zusammenschreiben können, aber eben die Auswahl des Dateityps felht noch:

Code:

Sub Speichern()
Dim dialog As Object
Dim pfad As String
Dim datei As String

pfad = "C:\Testpfad\"
datei = Range("b2")
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad & datei
.Show
End With
If dialog False Then dialog.Execute
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Über Hilfe würde ich mich sehr freuen,
Benja

:)

Beverly · 3. März 2016

Hi Benja,

versuche es mal so:

Code:

Dim Name
Name = Application.GetSaveAsFilename("C:\Testpfad\" & Range("B2") & ".xlsm", fileFilter:="Microsoft Excel-Arbeitsmappe (*.xlsm), *.xlsm")
If Name False Then
ActiveWorkbook.SaveAs Name, FileFormat:= _
xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

benja1108 · 3. März 2016

Hallo Karin,

vielen Dank, das klappt perfekt!

Grüße
Benja

wut3 · 16. November 2016

Hallo zusammen,

bin auf der Suche nach einem VBA Code der mir folgendes ermöglicht.

Datei speichern unter einem festen Pfad
Den Namen der Datei aus einer Zelle holt
zu dem Namen noch das Datum dazubaut

der obrige Code wäre super bloß läuft der bei mir nicht.

Fehler Meldung:
Projekt oder Bibliothek nicht gefunden
klicke ich dort auf OK, öffnet sich im Excel ein Fenster mit dem Namen: Verweise VBA Projekte.

Was muss ich da tun bzw. was kann man da tun?
Habe mit einem anderen Code einen ähnlichen Fehler alles seid dem neuen Rechner: WIN und OFfice Umstellung

http://http://www.office-loesung.de/p/viewtopic.php?f=166&t=726793

Kann mir da jemand weiterhelfen?

danke vorab

Gruß wut

Office: Speichern unter mit vorgegebenem Pfad, Dateityp und Dateinamen

Speichern unter mit vorgegebenem Pfad, Dateityp und Dateinamen

Speichern unter mit vorgegebenem Pfad, Dateityp und Dateinamen

Speichern unter mit vorgegebenem Pfad, Dateityp und Dateinamen

Speichern unter mit vorgegebenem Pfad, Dateityp und Dateinamen - Similar Threads - Speichern vorgegebenem Pfad

Vorlagen (nach)bearbeiten und speichern

Excel Tabellenblatt als PDF speichern unter Vorgabe Dateinamen aus einer Zelle

Den Pfad verändern

Excel per Button Speichern und Schliessen und "X - Button" deaktivieren

Datei als OLE-Objekt via FilePicker auswählen und speichern

offene Word-Datei per VBA speichern

Persönliche Vorlagen weg, lassen sich nicht neu speichern