Live-Forum - Die aktuellen Beiträge
Datum
Titel
05.10.2025 23:18:01
Summewenns aber mit VBA
05.10.2025 11:43:19
Bed. Format. Spezialfall, Möglich, die Registerfarbe nutzen?
04.10.2025 18:18:42
Anzahl in einer Zelle automatisch ermitteln
04.10.2025 17:44:54
Power Query - Filtern einer Spalte mittels einer Liste
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1188to1192
1188to1192
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Die ersten 6 Ziffern Rot, geht sowas ?

Forumthread: Die ersten 6 Ziffern Rot, geht sowas ?

Die ersten 6 Ziffern Rot, geht sowas ?
Kurt
Hallo zusammen,
ich möchte gern die Spalte "G" ab Zeile 4 die 1. 6Zahlen ROT
einfärben.
Könnte man da ein Makro durchlaufen lassen ?
Die Länge wird in der Spalte "B" ermittelt also die
letzte belegte Zelle in Spalte "B".
mfg Kurt P
Anzeige

7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: Die ersten 6 Ziffern Rot, geht sowas ?
28.11.2010 11:55:49
Hajo_Zi
Hallo Kurt,
falls es kein Formelergebnis ist Ja.

AW: Die ersten 6 Ziffern Rot, geht sowas ?
28.11.2010 12:00:51
Kurt
Hallo Hajo,
es sind nur Zahlen und dazwischen Buchstaben aber die 1 bis 6
sind Zahlen.
mfg kurt p
AW: Die ersten 6 Ziffern Rot, geht sowas ?
28.11.2010 12:17:11
Hajo_Zi
Hallo kurt,
Du hast ja geschrieben es ist Text. Bei nur Zahlen geht es nicht. 
Option Explicit
Sub Kurt()
Dim LoLetzte As Long
Dim LoI As Long
LoLetzte = IIf(IsEmpty(Cells(Rows.Count, 2)), Cells(Rows.Count, 2).End(xlUp).Row, Rows. _
Count)
For LoI = 1 To LoLetzte
Cells(LoI, 7).Characters(Start:=1, Length:=6).Font.Color = 255
Next LoI
End Sub
Gruß Hajo
Anzeige
Danke an ALLE !!! --))
28.11.2010 12:19:09
Kurt
Hallo Hajo,
bei Reinhard und Matthias klappt es.
DANKE !!!
mfg kurt P
AW: Die ersten 6 Ziffern Rot, geht sowas ?
28.11.2010 12:02:45
Reinhard
Hallo Kurt, 
Sub test()
Dim Zei As Long
For Zei = 4 To Cells(Rows.Count, 2).End(xlUp).Row
Cells(Zei, 7).Characters(Start:=1, Length:=6).Font.ColorIndex = 3
Next Zei
End Sub

Gruß
Reinhard
Anzeige
Reinhard Klasse, danke !!
28.11.2010 12:11:10
Kurt
Die ersten 6 Ziffern Rot - wenn Text
28.11.2010 12:05:02
Matthias
Hallo
Dim x As Long, loletzte As Long
loletzte = Cells(Rows.Count, 6).End(xlUp).Row
For x = 4 To loletzte
With Cells(x, 7).Characters(Start:=1, Length:=6).Font
.ColorIndex = 3
End With
Next
Gruß Matthias
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
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