Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

letzten 3 stellen andere Farbe

Forumthread: 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
Anzeige

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
Anzeige
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ß


;
Anzeige
Anzeige

Infobox / Tutorial

Letzte 3 Zeichen in Excel einfärben


Schritt-für-Schritt-Anleitung

Um die letzten 3 Zeichen einer Zelle in Excel einzufärben, kannst du VBA-Makros verwenden. Hier ist eine einfache Anleitung:

  1. Öffne den VBA-Editor:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Erstelle ein neues Modul:

    • Klicke mit der rechten Maustaste auf "VBAProject (deine Datei)", wähle "Einfügen" und dann "Modul".
  3. Füge den folgenden Code ein:

    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
  4. Führe das Makro aus:

    • Schließe den VBA-Editor, gehe zurück zu Excel, drücke ALT + F8, wähle das Makro "Dirk" und klicke auf "Ausführen".
  5. Für neue Eingaben:

    • Füge unter dem bestehenden Code den folgenden Code ein:
      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

Dieser Code sorgt dafür, dass die letzten 3 Zeichen immer blau eingefärbt werden, egal ob es sich um vorhandene Werte oder neue Eingaben handelt.


Häufige Fehler und Lösungen

  • Fehler: Die Färbung funktioniert nicht für Zahlen.

    • Lösung: Stelle sicher, dass die Werte als Text formatiert sind. Der Code funktioniert nur für Texteingaben.
  • Fehler: Das Makro wird nicht ausgeführt.

    • Lösung: Überprüfe, ob Makros in deinen Excel-Optionen aktiviert sind.

Alternative Methoden

Wenn du keine VBA-Makros verwenden möchtest, kannst du auch die bedingte Formatierung nutzen, um bestimmte Kriterien zu definieren. Hier ist eine schnelle Anleitung:

  1. Markiere die Zellen, die du formatieren möchtest.
  2. Gehe zu „Start“ > „Bedingte Formatierung“ > „Neue Regel“.
  3. Wähle „Formel zur Ermittlung der zu formatierenden Zellen verwenden“.
  4. Gib die folgende Formel ein:
    =RECHTS(A1;3)="xyz"  // Ersetze "xyz" durch die Zeichen, die du überprüfen möchtest.
  5. Setze die Formatierung auf die gewünschte Füllfarbe.

Diese Methode ist jedoch nicht so flexibel wie die VBA-Lösung, da sie nicht automatisch auf jede neue Eingabe angewendet wird.


Praktische Beispiele

Angenommen, du hast folgende Werte in den Zellen A1 bis A7:

A
12.256
30.000
154.236
7.356.890
2.450.000
157.100
25.169.355

Nach Ausführung des Makros sind die letzten 3 Zeichen in jeder Zelle blau, was die Lesbarkeit verbessert und die Werte hervorhebt.


Tipps für Profis

  • Excel Shortcut für Füllfarbe: Du kannst in Excel den Shortcut ALT + H + H verwenden, um die Füllfarbe schnell anzupassen.
  • Zweifarbige Zelle: Wenn du eine zweifarbige Zelle erstellen möchtest, kannst du die bedingte Formatierung in Kombination mit den VBA-Codes verwenden, um noch ansprechendere Designs zu erzielen.

FAQ: Häufige Fragen

1. Kann ich auch andere Farben verwenden? Ja, du kannst die Farbe im VBA-Code ändern, indem du die RGB-Werte anpasst.

2. Funktioniert das auch in Excel Online? Leider funktioniert das VBA-Makro nur in der Desktop-Version von Excel und nicht in Excel Online.

3. Was, wenn ich die letzten 3 Zeichen nur in bestimmten Zellen einfärben möchte? Du kannst den VBA-Code anpassen, um nur spezifische Zellen oder Bereiche zu berücksichtigen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige