Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro "speichern unter"

Makro "speichern unter"
02.11.2016 13:23:26
Marco
Hallo zusammen
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

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro "speichern unter"
02.11.2016 14:01:59
Armin
Hallo Marco,
Excel-Dateien mit Makros lassen sich nur als *.xlsm speichern!
Gruß Armin
Anzeige

314 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige