ich habe mir aus dem Internet ein bisschen was zusammenkopiert um mir einen Dateinamen zusammenzuspeichern, der aus verschiedenen Zellen zusammengesetzt wird:
Sub Speichern_unter()
Dim Datei As String
Dim Verzeichnis As String
Dim SaveDummy As Variant
Verzeichnis = "C:\temp\" 'Verzeichnis-Vorschlag
Datei = Range("B5") & "_" & Range("D5") & "_" & Range("B7") & Format(Date, "_dd_mm_yy") & ". _
xlsx" 'Datei-Vorschlag
SaveDummy = SpeichernUnter(Verzeichnis & Datei)
If SaveDummy False Then ActiveWorkbook.SaveAs SaveDummy '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 (*.xlsx),*.xlsx*", _
FilterIndex:=1, Title:="Speichern unter...", ButtonText:="speichern")
End Function
Wenn ich dieses Makro nun ausführe und auf speichern klicke, bleibt er mir aufIf SaveDummy false Then....
mit einem Fehler stehen...
Wenn ich das auskommentiere und auf speichern klicke, dann speichert er nix, bleibt aber auch nicht stehen...
Ich gestehe, dass ich das Makro nicht so recht verstehe :(
Kann mir jemand weiterhelfen?
Danke
Marc