die bedingte Formatierung über VBA funktioniert mit denm unten stehenden Code soweit einwandfrei.
Wenn ich jedoch aus einer anderen Datei Daten kopiere und deren Werte einfüge, wird die Formatierung nicht, oder falsch umgesetzt.
Könnt Ihr mir bitte weiterhelfen?
Danke und Gruß, Micha
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:OE202")) Is Nothing Then
With Target.Cells(1, 1)
Select Case .Value
Case "K", "k": Target.Interior.ColorIndex = 3
Case "G", "g": Target.Interior.ColorIndex = 50
Case "A", "a": Target.Interior.ColorIndex = 37
Case "U", "u": Target.Interior.ColorIndex = 43
Case "W", "w": Target.Interior.ColorIndex = 16
Case "W-", "w-": Target.Interior.ColorIndex = 7
Case "EZ", "ez", "Ez": Target.Interior.ColorIndex = 36
Case "SU", "su", "Su": Target.Interior.ColorIndex = 41
Case "": Target.Interior.ColorIndex = 2
End Select
End With
End If
End Sub