Audittrail als Kommentar

Posted by Excel Community on 5. September 2024 at 12:15

Einzufügen in das Tabellenblatt.



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

Quelle: https://www.excel-inside.de/beispiele_vba/vba-ereignisse/439-zelleintraege-automatisch-kommentieren

Excel Community replied 4 months, 2 weeks aktiv. 1 Member · 0 Replies

0 Replies

Sorry, there were no replies found.