celopmaak diagonaal kopieren

[Caran]

Hoi,

Ik heb in A1 een celopmaak (kleur & beveiliging). Nu wil ik die celopmaak kopieren naar B2, C3, D4, ... (250 keer eigenlijk).

Het zal wel weer niet moeilijk zijn, maar ik heb geen flauw idee ... .

Groetjes,
Caran

 

[Warme bakkertje]

Misschien helpt dit je vooruit

Sub tst()
For i = 1 To 250
    With Cells(i, i)
        .Interior.ColorIndex = 3
        .Locked = True
    End With
Next
End Sub

 

[Caran]

Gelukt, heel erg bedankt !