Worksheet_Change(ByVal -> reagiert nicht

[o0Julia0o]

hi,

ich möchte, wenn in C6 etwas geändert wird, dass dann in Y22 folgende Formel geschrieben wird: =Calc2!L87

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C6")) Is Nothing Then
        Worksheets("m").Range("Y22").FormulaLocal = "=" & "Calc2!L87"
End If
End Sub

Die Codezeile: Worksheets("m").Range("Y22").FormulaLocal = "=" & "Calc2!L87" funktioniert an sich. Jedoch wenn ich C6 ändere, dann wird sie nicht ausgeführt. Woran liegt das?

lieben Dank

Julia :)

[Kuwer]

Hallo Julia,

bei mir funktioniert es. Überprüfe vielleicht mal, ob der Code im richtigen Tabellenblattmodul liegt.

Gruß Uwe

[o0Julia0o]

Kurios. Jetzt funktioniert es. Ich hab die Datei geöffnet. Noch einmal getestet und geguckt ob es bei der richtigen Tabelle steht. Funktionierte nicht. Dann die gespeicherte Datei hochgeladen hier. Dann nochmal in der gespeicherten Datei getestet -> funktioniert. Wobei der Code auch noch in einem geondertem Modul stand. Diesen gelöscht, funktioniert noch immer. Dann die Originaldatei nochmal geöffnet - funktioniert. Eine Erklärung habe ich nicht. Trotzdem froh, dass es jetzt funktioniert. Ich dachte schon, ich hätte irgendwo in Exceleinstellungen etwas falsch eingestellt.