Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 15:39:42
Exceltabelle daten per combobox zu word Datei
19.04.2024 14:04:05
PDF per VBA ausgeben - Seitenskalierung
19.04.2024 13:58:02
Set Worksheet geht im O365 aber im Excel 2016 nicht
19.04.2024 13:49:38
Per Kopfdruck als pdf speichern und Mail erstellen
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1180to1184
1180to1184
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

letzten 3 stellen andere Farbe

letzten 3 stellen andere Farbe
Dirk
Hallo Forum,
ich habe eine Spalte. In dieser Spalte sind verschiedene Werte drin.
Z.B.:
A1 ---> 12.256
A2 ---> 30.000
A3 ---> 154.236
A4 ---> 7.356.890
A5 ---> 2.450.000
A6 ---> 157.100
A7 ---> 25.169.355
u.s.w.
nun möchte ich gerne, dass immer die letzten 3 Stellen eine andere Farbe haben. Z.B. Blau
geht das überhaupt? Und wenn ja, kann mir da bitte einer helfen.
Vielen Dank
Gruß Dirk

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: letzten 3 stellen andere Farbe
09.10.2010 10:08:12
Hajo_Zi
Hallo Dirk,
sind es Eingaben oder Formeln? Bei Formeln geht es nicht.
Soll es nur für Eingaben sein? Oder auch für vorhandene?

AW: letzten 3 stellen andere Farbe
09.10.2010 10:18:54
Dirk
Hi Hajo,
es sind Eingaben, bzw vorhandene Eingaben.
AW: letzten 3 stellen andere Farbe
09.10.2010 10:31:45
Hajo_Zi
Hallo Dirk,
eine Frage habe ich vergessen, es ist Text? Bei Zahlen geht es nicht.
Gruß Hajo
AW: letzten 3 stellen andere Farbe
09.10.2010 10:45:19
Hajo_Zi
Hallo Dirk,
wie Karin schon geschrieben hat geht es nur für Text.
für vorhandene führe folgendes Makr aus 
Option Explicit
Sub Dirk()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 1)), Cells(Rows.Count, 1).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To LoLetzte
Cells(LoI, 1).Characters(Start:=Len(Cells(LoI, 1).Text) - 2, Length:=3).Font.Color =  _
255
Next LoI
End Sub
und für neue Eingaben, unter die Tabelle 
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
If Target.Column = 1 Then
Target.Characters(Start:=Len(Target.Text) - 2, Length:=3).Font.Color = 255
End If
End If
End Sub

Gruß Hajo
Anzeige
Danke euch. o.w.t.
09.10.2010 11:38:16
Dirk
AW: letzten 3 stellen andere Farbe
09.10.2010 10:31:38
Beverly
Hi Dirk,
das geht nur bei Text soweit ich weiß

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige