• 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.

Bij zoeken in Excel vakje in kleur

Status
Niet open voor verdere reacties.
H

HenkGrimHelp

Gebruiker
Lid geworden
23 okt 2020
Berichten
5
Goede dag, als ik zoek op iets in Excel dan is als ik resultaat heb het vakje wit en kan ik nog niet zien wat resultaat is.

Hoe kan ik dit wijzigen? Zodat het zoekresultaat een bepaalde kleur krijgt?

dank voor een reactie
 
Henk,

welkom op Helpmij.nl.

Het is een goede gewoonte om een vraag te illustreren a.d.h.v. een (voorbeeld)excelbestand zonder gevoelige info.
 
Voorwaardelijke opmaak kwestie
 
Even in de formulebalk kijken daar staat ongeacht de opmaak altijd een resultaat in het zwart.
 
Ik denk dat TS het markeren van de cellen in een bepaalde kleur van de zoekresultaten wil zien. Als je meerdere dezelfde keywoorden in één blad hebt staan dan zie je ze allemaal ineens omdat de kleur van de cel dan wijzigt, zoals bij een Wikipediapagina het geval is als je zoekt op een keywoord?
 
Laatst bewerkt:
Een suggestie, ondervangt meerdere dezelfde zoekresultaten

Code: 
Sub j()
 a = InputBox("Zoek tekst", "Vul iets in")
    If a <> "" Then
            Set c0 = ActiveSheet.Cells.Find(what:=a)
            If c0 Is Nothing Then
                MsgBox "Niets gevonden", vbOKCancel, "Let op"
                Exit Sub
            End If
    
            c00Address = c0.Address
            Set c00 = c0
           
            Do
                Set c0 = ActiveSheet.Cells.FindNext(After:=c0)
                Set c00 = Application.Union(c00, c0)
            Loop Until c0.Address = c00Address
        
            If c00.Count > 0 Then c00.Interior.ColorIndex = 8
            b = MsgBox("Markering weghalen?", vbYesNo, "Let op")
            If b = vbYes Then c00.Interior.ColorIndex = xlNone
    End If
End Sub
 

Bijlagen

  • aaa.xlsm
    17 KB · Weergaven: 71
Laatst bewerkt:
Heel mooi gedaan.:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan