Zelleinträge automatisch kommentieren
11.11.2022 11:49:14
Harald
ich habe im Netz folgenden Code gefunden:
Private Sub Worksheet_Change(ByVal target As Range)
'** Dimensionierung der Variablen
Dim strAlt As String
Dim strNeu2 As String
'** Errorhandling
On Error Resume Next
'** Alten Kommentar auslesen
strAlt = target.Comment.Text
'** Neuen Kommentar hinzufügen
If strAlt = "" Then target.AddComment
'** Alten Kommentar um neuen Eintrag erweitern
strNeu2 = vbLf & Application.UserName & " " & Date & "/" & Time & " " & target.Value & strAlt
target.Comment.Text strNeu2
'** Errorhandling zurücksetzen
On Error Resume Next
End Sub
Mit diesem Code wird derjenige als Kommentar in einer Zelle erfasst, der eine Änderung (inkl. der Löschung) an dieser vornimmt.
Markiere ich jetzt mehr als zwei Zellen zum Löschen, wird der Inhalt natürlich auch gelöscht, aber derjenige, der diese Aktion getätigt hat, wird im Kommentarfeld nicht erfasst.
Ist es schwierig, den Code dahingehend anzupassen?
Gruß
Harald
Anzeige