Se denne fil:

Jeg har valgt at løse det med betinget formatering og tre makroer:

I arket Markér_Række er der en Worksheet_SelectionChange-makro, som skriver den aktive celles rækkenummer ind i en celle i arket Vælg_farve. Denne rækkenummer-værdi anvendes i den betingede formatering til farvemarkering af hele rækken.

I arket Vælg_farve er der en Worksheet_Deactivate-makro, som trigger makroen "Makro1" i kodemodulet "Module1". "Makro1" opdaterer farvekoden for den betingede formatering, så den passer med den farve, som er valgt i celle C2 i arket Vælg_farve.

I filen er det kun de første 1.000 rækker, som er dækket af den betingede formatering, men det kan tilpasses i "Makro1" efter behov: With .Rows("1:10000") kan fx ændres til With .Rows("1:20000").

Kan man lave det sådan, at det gæller for 2 ark, f.eks. ark2 og ark5 ?

Der skulle lige lidt mere til - se denne fil

Der skal jo holdes styr på den aktive celle i begge ark, så derfor bliver Worksheet_SelectionChange-makroerne lidt anderledes for de to ark, da de skal skrive rækkeværdi i to forskellige felter.

Måske er denne struktur med betinget formatering ikke den bedste, hvis der skal tilføjes flere ark med rækkemarkering, men jeg valgte det for at undgå at "male rækken over", hvorved evt. brugervalgt cellefarve ville gå tabt.

Men sig til hvis du får behov for hjælp.