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