• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

cellen met gelijke tekst doen oplichten in kleur.

Status
Niet open voor verdere reacties.
W

willingeprins

Gebruiker
Lid geworden
14 jan 2019
Berichten
21
Hallo forumleden,
Hoe kun je in Exel een kleur geven aan cellen, die dezelfde tekst bevatten als de tekst van een geselecteerde cel? (tekst is zichtbaar in de formulebalk)
Ik heb het geprobeerd met voorwaardelijke opmaak, maar ik weet niet hoe ik kan refereren naar de tekst in de formulebalk; deze verschilt per selectie en zou dan cellen met gelijke tekst doen oplichten in kleur.
Groet, Erik
 
Waarom zou je verwijzen naar de tekst in de formulebalk? Wat bedoel je hier ("die dezelfde tekst bevatten als de tekst van een geselecteerde cel?") dan mee?
 
In de spreadsheet staan heel veel namen door elkaar verspreid en ook meerdere malen dezelfde naam. In Exel heet dit: TEKST. Selecteer ik 1 cel met daarin een naam, dan zou ik graag met een kleurtje alle cellen willen markeren, waar die naam ook in staat.
 
Plaats een voorbeeldbestand met hoe het er werkelijk uitziet.

Nu al vragen:
1: Is de tekst gelijk of komt de naam bijvoorbeeld voor in een langere tekst?
2: Staan er al kleurtjes in het blad?
 
Hier zit reeds VBA in geschreven (het vet gedrukte woord KAMERLING staat in cel C4):

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sv
If Not Intersect(Target, Range("b6:i236")) Is Nothing Then
sv = Split(Target, "/")
If UBound(sv) > 0 Then
Range("c4") = sv(0)
Range("e4") = sv(1)
Range("g4") = Application.CountIf(Range("b6:i24"), Range("c4") & "*")
Else
Range("c4,e4,g4").ClearContents
End If
Range("i4") = Target.Address(0, 0)
End If
Cells.Interior.ColorIndex = 0
Rows(ActiveCell.Row).Interior.Color = 16777215
Columns(ActiveCell.Column).Interior.Color = 16777215
ActiveCell.Interior.Color = 7405514

End Sub
 
En dat noem je een voorbeeldje? Je denkt toch hopelijk niet dat we eerst zelf een half uur of zo data gaan inkloppen? Dat is nou bij uitstek een klusje voor de vragensteller :).
 
Dit ding is gemaakt door een wizzard, ik zal er maar verder van af blijven. In elk geval bedankt voor de interesse. :thumb:
 
Die bijlage is niet te openen. Heeft al zo vaak op Helpmij gestaan hoe je dat wel moet doen. Via rechtsonder Ga Geavanceerd en dan klik op de paperclip > document uploaden en Gereed en dan via paperclip in de editor plaatsen.

Bekijk bijlage Excel Cel kleuren.xlsm
 
Laatst bewerkt:
Erg laat maar hier dan toch nog het bestand, excuses
 

Bijlagen

  • INDELING.xlsb
    25,4 KB · Weergaven: 39
Door het aanpassen van je bestaande macro

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("b6:i236")) Is Nothing Then
  Cells.Interior.ColorIndex = 0
  sv = Split(Target, "/")
  If UBound(sv) > 0 Then
     Range("c4") = sv(0)
     Range("e4") = sv(1)
     Range("g4") = Application.CountIf(Range("b6:i24"), Range("c4") & "*")
     For Each cell In Cells(1).CurrentRegion.Offset(4)
      If InStr(cell, Range("C4")) Then cell.Interior.Color = 7405514
     Next
  Else
     Range("c4,e4,g4").ClearContents
  End If
 End If
End Sub
 
Laatst bewerkt:
JVeer zei:
Door het aanpassen van je bestaande macro

Code: 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 If Not Intersect(Target, Range("b6:i236")) Is Nothing Then
  Cells.Interior.ColorIndex = 0
  sv = Split(Target, "/")
  If UBound(sv) > 0 Then
     Range("c4") = sv(0)
     Range("e4") = sv(1)
     Range("g4") = Application.CountIf(Range("b6:i24"), Range("c4") & "*")
     For Each cell In Cells(1).CurrentRegion.Offset(4)
      If InStr(cell, Range("C4")) Then cell.Interior.Color = 7405514
     Next
  Else
     Range("c4,e4,g4").ClearContents
  End If
 End If
End Sub
Klik om te vergroten...

Geeft bij mij een foutmelding
 
welke?
en op welke regel?
 
Haal Option Explicit eens weg

OF declareer de parameters
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan