Bedingte Formatierung-Bezug auf den ersten Textt.

Private Sub Worksheet_Change(ByVal Target As Range)
Dim actCell As Range
Dim Bereich2 As Range
Set Bereich2 = Range("R4:R34")
Application.ScreenUpdating = False
For Each actCell In Bereich2
If Not Intersect(actCell, Bereich2) Is Nothing Then
Select Case actCell
Case "": actCell.Interior.ColorIndex = 0
End Select
If InStr(UCase(actCell), "A") Then actCell.Interior.ColorIndex = 45
End If
Next
Application.ScreenUpdating = True
End Sub