Änderungen im Kommentar mitschreiben

Hallo zusammen,
aber auf der Seite vom Hajo einen super Code gefunden, dieser schreibt mir Name Datum mit wenn in der Zelle was geändert wird.
Jetzt wäre mein Wunsch, das im Kommentar auch das miterfasst wird was sich ändert - also der kpl. Zelleninhalt.
Jetzt ist so:
neuer Eintrag - der Code schreibt in den Kommentar "Erstellung Name Datum Uhrzeit"
Änderung - der Code schreibt in den Kommentar "Änderung Name Datum Uhrzeit"
Wunsche wäre:
neuer Eintrag - der Code schreibt in den Kommentar "Erstellt Name Datum Uhrzeit" + Zelleninhalt
Änderung - der Code schreibt in den Kommentar "Änderung Name Datum Uhrzeit" + Zelleninhalt
Der Code von der Seite Hajo:


Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B15:B10000")) Is Nothing And Target.Count = 1 Then
With Target
If .Comment Is Nothing Then
.AddComment.Text Application.UserName & Chr(10) & Date & " " & Time & " Erstellung"
Else
.Comment.Text .Comment.Text & Chr(10) _
& Application.UserName & Chr(10) & Date & " " & Time & " Änderung"
End If
End With
End If
End Sub

Gruß Marcus

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B15:B10000")) Is Nothing And Target.Count = 1 Then With Target If .Comment Is Nothing Then .AddComment.Text Application.UserName & Chr(10) & Date & " " & Time & Target.text Else .Comment.Text .Comment.Text & Chr(10) _ & Application.UserName & Chr(10) & Date & " " & Time & Target.text End If End With End If End Sub

Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim objRange As Range, objCell As Range Set objRange = Intersect(Target, Range("B15:B10000")) If Not objRange Is Nothing Then For Each objCell In objRange With objCell If .Comment Is Nothing Then .AddComment.Text Application.UserName & vbLf & _ Format$(Now, "DD.MM.YYYY Hh:Nn:Ss") & " Erstellung" & vbLf & .Text Else .Comment.Text .Comment.Text & vbLf & Application.UserName & _ vbLf & Format$(Now, "DD.MM.YYYY Hh:Nn:Ss") & " Änderung" & vbLf & .Text .Comment.Shape.TextFrame.AutoSize = True End If End With Next Set objRange = Nothing End If End Sub

Beliebteste Forumthreads (12 Monate)

Änderungen im Kommentar mitschreiben

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Änderungen im Kommentar mitschreiben

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread