Kann einer bitte die Lösung posten. Danke.
Sub change_prob()
Dim w As String
w = ThisWorkbook.Name
Workbooks(w).BuiltinDocumentProperties("Title") = Range("A1")
Workbooks(w).BuiltinDocumentProperties("Subject") = Range("A2")
End Sub
Sub DateieigenschaftSchreiben()
Sheets("Tabelle1").Select
ActiveWorkbook.BuiltinDocumentProperties("Title") = Range("E11")
ActiveWorkbook.BuiltinDocumentProperties("Subject") = Range("E12")
ActiveWorkbook.BuiltinDocumentProperties("Author").Value = Range("E13")
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
Call DateieigenschaftSchreiben
End Sub
Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call DateieigenschaftSchreiben
End Sub