Hallo Klaus,
ich glaube nicht, dass der Hinweis von Gast1445 ausreicht und schicke deshalb einen Vorschlag.
b = Array("s", 1, "h", 3, "d", 5, "c", 10)
s = 2 'Spalte
For z = 2 To 112 'Zeilen
For i = 0 To UBound(b) Step 2
p = InStr(2, Cells(z, s), b(i)) + 1
If p <> 1 Then
Do
DoEvents
With Cells(z, s).Characters(start:=p - 2, Length:=2).Font
.Name = "Arial"
.Size = 14
.ColorIndex = b(i + 1)
End With
p = InStr(p, Cells(z, s), b(i)) + 1
Loop Until p = 1
End If
Next
Next
Holger
|