Zellen farbig markieren ???

Hallo,
richtig, mit der bedingten Formatierung kannst du nur 3 Bedingungen berücksichtigen.
Also mußt du dir ein Makro schreiben, welches die Eingaben in den zu beobachtenden Zellen auswertet.
Ich hab mal eins zusammengebastelt, so wie ich deine Problembeschreibung verstanden habe -->

Private Sub Worksheet_Change(ByVal Target As Range)
Dim arr()
Dim arrLen As Integer
Dim Color As Integer
Dim i%
Dim rng As Range

    Set rng = Range("a1:d60")
    If Not Intersect(Target, rng) Is Nothing Then
        ' eine Zelle innerhalb des Bereiches wurde verändert

        If Target.Column = 3 Then
            ' wir sind in Spalte C

            Select Case Target.Row

                Case 14:
                        If Target.Value = "BF" Then
                            arrLen = 5
                            Color = 14
                            ReDim arr(arrLen)
                            arr = Array(4, 5, 7, 10, 16)
                        End If
                Case 25:
                        If Target.Value = "BA" Then
                            arrLen = 5
                            Color = 4
                            ReDim arr(arrLen)
                            arr = Array(7, 11, 14, 16, 20)
                        End If
                Case 36:
                        If Target.Value = "LT" Then
                            arrLen = 5
                            Color = 23
                            ReDim arr(arrLen)
                            arr = Array(6, 7, 11, 12, 21)
                        End If
                Case 50:
                        If Target.Value = "41" Then
                            arrLen = 3
                            Color = 11
                            ReDim arr(arrLen)
                            arr = Array(6, 9, 23)
                        End If

            End Select

            For i = 0 To (arrLen - 1)
                Cells(Target.Row, arr(i)).Interior.ColorIndex = Color
            Next

        End If

    End If

End Sub

Nun brauchst du nur noch ein Makro für das "Zurückfärben" der markierten Zellen bei Verlassen deines Bereiches A14:W2000. Dazu kannst du ja das Ereignis Worksheet_SelectionChange auswerten.

Viel Erfolg dabei!

Hallo Dino,

ich hoffe, dass Dir das Makro so gefällt. Allerdings werden jetzt alle farbigen Zellen im Bereich "A14:W200" entfärbt, wenn Du eine Zelle außerhalb dieses Bereiches anklickst.

Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim i As Long
If Not Intersect(Target, Range("A14:W2000")) Is Nothing Then
Application.ScreenUpdating = False
For i = 14 To 2000
Select Case Cells(i, 3).Value
Case "BR"
Range("D" & i & ",E" & i & ",G" & i & ",J" & i & ",P" & i).Interior.ColorIndex = 6
Case "BA"
Range("G" & i & ",K" & i & ",N" & i & ",P" & i & ",T" & i).Interior.ColorIndex = 6
Case "LT"
Range("F" & i & ",G" & i & ",K" & i & ",L" & i & ",U" & i).Interior.ColorIndex = 6
Case "41"
Range("F" & i & ",I" & i & ",W" & i).Interior.ColorIndex = 6
End Select
Next i
Application.ScreenUpdating = True
Else
Range("A14:W2000").Interior.ColorIndex = xlNone
End If
End Sub

Gruß WernerB.

Forumthread: Zellen farbig markieren ???

11
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial