Makro bei Zelländerung auslösen funktioniert nicht
06.02.2018 08:27:51
Lars
Ich habe ein Makro, welches den Inhalt aus Zelle B1 zum Titel macht. Manuell ausgelöst funktioniert das super. Ich hätte es aber nun gerne so realisiert, dass das Makro automatisch ausgelöst wird, wenn sich ebendieser Inhalt in B1 ändert.
Um folgendes Makro handelt es sich:
Sub Titel()
Dim wbkprop As Object
Set wbkprop = ActiveWorkbook.BuiltinDocumentProperties
wbkprop("Title") = ActiveSheet.Cells(1, 2)
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Call Titel
End If
End Sub
MfG Lars
Anzeige