Hallo MarSch ,
den folgenden Code in die Tabelle einfügen, von der die Änderungen jeder Zelle dokumentiert werden sollen.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(1, 0) = Now()
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(0, 1) = Application.UserName
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(0, 2) = Target.Address
Sheets("Tabelle2").Cells(Rows.Count, 1).End(xlUp).Offset(0, 3) = Target.Value
End Sub

In Tabelle2 dann dokumentiert:
A = Datum Uhrzeit B = Name C = Zelle D = Wert

Code in Tabelle2 einfügen zum Sortieren der Daten.

Option Explicit
Private Sub Worksheet_Activate()
Columns("A:D").Sort Key1:=Range("C1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

Gruß
fedjo

Hallo MarSch,

schau mal auf meiner HP www.excelbeispiele.de in der Rubrik Beispieldateien und dort dann in den Beispielen 63 und 94nach. Dort stelle ich dazu eine Beispieldatei zur Verfügung, die Dir sicherlich helfen wird.

Bei Fragen melde Dich.

MfG,
Oliver
_{Da hier der einzige Lohn für die Helfer eine Rückmeldung ist, wäre es nett, wenn Du}
^{ein Feedback abgeben könntest, ob der Lösungsvorschlag Dein Problem gelöst hat.}