Uhrzeit nach Wenn-Abfrage automatisch eintragen
15.01.2014 14:59:00
GP
ich möchte automatisch die Uhrzeit nach nach einer Wenn-Abfrage eintragen und einfrieren.
Folgender Code wird verwendet:
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("C1:C100")) Is Nothing Then Exit Sub
If Target.Value "ok" Then
Target.Offset(0, 1).Value = Date
Else
Target.Offset(0, 1).ClearContents
End If
End Sub
Werteeingaben erfolgen in A1:A10. Stimmen diese mit B1:B10 überein, erfolgt über eine Wenn-Abfrage [=WENN(A1=B1;"ok";"falsch")]das Ergebnis ok oder falsch in C1:C10.
Bei ok soll automatisch die aktuelle Uhrzeit in der Zelle rechts daneben (D1:D10) erscheinen und sich nicht mehr verändern.
Der beschriebene Code funktioniert leider nur, wenn manuel im Zellenbereich C1:C10 geändert wird. Was muss ich verändern, damit es mit der Wenn-Abfrage auch funktioniert?