Hallo zusammen,
ich würde die Funktion gerne auf 2-3 einzelne Spalten beschränken?
Wie kann ich das hinbekommen?
01.Private Sub Worksheet_Change(ByVal target As Range)
02.'** Dimensionierung der Variablen
03.Dim strAlt As String
04.Dim strNeu2 As String
05.'** Errorhandling
06.On Error Resume Next
07.'** Alten Kommentar auslesen
08.strAlt = target.Comment.Text
09.'** Neuen Kommentar hinzufügen
10.If strAlt = "" Then target.AddComment
11.'** Alten Kommentar um neuen Eintrag erweitern
12.strNeu2 = vbLf & Application.UserName & " " & Date & "/" & Time & " " & target.Value & strAlt
13.target.Comment.Text strNeu2
14'** Errorhandling zurücksetzen
15.On Error Resume Next
16.End Sub
Quelle: http://www.excel-inside.de/vba-loesungen/ereignisse/439-zelleintraege-automatisch-kommentieren |