In einer bestimmten Zeile suche ich den letzten Eintrag. Bis zu diesem soll gefaerbt werden. Mit diesem Code faerbe ich den ganzen Bereich, es soll aber nur bis zum letzten Eintrag in der Zeile gefaerbt werden. Da von links nach rechts gefaerbt.
Case Is = Cells(7, 1)
Cells(i, 5).Interior.ColorIndex = 3
Cells(7, 1).Interior.ColorIndex = 3
Range(Cells(i, 6), Cells(i, 58)).Interior.ColorIndex = 3
Case Is = Cells(8, 1)
Cells(i, 5).Interior.ColorIndex = 4
Cells(8, 1).Interior.ColorIndex = 4
Range(Cells(i, 6), Cells(i, 58)).Interior.ColorIndex = 4
usw.
Row.xlup geht(glaube ich) nicht, da in der zeile darunter eine andere Farbe gestellt wird.
Ich braeuchte also Ersatz fuer Cells(i,58). Also Cells(i,bis zum letzten Eintrag)
Fuer'n Tip waere ich dankbar
Gruss Hary