Ich hab ein kleines Problem, bei dem ich um eure Hilfe dankbar wäre.
ist das möglich nach Eingabe eines Wertes in eine Zelle soll die Werte als kommentar angezeigt werden?
Gruß
Ahmadian
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Target.Comment Is Nothing Then
Target.Comment.Text Target.Value
Else
Target.AddComment.Text Target.Value
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Left(Target.Address, 2) = "$G" Then
If Not Target.Comment Is Nothing Then
Target.Comment.Text CStr(Target.Value)
Else
Target.AddComment.Text CStr(Target.Value)
End If
End If
End Sub