@Hajo-locked Eigenschaft
28.12.2008 00:06:46
Steffen
ich habs ausprobiert ,funktioniert tadellos...
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Range("A1") 0 Then Range("A2:A3") = Locked
End Sub
..läuft genauso wie :
If Range("A1") 0 Then Range("A2:A3").ClearContents
Gruß steffen
End Sub