Hallo
beginnend ab A1...
Sub grau()
Dim TB, LR As Long, i As Long
Set TB = Sheets("Tabelle1")
With TB
LR = .Cells.SpecialCells(xlCellTypeLastCell).Row 'Letzte Zeile des gesamten Blattes
For i = 2 To LR
With Cells(1, i).Resize(i - 1, 1).Interior
.Pattern = xlSolid
.PatternColorIndex = xlAutomatic
.ThemeColor = xlThemeColorDark1
.TintAndShade = -0.249977111117893
.PatternTintAndShade = 0
End With
Next
End With
End Sub
LG UweD
|