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
Hallo, wenn überhaupt, dann nur mit VBA...
Gelöscht, weil nicht richtig gelesen ...
Ergänzung: Wenn die Ziffern Text sind, dann klappt es aber mit VBA
Hallo Valentin,
(10.10.2017, 21:23)schreinerbub schrieb: [ -> ]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