am besten in der Option Bedingte Formatierung (das die Zelle sich also verfärbt)
Dim I As Integer
Dim ergebnis As Boolean
Dim A As String
Dim B As String
For I = 1 To 50
A = Worksheets("tabelle1").Cells(I, 1)
B = "Aut"
If InStr(1, A, B, vbTextCompare) > 0 And Mid(A, 4, 1) "o" Then
ergebnis = True
End If
Next
Dim I As Integer
Dim ergebnis As Boolean
Dim A As String
Dim B As String
For I = 1 To 50
A = Worksheets("tabelle1").Cells(I, 1)
B = "Aut"
If InStr(1, A, B, vbTextCompare) > 0 And Mid(A, 4, 1) "o" Then
ergebnis = True
Worksheets("tabelle1").Cells(I, 1).Interior.Color = 255
End If
Next
End Sub