ich möchte in Spalte A jeden zweiten Zellenwert von Zeichen 3 bis 5 farblich hervorheben.
geht das?
Gruß
Michael
Sub test()
Dim Zelle As Range
For Each Zelle In Columns(1).SpecialCells(xlCellTypeConstants, 2)
With Zelle
Select Case Len(.Value)
Case Is 12
Case Is 30
.Characters(3, 4).Font.Color = vbRed
Case Else
.Characters(11, 6).Font.Color = vbGreen
End Select
End With
Next
End Sub