Änderungshistorie protokollieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hey Thorsten,
nicht anderes macht die Standard Funktion bei Excel auch.
Es geht auch nur darum, zu erkennen von wo aus die Änderungen zu welchem Zeitpunkt getätigt wurden. und natürlich was genau geändert wurde.
(von 3,16 auf neu 2,16 zum Beispiel)
Ich möchte einfach sehen, ob zum Beispiel jemand im Nachgang die Daten evtl. verändert hat und wenn ja wie, wann und wo.
Damit man gezielt nach haken kann, warum die Werte verändert wurden, um Manipulation der Daten zu vermeiden, nicht um jemand zu überwachen.
Das macht mit einer Prüfkarte auch keinen Sinn.
Der Hintergrund ist folgender:
Wir haben bis Dato immer auf Papier mit Unterschrift Mitarbeiter die Daten erfasst.
Nun wollen wir mal ein bisschen in die Gegenwart und die Daten per Excel am Pc erfassen.
Die Eingaben werden durch den User sowieso personalisiert mit Name, Uhrzeit und Datum.
Jetzt kam aber von meinem Kollegen der Einwand, das die Daten ja Manipuliert werden könnten und das war vorher nicht der Fall,
da Handschriftliche Eintragungen gemacht wurden.
Nun möchte Ich Ihm den Wind aus dem Segel nehmen und die Änderungen Tracken um genau dem gegen wirken zu können.
Wie gesagt ist das Standartmäßig ja schon in Excel vorgesehen aber eben nicht wenn die Datei Schreibgeschützt ist.
Und noch eine Anmerkung, der PC ist mit einer Sammellizenz belegt, was den einzelnen User sowieso nicht wirklich erkennt.
Dies würde dann über die zeit und Datum geschähen.
(Es sei den ich oder mein Kollege macht eine Änderung.)
Gruß
Bernhard

Private Sub Worksheet_Change(ByVal Target As Range) If Not Bo Then With Sheets("Protokoll") lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(lr, 1) = Now .Cells(lr, 2) = Target.Row .Cells(lr, Target.Column + 2) = Target End With End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If IsEmpty(Target) Then Bo = True Else Bo = False End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range) If IsEmpty(Target) Then Bo = False Else Bo = True If Bo Then lr = Sheets("Protokoll").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Protokoll").Cells(lr, "O") = Join(Application.Transpose(Application.Transpose(Range(Cells(Target.Row, 1), Cells(Target.Row, 12)))), "|") End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Not Bo Then With Sheets("Protokoll") lr = .Cells(Rows.Count, 1).End(xlUp).Row + 1 .Cells(lr, 1) = Now .Cells(lr, 2) = Target.Row .Cells(lr, Target.Column + 2) = Target End With End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If IsEmpty(Target) Then Bo = False Else Bo = True If Bo Then lr = Sheets("Protokoll").Cells(Rows.Count, 1).End(xlUp).Row + 1 Sheets("Protokoll").Cells(lr, "O") = Join(Application.Transpose(Application.Transpose(Range(Cells(Target.Row, 1), Cells(Target.Row, 12)))), " | ") End If End Sub

Beliebteste Forumthreads (12 Monate)

Änderungshistorie protokollieren

24 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

24
Beiträge zum Forumthread

Beiträge zu diesem Forumthread