kann mir bitte jemand verraten wie ich folgenden Code (Manne52 und Hilbmann von heute)so ändere, dass statt der Jahreszahl eine fortlaufende Nummer aus dem Tabellenblatt "Forderung, Zelle A1" beim schließen/speichern der Datei angehängt wird?
Private Sub Workbook_BeforeClose(Cancel As Boolean)
ActiveWorkbook.SaveAs Filename:= _
"D:\Meine_Dateien_neu\Hans\Forderung\Forderung" & Year(Date) & ".xls", FileFormat:=xlNormal, _
Password:="", WriteResPassword:="", ReadOnlyRecommended:= _
False, CreateBackup:=False
End Sub
Gruß
HansH