Protokoll
20.02.2019 11:42:15
Kathrin
kann mir vielleicht jemand helfen. Ich möchte gerne ein Protokoll zur Nachverfolgung von Änderungen haben. Da habe ich diesen Code gefunden, welcher auch sehr gut funktioniert. Diesen wollter ich mit diesen Zeilen
.Cells(ErsteFreieZeile, 8) = Cells(ActiveCell.Row - 1, 2).Value
.Cells(ErsteFreieZeile, 9) = Cells(ActiveCell.Row - 1, 1).Value
erweitern. Da immer wieder Zeieln dazwischen eigefügt werden, wollte ich das er zusätzlich den Text, welcher in Spalte A und B steht mit übernimmt. Beim Eintragen von Werten fuktionert es, aber wenn ich Werte entferne, dann nimmt er den Wert, welcher eine Zeile oberhalb steht.
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim ErsteFreieZeile As Long
Dim AlterWert As Variant, NeuerWert As Variant
Dim rngNeuSel As Range
If Target.Count > 1 Then Exit Sub
If Sh.Name = "Protokoll" Then Exit Sub
If Intersect(Target, Sh.Range("A9:Q550")) Is Nothing Then Exit Sub
'Ereignisbehandlung ausschalten:
Application.EnableEvents = False
'Zwischenspeichern des neuen Wertes und der neuen Zellmarkierung
NeuerWert = Target.Value
Set rngNeuSel = Selection
'Rückgängigmachen der letzten Aktion (=Zellwertänderung und Zellmarkierung):
Application.Undo 'Gruß Kathrin