Problem:
ich möchte einen Tabellen Bereich A500 bis F500 nach Übereinstimmungen überprüfen lassen! Z.b. stehen in den Zellen kurze Sätze und ich möchte das mir Excel alle >@ Vielen Dank für eure Hilfe
Sub Colo()
For a = 1 To 6 'A-F
For n = 1 To Len(Cells(500, a))
If Mid(Cells(500, a), n, 1) = "@" Then _
Cells(500, a).Characters(n, 1).Font.ColorIndex = 40
Next n
Next a
End Sub