Verketten mit unterschiedlichen Farben
12.11.2019 19:53:52
Steve
ich habe zwei Wertebereiche, die ich mit Verketten in einem dritten Bereich anzeigen lasse.
in einer Zelle in Bereich 1 steht z.B. AB
in einer Telle in Bereich 2 steht z.B. CDE
in diesem dritten Bereich steht dann z.B. ABCDE
dieses "ABCDE" soll nun die Schrift entsprechend eingefärbt werden, je nachdem aus welchem Bereich die Zeichenfolge kommt.
Sub FarbeZusammenfassung()
'Bereich 1 = rot
'Bereich 2 = blau
Dim rngC As Range, s As String, t As String
Application.ScreenUpdating = False
For Each rngC In Range("L11:AP17")
s = rngC.Value
t = Cells(rngC.Row + 212, rngC.Column).Value
If Len(s) > 0 Then
For i = 1 To Len(s)
Select Case Left(s, i)
Case "A":
If Left(t, i) = "" Then
rngC.Characters(i, 1).Font.Color = RGB(255, 0, 0)
Else
rngC.Characters(i, 1).Font.Color = RGB(110, 180, 255)
End If
Case "B":
If Left(t, i) = "" Then
rngC.Characters(i, 1).Font.Color = RGB(255, 0, 0)
Else
rngC.Characters(i, 1).Font.Color = RGB(110, 180, 255)
End If
Case "C":
If Left(t, i) = "" Then
rngC.Characters(i, 1).Font.Color = RGB(255, 0, 0)
Else
rngC.Characters(i, 1).Font.Color = RGB(110, 180, 255)
End If
Case "D":
If Left(t, i) = "" Then
rngC.Characters(i, 1).Font.Color = RGB(255, 0, 0)
Else
rngC.Characters(i, 1).Font.Color = RGB(110, 180, 255)
End If
Case "E":
If Left(t, i) = "" Then
rngC.Characters(i, 1).Font.Color = RGB(255, 0, 0)
Else
rngC.Characters(i, 1).Font.Color = RGB(110, 180, 255)
End If
End Select
Next i
End If
Next rngC
End Sub
mein Problem ist nun dass excel zwar richtig einfärbt, wenn Verketten nur den Wert aus Bereich 1 oder 2 enthält.
besteht der Wert aus dem Zellwert aus Bereich 1 und Bereich 2 dann färbt er mir dass alles in blau.
vllt hat einer von euch eine Idee?
Danke im Vorraus