Registriert seit: 10.10.2017
Version(en): 15.33
10.10.2017, 21:23
(Dieser Beitrag wurde zuletzt bearbeitet: 10.10.2017, 21:24 von 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
Registriert seit: 10.04.2014
Version(en): Office 2019
Hallo, wenn überhaupt, dann nur mit VBA...
Gruß Jörg
ich muss mich erst wieder ganz langsam heran robben. Also bitte ich um Nachsicht
"Wer immer tut, was er schon kann, bleibt immer das, was er schon ist." - Henry Ford
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
10.10.2017, 22:32
(Dieser Beitrag wurde zuletzt bearbeitet: 10.10.2017, 22:32 von GMG-CC.)
Gelöscht, weil nicht richtig gelesen ...
Ergänzung: Wenn die Ziffern Text sind, dann klappt es aber mit VBA
Beste Grüße
Günther
Excel-ist-sexy.de …schau doch mal rein!
Der Sicherheit meiner Daten wegen lade ich keine *.xlsm bzw. *.xlsb- Files mehr herunter! -> So geht's ohne!
Registriert seit: 17.04.2014
Version(en): MS Office 365(32)
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
