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