Protokollierung von Änderungen
28.09.2015 16:47:25
Änderungen
da mir bei meinem letzten Problem so gut geholfen wurde, hab ich mir gedacht, dass ich mich nochmal an euch wende :)
Ich habe einen VBA-Code "geschrieben", bzw. schreiben lassen, der es mir ermöglicht, die Änderungen in meiner Excel Tabelle protokollieren zu lassen.
Das ist der Code:
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("A1:AZ2000")) 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 'An sich funktioniert der Code einwandfrei. Das einzige was er nicht macht, bzw. was mir fehlt ist das Protokollieren mehrerer Zeilen, die man auswählt.
Also, wenn ich einen Wert ändere, bzw. ausschneide und irgendwo einfüge, wird dies im Protokoll angezeigt. Allerdings nicht, wenn ich mehrere Zeilen auswähle und irgendwo einfüge.
Kann mir da jemand helfen, meinen Code zu verändern, dass er wirklich JEDE Änderung in der Tabelle mit aufnimmt ?
Vielen Dank :)