VBA "speichern unter" spuckt keinen Vorschlag aus
27.08.2016 03:49:51
Christopher
Mein Makro hat bisher alles richtig gemacht, aber nach einer kleinen Änderung tut es nicht mehr wirklich das was es soll.
Sub Speichern_unter()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = Range("H1") 'Verzeichnis-Vorschlag
Datei = "übersicht.ch " & Range("I1") & ".xlsm" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy, 52 'Es wurde im Dialog auf _
Speichern gedrückt
End Sub
Function SpeichernUnter(VorgabeName As String) As Variant
SpeichernUnter = Application.GetSaveAsFilename(InitialFileName:=VorgabeName, FileFilter:="Excel _
Dateien (*.xlsm),*.xls*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function
Die Formeln der Zellen H1 [=ZEICHEN(34)&LINKS(ZELLE("Dateiname";$A$1);FINDEN("[";ZELLE("Dateiname";$A$1))-2)&"\"&ZEICHEN(34) und
I1 [=KLEIN(TEXT(C6;"MMMM"))]
spucken die Werte ["C:\Users\CH\OneDrive\dokumente\arbeit\neu\"] und [august] aus. Somit sollte eigentlich der Vorgeschlagene Dateiname [übersicht.ch august.xlsm] herauskommen. Sollte...
Seitdem ich den Parameter "Vereichnis" mit rein genommen habe, zeigt er mir im Speichern-Dialog keinen Datei-Namen mehr an. Ist zwar nur eine Kleinigkeit, aber es stört trotzdem sehr.
Wenn jemand von euch einen Hinweis für mich hätte, was ich falsch gemacht habe, wäre ich sehr dankbar.
Grüße Chris