Help!

PC-Problemen?
De vrijwilligers van Oplossing.be zoeken gratis met u mee!

Hulp bij posten

Recente topics

Auteur Topic: Functies als tekst een bepaalde kleur heeft  (gelezen 426 keer)

0 leden en 1 gast bekijken dit topic.

Offline Niekske74

  • Nieuw lid
  • Berichten: 6
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Functies als tekst een bepaalde kleur heeft
« Gepost op: 02 september 2021, 16:52:22 »
Hoi

Bij het verwerken van roosters zou ik graag elk getal dat in het rood staat, willen vermenigvuldigen met 4 (= avondtoeslag). Aangezien Excel geen tekstkleur herkent, heb ik in mijn werkblad via VBA al de functie 'TEKSTKLEUR' toegevoegd. Maar nu loop ik een beetje vast, want op welke manier definieer ik welke cellen er geteld moeten worden?
In het voorbeeldje heb ik bij de bovenste persoon handmatig geteld wat het resultaat moet zijn( cel AJ5), graag zou ik dit automatisch laten tellen.

Offline AD1957

  • Volledig lid
  • **
  • Berichten: 161
  • Oplossing.be
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #1 Gepost op: 02 september 2021, 21:32:55 »
Ik zie geen module met de functie TEKSKLEUR.
Groet,

Albert

Offline Veerj

  • Volledig lid
  • **
  • Berichten: 165
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #2 Gepost op: 02 september 2021, 23:45:52 »
Als de cellen op basis van een voorwaarde een kleur krijgen, kun je de cellen ook vermenigvuldigen met 4 op basis van die voorwaarden.
Rekenen met kleuren is niet wenselijk in Excel.

Offline Niekske74

  • Nieuw lid
  • Berichten: 6
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #3 Gepost op: 03 september 2021, 11:43:23 »
Aan de cellen is geen voorwaardelijke opmaak verbonden. Dus tellen op basis daarvan gaat niet.

Offline Niekske74

  • Nieuw lid
  • Berichten: 6
  • Geslacht: Vrouw
  • Hey, ik ben nieuw hier !
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #4 Gepost op: 03 september 2021, 11:45:05 »
Dag Albert

Als je in een cel staat en je opent de functies, dan kan je kiezen voor tekstkleur. Maar ik weet niet hoe ik dit kan toepassen in een formule.

Offline SoftAid

  • Administrator
  • Ambassadeur
  • *****
  • Berichten: 18.999
  • Geslacht: Man
  • Nobody is perfect, not even me...
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #5 Gepost op: 03 september 2021, 11:52:57 »
Nielske74,

deze functie Tekstkleur heb je dan toegevoegd aan je PERSOONLIJK.XLSB, die functies daarin staan enkel op jou PC.
Zet die functie in een Module in jou werkboek, en sla op als .xlsm
Post je bestand dan nog even opnieuw.

:) SoftAid :)             

Dubbelposten, het posten op verschillende forums van dezelfde vraag, dient op
voorhand gemeld te worden, met een link naar het topic op de andere site.
Overtreding van deze regel kan bestraft worden met verbanning !

Offline AD1957

  • Volledig lid
  • **
  • Berichten: 161
  • Oplossing.be
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #6 Gepost op: 03 september 2021, 12:51:00 »
Zie eerst de opmerking van Veerj in post #2

IN een module:
Function Tellen(R1 As Range, r2 As Range)
For Each cl In R1
    If cl.Font.Color = r2.Font.Color And cl <> "" Then Tellen = Tellen + 1
Next cl
End Function

in cel AJ5 
 =Tellen(C5:AG5;AM1)*4
Probleem blijft dat bij het veranderen van kleur er niet wordt herberekend.(geen trigger)
Groet,

Albert

Offline Veerj

  • Volledig lid
  • **
  • Berichten: 165
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #7 Gepost op: 03 september 2021, 15:28:54 »
Om toch wat vaker een herberekening te triggeren van de functie, kun je Application.Volatile bovenaan de functie zetten.

Offline AD1957

  • Volledig lid
  • **
  • Berichten: 161
  • Oplossing.be
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #8 Gepost op: 03 september 2021, 18:39:57 »
Veerj,

Eerst eens even moeten opzoeken wat "Application.Volatile  True" doet.
Function Tellen(R1 As Range, r2 As Range)
Application.Volatile  True
For Each cl In R1
    If cl.Font.Color = r2.Font.Color And cl <> "" Then Tellen = Tellen + 1
Next cl
End Function
Om nog vaker te triggeren zou dit misschien ook nog kunnen helpen. ;)
Of heb ik het mis?
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
[A1] = [A1] * 1
End Sub
Groet,

Albert

Offline Veerj

  • Volledig lid
  • **
  • Berichten: 165
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #9 Gepost op: 03 september 2021, 20:13:32 »
@Albert, dat helpt zeker. Maarja, ik ben van mening dat de kleur voorwaardelijk ontstaat en dan heb je deze functies niet nodig.
Het enige wat ik me kan bedenken is dat een rode tekst van een website wordt geplakt in Excel, waardoor er geen voorwaarden aan hangen.

Offline RedHead

  • Excel-Expert
  • Ambassadeur
  • *****
  • Berichten: 2.157
  • Geslacht: Man
  • Met Excel lukt 't wel.... (toch???)
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #10 Gepost op: 03 september 2021, 21:19:24 »
Maarja, ik ben van mening dat de kleur voorwaardelijk ontstaat
Helaas Veerj. Zie post #3...
______________________________

Groet, Leo

Offline Veerj

  • Volledig lid
  • **
  • Berichten: 165
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #11 Gepost op: 03 september 2021, 21:22:12 »
Maar wat is het dan wel ;D

Offline AD1957

  • Volledig lid
  • **
  • Berichten: 161
  • Oplossing.be
Re: Functies als tekst een bepaalde kleur heeft
« Reactie #12 Gepost op: 03 september 2021, 21:50:23 »
Wachten op een reactie van Niekske.
Groet,

Albert

 


www.combell.com