Ich habe mal wieder ein kleines Problemchen bei einem Makro.
Ich habe eine Tabelle, in deren Zellen via Makro ein Kommentar eingefügt werden soll, wenn sich der Zellwert ändert.
Dazu nutze ich folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.NoteText = "" Then
Target.NoteText Text:=Date & ": " & Target.Value
Else
Target.NoteText Text:=Target.NoteText & Chr(10) & Date & ": " & Target.Value
End If
End Sub
Das funktioniert auch soweit ganz gut, allerdings nur bei Werten, die manuell geändert werden. Ich möchte diese Funktion aber ausführen, wenn sich Zellwerte durch eine Neuberechnung der Formeln ändern. Zusätzlich betrifft dies eine ganze Menge an Zellen, bei denen der Kommentar eingefügt werden soll...
Danke im Voraus!