Kleur van tekst bepalen (uitlezen)

[Pieter671]

Beste lezer,

Als in een cel een gedeelte van de tekst in de kleur ROOD staat, dan wil ik graag dat het blok (cel) ernaast op rood komt te staand. Is de gehele tekst in zwart, dan is het de bedoeling dat het blok ernaast in het GROEN komt te staan. Welke oplossing is hier mogelijk in EXCEL 2010. Bij voorkeur zonder VBA.

Zie bijgevoegd voorbeeld.

Heeft iemand een idee hoe dit handen en voeten te geen?

Groeten,
Pieter

 

[Thoralf]

Er zijn mij geen functies buiten VBA bekend die je kunnen vertellen welke kleur een deel van de tekst in een cel heeft. Ook met VBA zal een en ander niet gemakkelijk zijn (ik weet ook niet echt of het wel mogelijk is).

 

[Ndam90]

Beste Pieter,

Wat je vraagt is volgens mijn kennis niet op te doen, helemaal niet zonder VBA.
Wellicht kan je de oplossing wel anders bereiken.

Wanneer je in een cel met tekst een gedeelte van de tekst rood hebt, zal je dit moeten kleuren in de cel zelfs. Waarschijnlijk doe je dit zelf en zit hier een bepaalde voorwaarde aan vast die je zelf hebt gesteld.
Waarom zou je wanneer je het stuk tekst rood maakt niet automatisch de cel ernaast ook rood maken.

Je zou anders kunnen uitleggen waar je document voor dient, dan kan er naar een andere oplossing worden gekeken.

 

[WHER]

Zonder VBA zie ik dit ook niet zitten, zie bijlage voor een poging op basis van een User Defined Function

 

[Pieter671]

Bedankt voor jullie snelle reacties,

Dat de oplossing niet zonder VBA kan is wat mij betreft prima.

@WHER, dit komt inderdaad in de buurt van mijn beoogd eindresultaat. Ziet er mooi uit.

Als ik de kleuren van de tekst bijvoorbeeld weer terugzet naar zwart, dan moet ik dit tweemaal doen. Op één of andere manier blijft iets hangen. Misschien komt dit om dat de oplossing als function is opgenomen.

In het uiteindelijke spreadsheet zijn dit zo'n 140 blokken met tekst. Per blok (indien een gedeelte rood) moet het signaleringblok op rood gezet worden.

Is deze oplossing ook te maken in een macro die, wanneer gestart, vervolgens in een loop alle blokken langs loopt?

 

[WHER]

Dat kan ook als macro, hopelijk zijn de "blokken tekst" en het "signaleringsblok" waarover je het hebt, geen samengevoegde cellen zoals in het voorbeeld?

 

[snb]

of met:

Sub M_snb()
    For Each cl In Columns(2).SpecialCells(2, 2)
      cl.Offset(, 1).Resize(4, 10).Interior.ColorIndex = 4

      For j = 1 To Len(cl)
         If cl.Characters(j, 1).Font.ColorIndex = 3 Then
            cl.Offset(, 1).Resize(4, 10).Interior.ColorIndex = 3
            Exit For
         End If
      Next

    Next
End Sub

 

[WHER]

Waarom zo eenvoudig als het ingewikkeld ook kan ......

 

[snb]

Sorry, ik kon zo snel niets complexers bedenken...

Je zette me wel weer aan het denken:

Sub M_snb()
    For Each cl In Columns(2).SpecialCells(2, 2)
      For j = 1 To Len(cl)
         If cl.Characters(j, 1).Font.ColorIndex = 3 Then Exit For
      Next

      cl.Offset(, 1).Resize(4, 10).Interior.ColorIndex = 4 + (j < Len(cl)+1)
    Next
End Sub

 

[Pieter671]

Oplossing

@snb, bedankt voor de opzet van de syntax. Als ik je laatste opzet volg, dan krijg ik een geheel groen vlak.
Zie spreadsheet.

Ik heb het sub-je een beetje omgebouwd. Qua opzet kan het misschien nog wel strakker.
Voor mij werkt dit goed.

Thanx.

Bekijk bijlage Oplossing.xlsm

 

[snb]

Als je de opzet van je bestand verandert moet de code natuurlijk dienovereenkomstig aangepast worden.
Probeer dus altijd eerst de code helemaal te doorgronden. (bijv. wat doet resize ? gewoon opzoeken in de hulpbestanden van de VBEditor).

Sub M_snb()
    For Each cl In Columns(2).SpecialCells(2, 2)
      For j = 1 To Len(cl)
         If cl.Characters(j, 1).Font.ColorIndex = 3 Then Exit For
      Next

      cl.Offset(, 1).Interior.ColorIndex = 4 + (j < Len(cl)+1)
    Next
End Sub

 

[Pieter671]

Thanx