Tipps & Tricks
Excel-Makro: Unter vorgegebenem Pfad speichern
Bei folgendem Makro können Sie einen existierenden Pfad vorgeben.
Makro
Quelle: PCtipp.chDer Dateiname ist in diesem Makro auskommentiert (grüne Schriftfarbe). Sie können diese Funktion aktivieren, falls es sich immer um den selben Dateinamen (oder einen Teil davon) handeln sollte.
Wenn Sie dieses Makro in der jetztigen Ausführung starten, öffnet sich der Dialog mit dem hier als Beispiel gesetzten Pfad «C:\__EigeneDateien\testpfadNterordner\». Den passen Sie natürlich noch an Ihren gewünschten Pfad an. Beim Ausführen des Makros brauchen Sie dann nur noch den Dateinamen zu ergänzen und die Datei zu speichern.
Makro ausgeführt
Quelle: PCtipp.ch-----------------------------------------
Das Makro zum Kopieren
-----------------------------------------
Sub SpeichernUnter()
Dim dialog As Object
Dim pfad As String
Dim datei As String
pfad = "C:\__EigeneDateien\testpfadNterordner\"
'datei = ActiveSheet.Range("N11")
Set dialog = Application.FileDialog(msoFileDialogSaveAs)
With dialog
.InitialFileName = pfad '& datei
.Show
End With
If dialog <> False Then dialog.Execute
End Sub
Nun können Sie das Makro via Extras/Anpassen in eine Symbolleiste oder ein Menü einbinden.
Kommentare