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
Moin!
Nur mittels VBA.
Darfst Du das nutzen?
Gruß Ralf
Hi, ja das wäre das kleinste Problem
Gruss mellow
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
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
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