Lock-funktion funktioniert nicht :(
20.12.2012 10:33:29
Riccardo
ich habe einmal eine banale Frage. Ich habe einen Code geschrieben, der eine lock-funktion enthält. Im Normalfall hat das so auch immer funktioniert, aber aus irgendeinem Grund funktioniert das in folgendem Beispiel nicht:
If (Target.Address = "$H$6") Then
If (ActiveSheet.Range("H6").Value = "X") Then
ActiveSheet.Rows("7:7").Hidden = True
ActiveSheet.Range("H60").Value = "X" 'Setzt bei "Alarmierung ü CSTA-Paging" ein X
ActiveSheet.Range("H60").Locked = True
Else:
If (Target.Address = "$H$6" And ActiveSheet.Range("H6").Value = "") Then
ActiveSheet.Rows("7:7").Hidden = False
ActiveSheet.Columns("H:H").ClearContents
ActiveSheet.Range("H36").Value = 0
ActiveSheet.Range("H33").Value = 0
End If
End If
End If
Sobald ich die Zelle H60, in der dann ein X steht anwähle, verschwindet das X, obwohl ich die Zelle eigentlich gesperrt habe. Die Zelle wird in keinem anderen Kontext aufgerufen.Hat einer ggf. eine Idee, was da schief läuft?
VG
Riccardo