1
2
3
4
5
6
7
8
9
10
11
12
13
14

Option Explicite

Private Sub Datei_speichern() 
'----------- Datei speichern unter mit Abfrage... -----------
        If MsgBox("Makro beendet, Datei jetzt speichern?", vbOKCancel, "Datei speichern...") = vbOK Then
 
        Dim strVerzeichnis As String
        Dim strDateiname As String
 
            strVerzeichnis = "C:\"
            strDateiname = Application.GetSaveAsFilename(InitialFileName:=strVerzeichnis & _
                Range("A1") & ".xls", _
                FileFilter:="Microsoft Excel-Arbeitsmappe (*.xls), *.xls")
                ActiveWorkbook.SaveAs Filename:=strDateiname, FileFormat:=xlExcel5
 
        End If
End Sub