Kommentare an Zelle anfügen/ Änderungen protokoll.
17.11.2017 17:19:23
Andy
ich habe foglendes Problem... Ich gebe Änderungen mit Hilfe nachfolgendem VBA Skript als Kommentar der jeweiligen Zelle bei. Das Problem ist, dass ich in diesem Feld jeweils ein Dropdownmenü habe. Dort kann ich die Buchstaben U K und F auswählen. Wähle ich aus der Dropdownliste aus, funktioniert das VBA auch super. Wenn ich aber mit der Tastatur einen Buchstaben zb U auswähle und mit den Pfeiltasten weiterspringe, dann wird das U nicht protokolliert.
Wo liegt der Fehler:=
Private Sub Worksheet_Change(ByVal Target As Range)
Dim OldComment As String, NewComment As String, objCell As Range, OldCellValue As String
OldCellValue = ActiveCell.Text
If Target.Cells.Count > 1 Then Exit Sub
NewComment = "Geändert am " & Now() & " von " & Environ("UserName") & ", Historie: " & _
OldCellValue
If Target.Comment Is Nothing Then
Target.AddComment NewComment
Else
OldComment = Target.Comment.Text
Target.Comment.Text NewComment & vbLf & OldComment
End If
Target.Comment.Shape.TextFrame.AutoSize = True
Target.Comment.Visible = True
DoEvents
Target.Comment.Visible = False
End Sub