Weeknummers in kleuren aangeven

[Damkot]

Hallo excel experts,

Ik heb een problem dat waarschijnlijk heel snel door een van jullie op te lossen is.
Het liefst zonder gebruik van VBA.

Ik heb een selectie gemaakt voor een planning. 8 kleuren verdeeld over 52 weken.
Nu is het de bedoeling, dat als ik een weeknummer heb uit bv de groene weken, de cel ook groen wordt.
Is er een snellere mogelijkheid dan 52 regels in voorwaardelijke opmaak aan te maken?

Ik hoor graag van een van jullie!

 

[SjonR]

waarom niet met VBA?

 

[Damkot]

Omdat het simpel moet blijven, mocht het ooit aangepast moeten worden. Niet iedereen heeft voldoende excel kennis.
Is het redelijk eenvoudig mogelijk zonder gebruik te maken van VBA?

 

[Damkot]

waarom niet met VBA?

Omdat het simpel moet blijven, mocht het ooit aangepast moeten worden. Niet iedereen heeft voldoende excel kennis.
Is het redelijk eenvoudig mogelijk zonder gebruik te maken van VBA?

 

[VenA]

Je hoeft toch maar 8 verschillende opmaakregels te maken. Je kan dan bv =REST(weeknummer;8)=0 (1tm7) gebruiken om afhankelijk van het weeknummer de cellen te kleuren.

 

[Damkot]

Je hoeft toch maar 8 verschillende opmaakregels te maken. Je kan dan bv =REST(weeknummer;8)=0 (1tm7) gebruiken om afhankelijk van het weeknummer de cellen te kleuren.

zou je dit eens in m’n excel voorbeeld kunnen doen?? Snap niet goed wat je bedoelt namelijk ...

 

[SjonR]

Volgens methode VenA:

 

[edmoor]

Veel VBA is daar ook niet voor nodig, mocht je dat toch willen.
Deze achter het werkblad:

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Value <> "" And Target.Count = 1 And Target.Row > 15 Then
        With ActiveSheet.Range("C8:Q14")
            Set Rng = .Find(What:=Target.Value, _
                            After:=.Cells(.Cells.Count), _
                            LookIn:=xlValues, _
                            LookAt:=xlWhole, _
                            SearchOrder:=xlByRows, _
                            SearchDirection:=xlNext, _
                            MatchCase:=False)
            If Not Rng Is Nothing Then
                Target.Interior.Color = Cells(7, Rng.Column).Interior.Color
            Else
                Target.Interior.Color = xlNone
            End If
        End With
    End If
End Sub

Vul maar eens wat in kolom C in vanaf regel 16.
Bekijk bijlage Kopie van Test weeknummers.xlsm

 

[VenA]

Als je niet weet hoe je een formule in de VO moet zetten dan kan je eerst even de formules in het werkblad zetten. 0 is altijd ONWAAR elk andere getal is altijd WAAR.

Bestuurdeer het maar eens. En nee kleurtjes verschijnen niet.

 

[snb]

Waarom niet ?

Private Sub Worksheet_Change(ByVal Target As Range)
    Target.Interior.ColorIndex = Target Mod 8 + 1
End Sub