AW: Wenn Inhalt in Zelle dann andere Zelle entsperren
14.10.2014 17:02:39
Sebastian
Hallo zusammen,
Steffi hat mir bei meinem oben genannten Problem sehr geholfen. Nun habe ich vor den ganzen Code zu erweitern, wodurch er wesentlich umfangreicher wird.
Dies ist mein bisheriger Code auf dem Blatt.
Private Sub Worksheet_Change(ByVal Target As Range)
ActiveSheet.Unprotect "Passwort"
If Range("E9").Value = "sonstiges" Then Range("F9").Locked = False Else Range("F9").Locked = _
True
If Range("E9").Value = "sonstiges" Then Range("F9").Interior.Color = 49407 Else Range("F9"). _
Interior.Color = RGB(255, 255, 255)
If Range("E9").Value = "sonstiges" Then Range("F9").Font.Color = RGB(0, 0, 0) Else Range("F9"). _
Font.Color = RGB(255, 255, 255)
Dim AnzahlPlus As Long
Dim Zähl As Long
With ThisWorkbook.Sheets("Artikelstammdaten")
AnzahlPlus = Len(.Range("E9") & .Range("F9")) - Len(Replace(.Range("E9") & .Range("F9"), "+" _
, ""))
If AnzahlPlus 0 Then
.Range("B11:B17").Font.Color = RGB(255, 255, 255)
For Zähl = 0 To AnzahlPlus
.Cells(11 + (2 * (Zähl)), 2).Font.Color = RGB(0, 0, 0)
Next Zähl
Else
.Range("B11:B17").Font.Color = RGB(255, 255, 255)
End If
End With
ActiveSheet.Protect "Passwort"
End Sub
Ich möchte desweitern einbringen, das entsprechend noch: Schriftfarbe, Zellenfarbe und Zellenfreigabe von C11 bis C17 in das +-Zählen eingebunden wird. Dann sollte noch eingebunden werden, dass wenn in den Zellen E9 und F9 kein + oder bei den + gespiegelt dabei steht, die oben genannten Auswirkungen nur auf die Zelle B11 und C11 anzuwenden sind.
MfG Sebastian