Kleur toekennen aan een cel dmv een tabel

[Wigi]

Wigi anders moet je even het bestadje van dirktimm even openen.Als je dan de gegevns x en y verandert (de lichtgrijze getallen)dan zie je wat er gebeurt of wat de bedoeling is
Ronny

Ik heb dat gedaan, en ik denk dat deze code dan werkt:

Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, FoundCell As Range
If Target.Address = "$E$3" Or Not Intersect(Target, Range("E5:J6")) Is Nothing Then
    On Error Resume Next
    Set FoundCell = Sheets("tabel2").Range("B3:B27").Find(what:=Target, lookat:=xlWhole)
    If Err.Number <> 0 Then
        Exit Sub
    Else
        Range("E8,G8,I8").Calculate
        For Each rng In Range("E8,G8,I8")
            If WorksheetFunction.CountIf(FoundCell.Offset(, 1).Resize(, 4), "<=" & Replace(rng.Value, ",", ".")) = 0 Then
                rng.Interior.ColorIndex = xlNone
            Else
                rng.Interior.ColorIndex = FoundCell.Offset(, WorksheetFunction.CountIf(FoundCell.Offset(, 1).Resize(, 4), "<=" & _
                Replace(rng.Value, ",", "."))).Interior.ColorIndex
            End If
        Next
    End If
End If
Application.EnableEvents = True
End Sub

Test het en rapporteer!

Wigi

 

[ZIPPO_2]

Kleur toekennen

het werkt, maar enkel als telkens het referentiegetal verander en dat zou niet mogen
misschien dat het aan de hand van bijgevoegd bestandje iets duidelijker is
(de laatste verzonden macro hangt aan blad 1)

 

[Wigi]

Eindelijk... heb mijn fout gevonden!

Verander

Find(what:=[B]target[/B], lookat:=xlWhole)

in

Find(what:=[B]Range("E3")[/B], lookat:=xlWhole)

De fout was dat als een van de andere cellen wijzigde, dat dat getal dan opgezocht werd, bv. 358. Enkel E3 mag opgezocht worden.

Wigi

 

[ZIPPO_2]

Kleur toekennen

Wigi je bent een genie
Bedankt dat je zoveel moeite hebt willen doen.:thumb:
Ik heb nog een klein vraagje
Kun je mij goede lectuur aanraden aangaande VBA en
macro's
Grtjs Ronny

 

[Wigi]

Wigi je bent een genie
Bedankt dat je zoveel moeite hebt willen doen.:thumb:
Ik heb nog een klein vraagje
Kun je mij goede lectuur aanraden aangaande VBA en
macro's
Grtjs Ronny

Boeken van John Walkenbach zijn altijd een aanrader.

Het enige VBA boek dat ik gelezen heb is

John Walkenbach - Excel 2002 Power programming with VBA.
(dus in het Engels)

Voor de rest: veel oefenen, forums bezoeken, websites doorlezen van Excel MVP's (Most valuable professionals), helpf files doornemen, andermans code bestuderen, ... en het belangrijkste: OEFENEN!!! Ook nooit opgeven met een probleem als het niet lukt.

Succes ermee!

Wigi