Helpmij.nl
Helpmij.nl
Helpmij.nl
Steun Helpmij.nl! Klik hier     Computerprobleem? Klik hier!

Quote

Weergeven resultaten 1 tot 7 van 7

Onderwerp: Tekst door voorwaardelijke opmaak

  1. #1
    Vraag is opgelost

    Tekst door voorwaardelijke opmaak

    Hallo,

    Ik ben bezig met het maken van een planning in Excel waarbij ik gebruik maak van voorwaardelijke opmaak. Nu zou ik graag naast de kleur die wordt ingevoegd door de voorwaardelijke opmaak ook een letter A / B of C in deze cellen terug willen zien.
    Kan dit via voorwaardelijke opmaak? Bijgevoegd heb ik een klein voorbeeld maar in werkelijkheid is het bestand vele malen groter waardoor ik de tekst liever niet via een gewone formule tevoorschijn wil laten komen... Kan iemand mij helpen?

    Alvast bedankt.
    Attached Files Attached Files

  2. #2
    Mega Senior
    Verenigingslid

    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    het zou met VBA kunnen of met formules, maar niet met Voorwaardelijke opmaak.

    Wanneer een A, een B of een C?
    Niemand is slim genoeg om zijn eigen domheid te bevatten!

    Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!

  3. #3
    Daar was ik al bang voor...

    In dat geval kies ik liever voor VBA.
    Bij Medewerker A wil ik graag de groene cellen met een A erin.
    Bij Medewerker B wil ik graag de blauwe cellen met een B erin.
    Bij Medewerker C wil ik graag de oranje cellen met een C erin.

  4. #4
    Mega Senior
    Verenigingslid

    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Probeer dit eens:

    Code:
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column < 3 Then
    For Each cl In Range("D4:Q13")
        If Cells(3, cl.Column).Value >= Cells(cl.Row, 1).Value And Cells(3, cl.Column).Value <= Cells(cl.Row, 2).Value Then
        medewerker = Cells(cl.Row, 3).Value
        Select Case medewerker
        Case "Medewerker A"
        cl.Interior.Color = vbGreen
        cl.Value = "A"
        Case "Medewerker B"
        cl.Interior.Color = vbBlue
        cl.Value = "B"
        Case "Medewerker C"
        cl.Interior.ColorIndex = 46
        cl.Value = "C"
        End Select
        End If
    Next
    End If
    End Sub
    Niemand is slim genoeg om zijn eigen domheid te bevatten!

    Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!

  5. #5
    Giga Honourable Senior Member HSV's avatar
    Geregistreerd
    18 juli 2008
    Quote Origineel gepost door aikli Bekijk Bericht
    Daar was ik al bang voor...
    Je moet niet alles geloven.
    Attached Files Attached Files
    ____________
    mvg,
    Harry

    Lag nooit om de keuzes van dien vraauw, bist ter zulf aine van....
    (Grunnegs-Gronings)

  6. #6
    Mega Senior
    Verenigingslid

    Geregistreerd
    10 november 2016
    Locatie
    Zaandam
    Afstand tot server
    ±116 km
    Harry,

    ik ben een onbetrouwbaar type... , maar wel gaaf dat het WEL met VO kan.

    Dat van het getal had ik nooit verwacht......
    Laatst aangepast door SjonR : 14 november 2017 om 18:39
    Niemand is slim genoeg om zijn eigen domheid te bevatten!

    Wanneer een vraag is opgelost, markeer het dan a.u.b. ook als opgelost!

  7. #7
    Mooie oplossing! Weer wat geleerd, thanks!

Berichtenregels

  • U mag geen nieuwe vragen starten.
  • U mag niet reageren op berichten.
  • U mag geen bijlagen versturen.
  • U mag uw berichten niet bewerken.
  •  
Helpmij.nl
Helpmij.nl

Helpmij.nl en business

Partners
Sponsoren
Aanbiedingen