Uit een selectie de waarde kopieren van van gekleurde cel.

[Rubenio]

Beste,

Na paar uurtjes van alles te hebben geprobeerd toch maar even mijn simpele? vraag hier voorleggen.
Op het bijgevoegde werkblad staat een tabel waarvan 1 cel geel gemarkeerd is. De bedoeling is om de waarde van deze gele cel te kopiëren naar cel K3. Graag zou ik dit willen opnemen met VBA omdat het om mijn geval om heel veel van dergelijke tabellen gaat.

Helaas kan ik via Selecteren Speciaal niet simpelweg binnen een selectie alleen de gele cel selecteren. Wel lege of voorwaardelijk opgemaakte maar daar heb ik nu ff niets aan.

Bestaat er een manier om het selecteren + kopiëren van de waarde van de gele cel binnen een selectie te doen lukken???

Hopelijk kan iemand me op weg helpen.

Grtz.
Rubenio

 

[edmoor]

Deze in een module:

Function GeleCel(target As Range) As String
    For Each cel In target
        If cel.Interior.Color = 65535 Then
            GeleCel = cel.Value
            Exit Function
        End If
    Next cel
End Function

Aanroep in K3: =GeleCel(B3:I5)

 

[Rubenio]

Wow... dat werkt zeker
Wist niet eens dat je zelf functies zo kon aanmaken en aanroepen.
Super bedankt :thumb:

 

[edmoor]

Dan heb je dus meer geleerd dan alleen een antwoord op je vraag