Diese Frage stellte ich gerstern abend ...
Hallo an alle,
in einer Datei, die in Monate aufgeteilt ist, werden in letzter Zeit im Inhalt (nur Text) Änderungen vorgenommen, die natürlich keiner gemacht hat.
Kann man auf einem gesonderten Blatt, für jeden Monat, die evt. Änderungen im Text dokumentieren und festhalten ?!?!
Wer es war / Datum / Uhrzeit / evt, was geändert wurde (stelle ich mir schwierig vor) ...
und bekam diese Antwort ...
Hallo Peter,
erstelle in deiner Arbeitsmappe eine Tabelle mit dem Namen "Protokoll" und füge im VB-Editor diesen Code in die Tabelle ein, die du überwachen willst:
Public OldValue
Private Sub Worksheet_Change(ByVal Target As Range)
'Spalte A = Datum
'Spalte B = Zeit
'Spalte C = ZellAdresse
'Spalte D = AlterWert
'Spalte E = Neuer Wert
'Spalte F = User
Dim Cr As Long
Cr = 65536
If Target.Value <> OldValue Then
If Worksheets("Protokoll").Cells(Cr, 1) = "" Then
Cr = Worksheets("Protokoll").Cells(Cr, 1).End(xlUp).Row + 1
End If
Worksheets("Protokoll").Cells(Cr, 1) = Format(Now(), "dd.mm.yyyy")
Worksheets("Protokoll").Cells(Cr, 2) = Format(Now(), "hh:mm")
Worksheets("Protokoll").Cells(Cr, 3) = Target.Address
Worksheets("Protokoll").Cells(Cr, 4) = OldValue
Worksheets("Protokoll").Cells(Cr, 5) = Target.Value
Worksheets("Protokoll").Cells(Cr, 6) = Application.Username 'von mir geändert
End If
End Sub
****************************************************************************************************
Ich habe alles so gemacht es funktioniert alles bis auf die Spalte D.
Alter Wert "OldValue" zeigt mir keinen Wert an, die Zelle bleibt immer leer.
?!?!?!?!
Gruß Peter