AW: Array in Zelle mit verschiedenen Farben?!
14.06.2006 16:36:30
Erich
Hallo Thomas,
nur zum Probieren und Spielen (auf einem leeren Blatt):
Sub FarbenInTextzelle()
Dim ss As Integer, zz As Long, ii As Integer, pp As Integer
Dim strQ(2) As String, strZ As String, arr
strQ(0) = "123 4567 890"
strQ(1) = "12 34 56 78 90"
strQ(2) = "1 2 3 4 5 6 7 8 9 0"
For ss = 0 To 2
strZ = Replace(strQ(ss), " ", "")
arr = Split(strQ(ss))
For zz = 1 To 57 - UBound(arr)
With Cells(zz, 2 * ss + 1)
If .NumberFormat = "@" Then .Value = strZ Else .Value = "'" & strZ
pp = 1
For ii = 0 To UBound(arr)
.Characters(pp, Len(arr(ii))).Font.ColorIndex = ii + zz - 1
pp = pp + Len(arr(ii))
Next ii
End With
Next zz
Next ss
Columns("A:E").AutoFit
End Sub
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort