ich habe ein Code, der sobald in eine Zelle etwas eingetragen wird ein Datum in eine Spalte setzt.
Nun soll auch als Kommentar die Benutzername eingetragen werden und sollte etwas in der Zelle geändert werden ein neues Datum mit dem Benutzernamen darunter setzt.
Nur leider bekomme ich das mit dem Kommentar nicht hin.
Jemand ein Lösungsvorschlag? :-)
Hier mein Versuch
Private Sub Worksheet_Change(ByVal Target As Range)
'ActiveSheet.Unprotect Password:="123"
strComment = TextBox1
If Intersect(Target, Range("c3:c2142")) Is Nothing Then Exit Sub
If Target.Count > 1 Then Exit Sub 'Bearbeiten mehrerer Zeilen wird abgefangen
If Target = "" Then
Target.Offset(0, 7).ClearContents
Else:
Target.Offset(0, 7) = CDate(Format(Now, "dd.mm.yyyy"))
End If
If Target.Comment Is Nothing Then
strComment = TextBox1
.AddComment
With .Comment
.Text Text:=Application.UserName & ":" & Chr(10) & Format(Now, "DD" & "." & "MM" _
& "." & "YY") & strComment
.Shape.TextFrame.AutoSize = True
End With
Else
.Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & Chr(10) & _
Format(Now, "DD" & "." & "MM" & "." & "YY") & strComment
End If
End With
Next
'ActiveSheet.Protect Password:="123" ', UserInterfaceOnly:=True, DrawingObjects:=False, _
Contents:=True, Scenarios:=False
End Sub