Tilfældigt farve 6 af 7 felter

Det letteste ville være blot at farvelægge de 7 celler
og så finde et tilfældig tal mellem 1 og 7
som så er afgørende for hvilken celle der ikke farves

Den er jeg ikke med på da jeg i forvejen kører slump på de 7 celler.
Denne slumpfunktion kunne være =AFRUND((SLUMP()*($I$7-$H$7)+$H$7);$K$7), altså der fremkommer helt vilkårlige tal afgrænset af et indtastet interval i I7 og H7.
Jeg mener, at jeg ved hjælp af koder må kunne farvelægge 6 tilfældige ud af de ialt 7 celler.

jeg mente bare det var lettest, hvis du ikke skal vide
hvilke celler der er valgt til farvelægning i det videre
forløb, så ville denne sub være tilstrækkelig

Sub farve()
Range("a1:g1").Select: Selection.Interior.ColorIndex = 4
Range("a1").Select: x = Int(Rnd() * 6): ActiveCell.Offset(0, x).Select
Selection.Interior.ColorIndex = xlNone
End Sub

skal du derimod teste eller bearbejde celler der er valgt til
farvelægning senere, ja så er det selfølgelig noget mere kompliceret

MANGE TAK, dit forslag virker.
jeg har ændret til:
Range("a1").Select: x = Int(Rnd() * 7): ActiveCell.Offset(0, x).Select
for på skift at få en celle ud af 7 synlige.
Lægger du et svar.

ok velbekom

bare en oplysning, i subben tælles 0 med.
derfor har jeg 6 og ikke 7

nej du har ret det var før jeg indsatte ' int ' i formlen
at jeg fik værdier > end 7