CASE mit 2 Bereichen
Heinz
Ich habe im unteren Bereich die CASE Anwendung für C3:AI154
Nun möchte ich zusätzlich noch für A3:B154 eine CASE Anwendung hinzufügen.
Dabei sollte wennn zB. in B10 "Test" steht
.Interior.ColorIndex = 46
.Font.ColorIndex = 2
das diese auch für A10 angewendet wird.
Könnte mir dazu bitte jemand helfen ?
Gruß
Heinz
Sub Worksheet_Change(ByVal Target As Range)
Dim Kal_Bereich As Range, Kal_Cell As Range
Set Kal_Bereich = Range("C3:AI154") 'Bereich in dem was geändert wird
Set Kal_Bereich = Intersect(Kal_Bereich, Range(Target.Address))
If Kal_Bereich Is Nothing Then Exit Sub
For Each Kal_Cell In Kal_Bereich
With Range(Kal_Cell.Address, Kal_Cell.Offset(0, 0).Address)
Select Case UCase(Kal_Cell.Value) ' UMWANDLUNG DER Eingabe in Großbuchstaben für _
Formatierung
Case "B= BEZAHLT FREI"
.Interior.ColorIndex = 7 'rosa
.Font.ColorIndex = 2 'weiß
Case Else
.Interior.ColorIndex = 2
.Font.ColorIndex = 0
End Select
End With
Next Kal_Cell
End Sub