Was mache ich falsch?
16.06.2020 15:54:21
Micha
ich hoffe mal wieder auf Eure kompetente Unterstützung.
Ich benötige ein Makro für das Speichern Unter
Dabei soll der Dateiname aus den Zellen einer Arbeitsmappe ausgelesen und der Speicherort vorgegeben werden.
Bei dem folgenden Code wird der Dateiname korrekt erstellt, und auch das korrekte Verzeichnis geöffnet, aber leider wird die Datei nicht gespeichert. Es kommt auch keine Fehlermeldung.
Was mache ich falsch?
LG, Micha
Sub SpeichernUnterEntwurf()
Dim Dateiname As String
Dateiname = "Kalkulation " & ActiveWorkbook.Sheets("Übersicht").Range("C5") & "_" & _
ActiveWorkbook.Sheets("Übersicht").Range("C6") & "_" & ActiveWorkbook.Sheets("Übersicht").Range( _
"C7") & " " & VBA.Environ("Username") & " " & Format(Now, "YYYY-MM-DD")
With Application.FileDialog(msoFileDialogSaveAs)
.InitialFileName = "C:\1-Anwender\3.1 Kalkulation\02_Entwurf\" & Dateiname
.Show
End With
End Sub