Eingaben in Tabellenblatt protokollieren

Die folgende Lösung zeigt, wie Sie Eingaben in ein Tabellenblatt protokollieren können. Zum Protokollieren, müssen Sie die Werte nur auf ein eigenes Tabellenblatt schreiben, was im vorgestellten Beispiel noch nicht stattfindet. Hier werden einfach die alten und neuen Werte über eine Messagebox ausgegeben. Das übertragen in ein Protokoll-Sheet sollte damit problemlos funktionieren.

Damit die Protokollierung funktioniert, müssen Sie die folgenden Makros auf das Tabellenblatt hinterlegen, welches protokolliert bzw. überwacht werden soll.

Public InhaltAlt
 
 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 '** Wert vor Änderung auslesen
 InhaltAlt = Target.Value
 End Sub
 


 Private Sub Worksheet_Change(ByVal Target As Range)
 '** Änderungen protokollieren
 Dim InhaltNeu
 
 '** Wert nach Änderung auslesen
 InhaltNeu = Target.Value
 
 '** Ausgabe Wert Alt und Neu
 MsgBox "Alt: " & InhaltAlt
 MsgBox "Neu: " & InhaltNeu
 
 End Sub

Drucken