Kommentarfunktion mit Zeitstempel + Datumstempel

[mellow]

Moin Zusammen, 

könnte man diesen Code noch erweitern ? das wenn ich die 3 eingebe , Excel mit dann zusätzlich nur Datum in Spalte "A" einfügt. Das Datum soll aber sichtbar sein nicht als Kommentarfunktion.  

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 2 Then
        On Error Resume Next
        .Comment.Delete
        On Error GoTo 0
        If .Value = 2 Then
            With .AddComment
                .Text "Unterwegs " & CStr(Now)
                .Shape.TextFrame.AutoSize = True
            End With
         
        ElseIf .Value = 3 Then
            With .AddComment
                .Text "Erledigt" & CStr(Now)
                .Shape.TextFrame.AutoSize = True
            End With
        End If
    End If
End With
End Sub

 
Vielen Dank

Gruß mellow

[mellow]

Mahlzeit 

Ich hab jetzt einen Code der Funktioniert soweit, außer da wo "Date" steht, fehlt irgendwas. Das er mit nur das Datum anzeigt:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
With Target
    If .Column = 16 Then
        On Error Resume Next
        .Comment.Delete
        On Error GoTo 0
        If .Value = 1 Then
            With .AddComment
                .Text "Unterwegs " & CStr(Now)
                .Shape.TextFrame.AutoSize = True
            End With
         
        ElseIf .Value = 2 Then
            With .AddComment
                .Text "Erledigt" & CStr(Now)
                .Shape.TextFrame.AutoSize = True
            End With
        End If
    End If
End With

If InStr(Target.Address, ":") Then Exit Sub
'Bereich in Spalte P ist beliebig erweiterbar!
If Not Intersect(Target, Range("P3:P30000")) Is Nothing Then
   If Target.Value = 1 Then _
      Target.Offset(0, -15) = Date
   If Target.Value = 2 Then _
      Target.Offset(0, 1) = Date
   If Target.Value = 0 Then Target.Offset(0, 1) = ""
End If

Gruß mellow

[mellow]

Erledigt !! Hab es hinbekommen


Gruß mellow