Kommentar setzen bei bestimmten Daten
10.09.2014 18:52:25
Nico
Hi
ich habe hier einen Code der ein Kommentar setzt wenn ein "A" in eine Zelle geschrieben wird. Wie kann ich den Code so umstellen das auch bei mehreren Werten ein Kommentar gesetzt wird. Zb. "A", "U", "K" usw.
mfg Nico
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range
If Not (Intersect(Target, Range(Columns(9), Columns(39))) Is Nothing) Then
For Each Zelle In Target
If Zelle.Column <= 39 Then
If Not Zelle.Value = "A" Then
If Not Zelle.Comment Is Nothing Then Zelle.Comment.Delete
Else
If Zelle.Comment Is Nothing Then _
Zelle.NoteText "Eingetragen am:" & vbLf & Format(Now, "DD.MM.YY - hh:mm:ss") & _
vbLf & "von:" & vbLf & Environ("Username")
End If
End If
Next
End If
End Sub