onbeveiligde cel enkel waarden schrijven

[edmoor]

Werkt hier ook zonder probleem.
Wijzig anders dit:
.Interior.Color = RGB(191, 191, 191)

Eens in dit:
.Interior.Color = 12566463

Hoewel het niet uit zou mogen maken.

 

[VenA]

Als je gebruik maakt van een echte tabel dan heb je deze exercitie niet nodig. Het sorteren kan ook wel wat eenvoudiger.

Sub VenA()
  Cells(1, 2).CurrentRegion.Offset(3).Sort Cells(4, 2), , , , , , , xlYes
End Sub