Microsoft Excel

Herbers Excel/VBA-Archiv

Kommentar setzen bei bestimmten Daten

Betrifft: Kommentar setzen bei bestimmten Daten von: Nico
Geschrieben am: 10.09.2014 18:52:25

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

  

Betrifft: AW: Kommentar setzen bei bestimmten Daten von: Luschi
Geschrieben am: 10.09.2014 20:01:25

Hallo Nico,

so sollte es klappen:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Zelle As Range

'für alle Targets im Bereich: $I:$AM
If Not (Intersect(Target, Range(Columns(9), Columns(39))) Is Nothing) Then
   For Each Zelle In Target
       Select Case Zelle.Value
           Case "A", "K", "U"
              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
           Case Else
              If Not Zelle.Comment Is Nothing Then
                 Zelle.Comment.Delete
              End If
           End Select
       End If
   Next Zelle
End If

End Sub
Gruß von Luschi
aus klein-Paris


  

Betrifft: AW: Kommentar setzen bei bestimmten Daten von: Nico
Geschrieben am: 10.09.2014 21:23:50

Hi Luschi
danke für deine hilfe genau so sollte es sein. Vielen Dank.

mfg Nico


 

Beiträge aus den Excel-Beispielen zum Thema "Kommentar setzen bei bestimmten Daten"