rijen kleuren

[cocko]

Hallo,

Wie weet hoe ik in VBA code omschrijf voor het kleuren van de even rijen (in het bereik a:r). dus A2:R2, A4:R4, A6:R6, etc. moeten gekleurd worden. Echter bij de laatst ingevulde rij moet het wel stoppen. (De lengte van de lijst is variabel)

Groet Henk

 

[wampier]

Hoe wordt bepaald hoe diep de kleur moet komen? Misschien beter: mag je ervan uitgaan dat er niets onder deze range komt?

 

[Roncancio]

Sub RijenKleuren()
Dim lRij As Long
    lRij = 2
    While Range("A" & lRij).Value <> ""
        Range("A" & lRij & ":R" & lRij).Interior.Color = vbRed
        lRij = lRij + 2
    Wend
End Sub

Met vriendelijke groet,


Roncancio

 

[Wigi]

Hallo,

Wie weet hoe ik in VBA code omschrijf voor het kleuren van de even rijen (in het bereik a:r). dus A2:R2, A4:R4, A6:R6, etc. moeten gekleurd worden. Echter bij de laatst ingevulde rij moet het wel stoppen. (De lengte van de lijst is variabel)

Groet Henk

Dag Henk

Gebruik geen VBA-code als er ingebouwde functionaliteiten in Excel aanwezig zijn.

Zo heb je tabellen, die je kan invoegen, en een hele hoop opties gratis erbij geven. Zoals kleuren om de andere rij, autofilter, ...

 

[cocko]

Hallo Roncancio, Wim,

Roncancio, jouw code werkt goed, echter zou hij de laatste rij nooit mee moeten pakken. Hier staat in kolom A "TOTAAL". Misschien is daar nog een oplossing voor te verzinnen?

Wim, ik zou graag een standaard tabel gebruiken, echter de lengte van mijn tabel is variabel! Hoe voorkom ik dan dat mijn scherm tot regel 65000 'ge-zebra-d' wordt? Ik wil uiteraard niet elke keer het bereik moeten selecteren.

Beiden in elk geval alvast bedankt!

Groet Henk

 

[zapatr]

echter zou hij de laatste rij nooit mee moeten pakken.

Een andere macro waarin met je wens rekening is gehouden:

Sub macro1()
For x = 2 To Range("a65536").End(xlUp).Row - 1
If x / 2 = Int(x / 2) Then
Range(Cells(x, 1), Cells(x, 18)).Interior.ColorIndex = 4
End If
Next x
End Sub

 

[cocko]

GEWELDIG!

Precies wat ik nodig had, hartelijk dank!

(al ben ik nog wel benieuwd of het ook via de Tabel-oplossing van Wigi kan!)

Groeten Henk

 

[zapatr]

al ben ik nog wel benieuwd of het ook via de Tabel-oplossing van Wigi kan!

Dat zal dan waarschijnlijk in Excel 2007 en/of 2010 zijn denk ik,
want in de Excelversie 2002 waar ik nu mee werk, zie ik die mogelijkheid toch niet zo gauw.

Wil je de vraag nog even als "Opgelost" markeren a.u.b.?

 

[Wigi]

Ik werk met Excel 2007 en daar heet het een Tabel.

In Excel 2003 heet het een Lijst. Zie hier voor de Engelse uitleg:

http://spreadsheets.about.com/od/datamanagementinexcel/ss/create_list.htm

Ik weet niet of Excel 2003 opmaakmogelijkheden heeft voor Lijsten.

Wigi

 

[zapatr]

Zoals ik hierboven al schreef werk ik met Excel 2002.
Daarin kun je in lijsten en tabellen niet zo snel rijen een kleur geven (op de manier
zoals de vragensteller dat wenst) als met de macro die ik hierboven weergaf.

 

[cocko]

Ik kan wel met de tabel werken, ik zit alleen met het probleem dat hij dan (omdat de lengte van de lijst variabel is) het hele blad om en om gaat strepen. Maar macro werkt super, dus ik zoek niet langer!

Allen bedankt!