Automatischer Change Log Spalte aussuche
08.06.2020 12:26:22
Rapha
ich habe einen Code der mir bei Änderung des gesammten Tabellenblatts, diese Änderung in Kommentarfenster tracked und eine Historie abbildet. Ich möchte das Makro aber nur für speziellen Spalten also bspw. Spalte d und e haben. Bei allen anderen sollen keine Änderungen in den Kommentarfenster getracked werden.
Wäre über Hilfe sehr dankbar.
Viele Grüße
Hier der Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim singlecell As Range
If Target.Cells.CountLarge = 100 Then Exit Sub
For Each singlecell In Target
If singlecell.Comment Is Nothing Then
singlecell.AddComment Now & " - " _
& "New Value: " _
& singlecell.Value & " - " _
& Environ("username") & " -" _
& " changed the value from a NULL value."
Else
Target.Comment.Text _
vbNewLine & Now & " - " _
& "Value Changed to: " _
& Target.Value & " - By: " _
& Environ("Username") & " (|:-)" _
, Len(Target.Comment.Text) + 1 _
, False
End If
singlecell.Comment.Shape.TextFrame.AutoSize = True
Next singlecell
End Sub