Ich weiß mal wieder nicht weiter :-(.
In dem unten aufgezeigtem Code habe ich folgendes eingebaut.
If Not (Intersect(Range("G:G"), Target) Is Nothing) Then Target.Offset(0, -4) = Now()
Wenn in einem Feld der Spalte G Zeichen eingegeben werden, wird in der Spalte C derselben Zeile das aktuelle Datum ausgegeben und "eingefroren".
Nun möchte ich, dass das Datum erlischt, wenn das entsprechende Feld der Spalte G geleert wird.
Hat jemand ein Beispiel zur Hand?
Vielen Dank für die bisher geleistete Hilfe.
Werner
Private Sub Worksheet_Change(ByVal Target As Range)
Dim iCalc As Integer
If Not (Intersect(Range("g:g"), Target) Is Nothing) Then Target.Offset(0, -4) = Now()
If Not Intersect(Range("B2:B" & Rows.Count), Target) Is Nothing Then
With Application
iCalc = .Calculation
.ScreenUpdating = False
.Calculation = xlCalculationManual
.EnableEvents = False
With ActiveSheet
.Protect Password:="Dein Kennwort", UserInterfaceOnly:=True
With .UsedRange
With .Columns(.Columns.Count).Offset(0, 1)
.FormulaR1C1 = "=IF(ROW()>3,IF(RC2=""+"",1,IF(RC2=""-"",3,IF(EXACT(RC2," _
_
_
"o""),2,""""))),-1)"
End With
End With
With .UsedRange
.Sort Key1:=.Cells(2, .Columns.Count), Order1:=xlAscending, _
key2:=.Cells(2, 3), Order2:=xlAscending, _
Header:=xlYes
.Columns(.Columns.Count).EntireColumn.Delete
End With
End With
.Calculation = iCalc
.ScreenUpdating = True
.EnableEvents = True
End With
End If
End Sub