Hallo wim54,

met deze code in het VBA (in het werkblad) zou het moeten lukken:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 8
    Application.ScreenUpdating = True
End Sub
Daar je een macro inbrengt moet je bestand als  *.xlsm opgeslagen worden vanaf Excel 2003 !!

SoftAid              

Zie bijlage:

Hallo Wim,

als je ons doorgeeft met welke versie van Excel (of Office) je werkt, dan helpen we je  er graag stap per stap doorheen.

SoftAid              

Hallo Wim,

dat is dezelfde configuratie als die van mij, dus kunnen we moeilijk fout doen.

Open je werkboek Wim.xlsx (waar "Wim" staat voor de naam van jou werkboek).
Klik op de Office-knop (linksboven hoek) en kies voor Opslaan als: "Excel map met ingeschakelde macro's"
Het "Opslaan als" bestandbeheer zal openen met als voorstel de bestandsnaam: Wim.xlsm
Klik op de knop "Opslaan".

Open het betreffende werkblad (indien er meerdere zijn).

Zoek in je werkbalk het tabblad "Ontwikkelaars".
   
      (Staat dit tabblad er niet, ga als volgt te werk: Klik op de Microsoft Office-knop en klik vervolgens op "Opties voor Excel".
      Klik op "Populair" en schakel het selectievakje "Tabblad Ontwikkelaars op het lint weergeven" in.)

- Klik op het tabblad "Ontwikkelaars" en klik op "Programmacode weergeven".
- Het Microsoft Visual Basic (VBA) venster opent.
      Indien je links geen deelvenster "VBAProject" ziet, klik dan op Beeld, en klik daar op Projectverkenner
- In het deelvenster "VBAProject" Vind je VBAProject (Wim.xlsm)
- Indien dit project niet geopend is, klik dan op het plusteken links van de project-naamom de boomstructuur te openen.
- Je ziet nu de namen van de tabbladen die in je werkboek staan.
- Dubbelklik op de naam van het werkblad waarin je de macro wilt uitvoeren (dus het werkblad waarin je de rijen wilt laten kleuren)
- Selecteer de code hieronder en kies voor Kopiëren (Ctrl+C).

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   
    Application.ScreenUpdating = False
    Cells.Interior.ColorIndex = 0
    Target.EntireRow.Interior.ColorIndex = 8
    Application.ScreenUpdating = True
End Sub
- Zet nu de cursor in het rechter vak van het VBA-venster en rechtsklik en kies voor Plakken (Ctrl+V).
- Sluit het VBA-venster en sla je werkboek op.
- De macro moet nu werken: telkens je een cel op een andere rij kiest (eender welke kolom) wordt die rij gekleurd.

Indien de opmerking van RedHead hierboven bij jou van toepassing is, dan moet je dit eerst laten weten.
Dan passen we de macro aan zodat de door jou ingekleurde cellen NIET worden betrokken in het proces.
Heb je GEEN zelf ingekleurde cellen in je werkblad, dan is er geen probleem.

In bijlage een (leeg) voorbeeldbestandje.

Groeten,

SoftAid              

Beste

Kun je de code aanpassen zodat de ingekleurde cellen niet aangepast worden?
Alsook dat de kolom oplicht?

Alvast bedankt voor de code

Hallo Janne2be,

ik heb alvast de code bewerkt voor je vraag om bestaande gekleurde cellen niet mee op te nemen in het kleuren van de geselcteerde rij:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim cel As Range
    Application.ScreenUpdating = False
    ' Eerst alle cellen zonder kleur terugzetten naar geen kleur
    Dim r As Range
    For Each r In Cells
        If r.Interior.ColorIndex = 8 Then
            r.Interior.ColorIndex = xlNone
        End If
    Next r
    ' Dan de nieuwe rij kleuren, maar alleen cellen zonder bestaande kleur
    For Each cel In Target.EntireRow.Cells
        If cel.Interior.ColorIndex = xlNone Then
            cel.Interior.ColorIndex = 8
        End If
    Next cel
    Application.ScreenUpdating = True
End Sub
Ik zou misschien ook het te bewerken bereik beperken tot de range van jou data, bijvoorbeeld Range("A1:Z1000"), om de prestaties te verbeteren.

SoftAid