Hallo happy1998,
so funktioniert es bei mir:
[code]Sub name()
Dim strName As String
Dim strDatei As String
strName = Year(Date)
If Month(Date) < 10 Then
strName = strName & "_0" & Month(Date)
Else
strName = strName & "_" & Month(Date)
End If
If Day(Date) < 10 Then
strName = strName & "_0" & Day(Date)
Else
strName = strName & "_" & Day(Date)
End If
strName = strName & "_" & Left(Range("AZ26"), 5) & "_" & Left(Range("AZ29"), 5) & "_" & Left(Range("AZ30"), 5) & ".xlsx"
'Benachrichtungen ausschalten
Application.DisplayAlerts = False
Datei = Application.GetSaveAsFilename(InitialFileName:=strName, fileFilter:="Excel-Arbeitsmappe, *.xlsx")
If Datei = False Then Exit Sub
ActiveWorkbook.SaveAs Filename:=Datei, FileFormat:=xlOpenXMLWorkbook
'Benachrichtungen wieder einschalten
Application.DisplayAlerts = True
End Sub[/code]
Gruß
M.O.