Hallo zusammen,
ich habe folgenden Code:
If Not Intersect(Target, Range("E4:E32")) Is Nothing And Target.Count = 1 Then
If Target.Offset(, -3) = "" Then
Target.Offset(, -3) = Time
Target.Locked = True
Target.FormulaHidden = False
If Target.Offset(, -4) = "" Then
Target.Offset(, -4) = Date
Target.Locked = True
Target.FormulaHidden = False
End If
End If
End If
Es soll bei Eingabe im Bereich E4:E32 das Datum und Die Uhrzeit in der jeweiligen Zeile gesetzt und die Zelle dann anschließend gesperrt werden.
Ich bekomme aber die Fehlermeldung:
Die Locked-Eigenschaften des Range-Objektes kann nicht festgelegt werden.
Was ist falsch ?
Gruß
Erik