VBA einfärben

Question

Hi

Wie kann man in einem Tabellenblatt nur Zelle 2 in allen Spalten einfärben via Makro.
Hab es mit dem Makrorekorder versucht aber er markiert das ganze
Tabellenblatt, aber ich möchte nur bis letzter gefüllter Spalte einfärben.

lg
Cyberduck

Answer 1

so in etwa:

lastrow = Sheets(1).Cells(2, 256).End(xlToLeft).Column
ActiveSheet.Range(Cells(2, 1), Cells(2, lastrow)).Interior.Color = vbRed

Answer 2

Hi VBA

Passt
Vielen Dank