Supportnet / Forum / Tabellenkalkulation
Excel Dokumentation von Zell-Änderungen
Frage
Hallo,
für einige Excel Tabellen wäre es mir sehr hilfreich, wenn
Änderungen in Zellen Dokumentiert werden könnten
und zwar:
in A1 steht 23, user Supergau schreibt 45 hinein, danach
heros 27 usw.
jetzt würde ich gerne, unten auf der selben seite und/oder
auf einem anderen blatt sehen, wer wann und besonders das
was und in welcher Zelle geändert hat
Das wer und wann ist kein größeres problem, aber das was und in welcher zelle ist da schon größer insbesondere es soll unten in der selben reihe wie user und Zeit aufgeführt werden.
Es soll also möglichts eine komplette Änderungsarchivierung sein!
Ich hoffe, das funzt!
Danke für evtl. Hilfsstellungen
Antwort 1 von fedjo
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
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
Antwort 2 von coros
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.
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.