lastrow = Sheets(1).Cells(2, 256).End(xlToLeft).Column ActiveSheet.Range(Cells(2, 1), Cells(2, lastrow)).Interior.Color = vbRed
58.4k Fragen
249k Antworten
7k Nutzer