Excel 8-stellige Zahl automatisch einfärben

[schreinerbub]

Hallo zusammen,

ich habe eine lange Liste mit 8-stelligen Zahlen.
Die erste Ziffer soll rot sein
Die zweite und dritte soll grün sein
Die vierte soll blau sein
usw...

Die Farben sind ja egal, mich interessiert, ob sowas möglich ist, einzustellen.
Ich will also eine 8-stellige Zahl in eine Zelle eintragen und die Farben werden automatisch so gemacht.

DANKE!!

Grüße, Valentin

[Jockel]

Hallo, wenn überhaupt, dann nur mit VBA...

[GMG-CC]

Gelöscht, weil nicht richtig gelesen ...
Ergänzung: Wenn die Ziffern Text sind, dann klappt es aber mit VBA

[Kuwer]

Hallo Valentin,

Ich will also eine 8-stellige Zahl in eine Zelle eintragen und die Farben werden automatisch so gemacht.

füge folgenden Code in das schon vorhandene VBA-Modul des entsprechenden Tabellenblattes ein (Rechtsklick auf Tabellenreiter - Code anzeigen):

' **************************************************************
'  Modul:  Tabelle2  Typ = Element der Mappe(Sheet, Workbook, ...)
' **************************************************************

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim i As Long
 If Target.Cells.Count = 1 Then
   If Len(Target.Value) = 8 And IsNumeric(Target.Value) Then
     On Error Resume Next
     Application.EnableEvents = False
     Target.Value = "'" & Target.Value
     Target.Characters(1, 1).Font.ColorIndex = 3
     Target.Characters(2, 2).Font.ColorIndex = 4
     Target.Characters(4, 1).Font.ColorIndex = 5
     Target.Characters(5, 2).Font.ColorIndex = 6
     Target.Characters(7, 1).Font.ColorIndex = 7
     Target.Characters(8, 1).Font.ColorIndex = 8
     Application.EnableEvents = True
     On Error GoTo 0
   End If
 End If
End Sub

Gruß Uwe