ich möchte eine Bedingte Formatierung mit Bezug auf den ersten Buchstaben eines Textes in einer Zelle
erreichen. In diesem Beispiel ist es der Buchstabe "A".
Wie muss der folgende Code verändert werden:
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
Danke für die Unterstützung !Gruß
Holger