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
Anzeige