Wieder einmal muss ich die Unterstützung der Experten hier erbitten.
Ich habe einen Makro-Button erstellt, der mein Excel mit Datum und Uhrzeit als Dateinamen speichert.
Ich möchte gerne wissen, ob es möglich ist, zu diesem Dateinamen auch den Zellwert von z.B. d34 & f34 hinzuzufügen?
Besten Dank.
Jan
Sub SaveAsFilenameWithTimestamp()
'Updated by Extendoffice 20191223
Dim xWb As Workbook
Dim xStrDate As String
Dim xFileName As Variant
Dim xFileDlg As FileDialog
Dim i As Variant
Application.DisplayAlerts = False
Set xWb = ActiveWorkbook
xStrDate = Format(Now, "yyyy-mm-dd hh-mm-ss")
If Right(xWb.Name, 4) = "xlsm" Then
xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Macro-Enabled Workbook (*.xlsm),*.xlsm")
Else
xFileName = Application.GetSaveAsFilename(xStrDate, "Excel Workbook (*.xlsx),*.xlsx")
End If
If xFileName = False Then
Else
xWb.SaveAs (xFileName)
End If
Application.DisplayAlerts = True
End Sub