Makro "speichern unter"
02.11.2016 13:23:26
Marco
Ich versuche ein Makro zu erstellen, die mir den Dateiname aus der Information in der Mappe zusammenstellt und dann mit "Speichern unter" als *.xlsx im richtigen Pfad abspeichert.
So weit so gut funktioniert das auch schon. Jedoch wenn ich dann "Speichern" drücke und bestätige, kommt weder eine Fehlermeldung noch wird die Datei gespeichert.
Was mache ich falsch?
------------------------------------
Sub Speichern()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\Users\test\Dropbox\Dive Team Lakeland\Vorstand\Buchhaltung\Rechnungen Dive _
SCHOOL\2016\" 'Verzeichnis-Vorschlag
Datei = Range("I2") & ".xlsx" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
End Sub
Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, Filefilter:="Excel _
Dateien (*.xlsx),*.xlsx*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function
-------------------------------------Lieben Gruss Marco