bin, was Excel betrifft, noch ziemlich in der Kinderschuhen
möchte folgende Bedingungen verknüpfen, kriege es aber nicht hin:
Private Sub Worksheet_sperren()
Dim Wks As Worksheet
Set Wks = ActiveSheet
If Target.Address = "$C$25" Then
If Target = "CLOSED" Then
Range("D25:D26:D27:E25:E26:E27").Locked = True
Else
Range("D25:D26:D27:E25:E26:E27").Locked = False
End If
If Target.Address = "$F$25" Then
If Target = "CLOSED" Then
Range("G25:G26:G27:H25:H26:H27").Locked = True
Else
Range("G25:G26:G27:H25:H26:H27").Locked = False
End If
usw.
End If
End Sub
es liegt am verknüpfen, denn nur mit einer Bedingung läuft's:
Private Sub Worksheet_sperren()
Dim Wks As Worksheet
Set Wks = ActiveSheet
If Target.Address = "$C$25" Then
If Target = "CLOSED" Then
Range("D25:D26:D27:E25:E26:E27").Locked = True
Else
Range("D25:D26:D27:E25:E26:E27").Locked = False
End If
End If
End Sub
Vielen Dank für Eure Hilfe!MfG, Fritz