Mehrere Zellen mit Bedingung färben
28.06.2018 14:18:20
Tim
Ich habe ein Programm welches mir eine Zelle die ein bestimmtes Wort enthält färbt.
Nun möchte ich aber nicht das nur die Zelle welche das Wort enthält gefärbt wird sondern die alle Zellen in dieser Spalte von C bis I geht sowas ?
Hier noch mein aktueller Code:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Zelle As Range, Bereich As Range
Set Bereich = Range("C3:C123")
For Each Zelle In Bereich
Select Case Zelle.Value
Case "Band1":
Zelle.Interior.ColorIndex = 6
Case "Band2":
Zelle.Interior.ColorIndex = 4
Case "Band3":
Zelle.Interior.ColorIndex = 53
Case Else
Zelle.Interior.ColorIndex = xlNone
End Select
Next Zelle
End Sub
Anzeige