Kommentar

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim c As Range
On Error GoTo ERRHANDLER
Application.EnableEvents = False
For Each c In Target
With c
If .Comment Is Nothing Then .AddComment
.Comment.Text Text:=.Comment.Text & Chr(10) & Application.UserName & ": " & Date & " "  _
& Time
End With
Next c
ERRHANDLER:
Application.EnableEvents = True
End Sub

Er trägt bei jeder Veränderung in der Zelle den User das Datum und die Zeit als Kommentar ein. Der aktuellste Beitrag steht dabei am Ende, was auch gleichzeitig mein Problem darstellt, da der oft nicht mehr zu sehen ist, wenn die Zelle häufig geändert wurde. Wie müsste ich den Code modifizieren, wenn ich den aktuellsten Eintrag als ersten sehen möchte?
Vielen Dank im Voraus.
Gruss Gunnar