Kommentar Funktion mit Zeitfunktion

[mellow]

Guten Morgen,

gibt es die Möglichkeit das in Spalte B bei eingabe einer 3 automatisch ein Kommentar mit dem aktuellen Datum und Uhrzeit eingefügt wird ?
wichtig hierfür, das Datum und Uhrzeit sollen statisch sein.

vielen Dank

Gruß Mellow

[RPP63]

Moin!
Nur mittels VBA.
Darfst Du das nutzen?

Gruß Ralf

[mellow]

Hi, ja das wäre das kleinste Problem

Gruss mellow

[RPP63]

Na dann:

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 = 3 Then
      With .AddComment
        .Text CStr(Now)
        .Shape.TextFrame.AutoSize = True
      End With
    End If
  End If
End With
End Sub

[mellow]

Guten morgen,

kann man den Code evtl. so anpassen ?

das er bei Zahl  2 "Unterwegs Datum Uhrzeit"
und bei der Zahl 3 "Erledigt Datum Uhrzeit"

anzeigt ?

vielen Dank

Gruß mellow

[Fuzzy62]

Moin, das Makro erweitern.

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