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
Und dieses Makro sollte eigentlich dafür sorgen, dass wenn sich B1 ändert automatisch "Titel" ausgeführt wird:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
Call Titel
End If
End Sub
Das funktioniert leider nicht. Kann mir jemand sagen, woran das liegt und ggf. das Makro abwandeln?MfG Lars