der nachfolgende Code soll den Dateinamen aus bestimmten Zellen zusammenstellen. Seit der Umstellung von Excel 2003 auf Excel 2010 funktioniert der Code nicht mehr. An was liegt das?
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Dim Dateiname
Dateiname = [Eingabeblatt!AI105] & [Eingabeblatt!AI106] & [Eingabeblatt!AI107] & [ _
Eingabeblatt!AI108] & Format([Eingabeblatt!AI109], "YYYY") & [Eingabeblatt!AI110] & [Eingabeblatt!AJ110] & ".xls"
If UCase(Dateiname) UCase(ActiveWorkbook.Name) Then
Application.EnableEvents = False
Cancel = True
Application.Dialogs(xlDialogSaveAs).Show Dateiname
End If
Application.EnableEvents = True
End Sub
Besten Dank und Servus, Walter