Office: Universelles Makro zum abspeichern von Dateien

Hallo zusammen,

ich suche ein Makro, dass ich für Word in der Form schon habe, für Excel, mit dem ich eine Datei abspeichern und ein Teil des Dateinames ([heutiges Datum],) schon vorgeben kann. Zusätzlich sollte das nicht nur für die spezielle Mappe sein, sondern universal in Excel.

In Word sieht das ganze so aus und ist universell im Projekt Normal gespeichert (gibt es so ein projekt auch in Excel?):

Code:

Sub SpeichernMitDatum()
Const PFAD As String = "C:\Word Dokumente\"
Const TRENNER As String = ","
Const REGAPP As String = "Meine Makros"
Const REGSEC As String = "Datum speichern"
Const REGKEY1 As String = "Datum"
Const REGKEY2 As String = "LfdNr"

Dim strDatum As String
Dim strRegDatum As String
Dim lngRegNr As Long
Dim strDateiname As String

strDatum = Format(Now(), "yyyy-mm-dd")
strRegDatum = GetSetting(REGAPP, REGSEC, REGKEY1)
If strDatum <> strRegDatum Then
SaveSetting REGAPP, REGSEC, REGKEY1, strDatum
SaveSetting REGAPP, REGSEC, REGKEY2, 0
End If
lngRegNr = GetSetting(REGAPP, REGSEC, REGKEY2) + 1
strDateiname = PFAD & strDatum & TRENNER
With Application.Dialogs(wdDialogFileSaveAs)
.Name = strDateiname
If .Show = -1 Then
SaveSetting REGAPP, REGSEC, REGKEY2, lngRegNr
End If
End With
End Sub

Vielen Dank schonmal!

Ps.: Ich hab relativ wenig Ahnung von VBA, also bitte um etwas milde Schilderung.

 

Nach Jahrzehnte langem Googlen, hab ich es nun doch selbst gefunden. Wen es interessiert, hier ist der Code:

Code:

'*** Speicherautomatik - Beginn ***
Sub AutoFilename()
    Dim strPfad As String
    Dim strDatum As String
    Dim strTrenner As String
    '>>> Vorgabe für Speicherpfad
    strPfad = "H:\"
    ChDrive$ Left$(strPfad, 1)
    ChDir$ strPfad
    '>>> Vorgabe für Dateiname
    Dim strDat   As Variant
    Dim strName  As String
    strDatum = Format(Now(), "yyyy-mm-dd")
    strTrenner = ","
    strName = strDatum & strTrenner
    strDat = Application.GetSaveAsFilename(strName)
End Sub
'*** Speicherautomatik - Ende ***