Hab ein kleines Problem! Hab unter "Einfügen-Namen-definieren..." mehrere Bereiche in einem Tabellenblatt kreiert! Jetzt wollte ich diese in VBA bzgl bedingter Formatierung ansprechen! Das klappt bei zwei Bereichen, aber sobald ein driter (4.,5,...) hinzukommt, gehts leider nicht mehr! Muss ich da im Code was umstellen, um den erweitern zu können?
Hab mal einen Auszug des Codes angehängt mit zwei Bereichen (A,B)! Die anderen Bereiche wären C, D, E usw.!
Wäre nett, wenn mir jemand helfen könnte!
Danke
Private Sub Worksheet_Change(ByVal Target As Range)
Dim RaBereich As Range, RaZelle As Range
Set RaBereich = Application.Union(Range("A"), Range("B"))
For Each RaZelle In Range(Target.Address)
If Not Intersect(RaZelle, RaBereich) Is Nothing Then
With RaZelle
Select Case (.Value)
Case "1"
.Interior.ColorIndex = 16
.Font.ColorIndex = 16
Case "2"
.Interior.ColorIndex = 29
.Font.ColorIndex = 29
.
.
.