Blattregister färben
15.09.2022 14:38:21
Ramadani
Situation:
In den Zellen B41 bis AG41 (mehrere Blattregister) befinden sich die Begriffe "I.O" oder "n.I.O", je nachdem ob einige Zellen darüber übereinstimmen oder nicht.
Problem:
Die Farbe des Blattregisters soll sich grün färben wenn in dem Bereich B41 bis AG41 überall "I.O" steht bzw. rot wenn irgendwo in dem Bereich "n.I.O" steht.
aktueller Code (eingefügt im Code des entsprechenden Blattregisters):
Private Sub Worksheet_Change(ByVal Target As Range)
'Updateby Extendoffice
If Target.Address = "$B$41:$AG$41" Then
Select Case Target.Value
Case "n.I.O"
Me.Tab.Color = vbRed
Case "I.O"
Me.Tab.Color = vbGreen
End Select
End If
End Sub
Bin auch offen über einen neuen Code der funktioniert :D
Für eure Mühe und Hilfe danke ich euch herzlichst im Voraus :)
Gruss
Hixi