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