Registriert seit: 10.10.2017
Version(en): 15.33
10.10.2017, 22:23
(Dieser Beitrag wurde zuletzt bearbeitet: 10.10.2017, 22: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
stolzes Mitglied im ----Excel-Verein
Im Wort FEHLER steckt auch das Wort HELFER!
FEHLER helfen dir.
Nimm deine FEHLER an und lerne aus ihnen.
Wenn du es zulässt, dann werden sie dich stärken
Im Wort
Registriert seit: 28.05.2014
Version(en): 2013 / 2016
10.10.2017, 23:32
(Dieser Beitrag wurde zuletzt bearbeitet: 10.10.2017, 23: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, 22: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
