Re: Zellbereich
15.10.2002 15:46:30
Andre B
Wie gesagt, hab schon alles erledigt, war wohl nicht ganz da,
war eigentlich nicht die große Problematik.Trotzdem danke für deine Hilfe.
Hab den Code jetzt fertig, interessenhalber und der Vollständigkeit zuliebe stell ich die komplette Sub rein:
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If [C1] = "Y" Then GoTo Ende2
Set Bereich = Range("B7:F59")
If Intersect(Target, Bereich) Is Nothing Then GoTo Ende ' Abbruch, wenn Aktion nicht im Zielbereich
ActiveSheet.Unprotect ("andre")
Cells.FormatConditions.Delete
Dim lngRow As Long
lngRow = ActiveCell.Row
Range(Cells(lngRow, 2), Cells(lngRow, 6)).FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=""iojöl89989k"""
Range(Cells(lngRow, 2), Cells(lngRow, 6)).FormatConditions(1).Interior.ColorIndex = 6
ActiveSheet.Protect ("andre")
Exit Sub
Ende:
If [C1] = "Y" Then GoTo Ende2
Set Bereich = Range("I7:L58")
If Intersect(Target, Bereich) Is Nothing Then Exit Sub ' Abbruch, wenn Aktion nicht im Zielbereich
ActiveSheet.Unprotect ("andre")
Cells.FormatConditions.Delete
Dim lngRow2 As Long
lngRow2 = ActiveCell.Row
Range(Cells(lngRow2, 9), Cells(lngRow2, 13)).FormatConditions.Add Type:=xlCellValue, Operator:=xlNotEqual, _
Formula1:="=""iojöl89989k"""
Range(Cells(lngRow2, 9), Cells(lngRow2, 13)).FormatConditions(1).Interior.ColorIndex = 6
ActiveSheet.Protect ("andre")
Ende2:
End Sub