Office: Durch Checkbox Zellen ausgrauen und sperren

Hallo zusammen,

ich hab mir eine checkbox gebastelt, die wenn sie aktiv ist 5 Zellen ausgrauen soll und auch sperren.
Alle Zellen werden ausgegraut aber nur die ersten 2 sind gesperrt, in die anderen kann ich noch weiter reinschreiben..ich kenn mich nicht sehr gut mit dem VBA-Syntax aus deswegen denke ich liegt es daran *frown.gif* oder auch vllt, weil die letzten 3 Zellen verbundene Zellen sind.

Würde jemand mal drüber schauen bitte?


Private Sub CheckBox1_Click()
If CheckBox1.Value = True Then
Range("AJ24").Interior.ColorIndex = 15
Range("AJ26").Interior.ColorIndex = 15
Range("AB9").Interior.ColorIndex = 15
Range("AB11").Interior.ColorIndex = 15
Range("K15").Interior.ColorIndex = 15
Else
Range("AJ24").Interior.ColorIndex = xlColorIndexNone
Range("AJ26").Interior.ColorIndex = xlColorIndexNone
Range("AB9:AF9").Interior.ColorIndex = xlColorIndexNone
Range("AB11:AF11").Interior.ColorIndex = xlColorIndexNone
Range("K15:M15").Interior.ColorIndex = xlColorIndexNone
End If
End Sub

----------------------------------------------------------------------------------------------------------------
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$AJ$24" Or _
Target.Address = "$AJ$26" Or _
Target.Address = "$AB$9:$AF$9" Or _
Target.Address = "$AB$11:$AF$11" Or _
Target.Address = "$K$15:$M$15" Then
If Target.Interior.ColorIndex = 15 Then Target.Offset(1, 0).Select
End If
End Sub


LG Linjada

:)

 

Hallo Linjada,

Private Sub CheckBox1_Click()
Range("AJ24,AJ26,AB9,AB11,K15").Interior.ColorIndex = IIf(CheckBox1, 15, -4142)
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AJ24,AJ26,AB9,AB11,K15")) Is Nothing Then
If Target(1, 1).Interior.ColorIndex = 15 Then
Application.EnableEvents = False
Target.Offset(1, 0).Select
Application.EnableEvents = True
End If
End If
End Sub




« Gruß Sepp »

 

*biggrin.gif* danke! Liebe Grüße an dich.