Find og marker

Kan du ikke bruge betinget formattering, f.eks. hvis A1=10 så formatter rød?

Her et eksempel på en makro:

Sub markerlinieværdi()

  Application.ScreenUpdating = False 'Undlad opdatering af skærm
  Dim lngRow As Long, lngLastRow As Long
  lngLastRow = Cells(Rows.Count, "A").End(xlUp).Row 'Find sidste celle i Kollone A, ret evt. til en anden
  For lngRow = lngLastRow To 1 Step -1
'    If Cells(lngRow, "A").Value = "<søgetekst>" Then 'Erstat søgetekst med den tekst der skal søges på og evt hvilken Kollone (A)
    If Cells(lngRow, "A").Value = "a" Then 'Erstat søgetekst med den tekst der skal søges på og evt hvilken Kollone (A)
        Cells(lngRow, "A").Interior.ColorIndex = 3 'Erstat evt hvilken Kollone (A)
    End If
  Next lngRow
  Application.ScreenUpdating = True 'Sæt opdatering af skærm tilbage

End Sub

Formater -> Betinget formattering -> Dialogboks.

Betingelse 1: Celleværdien er
lig med
ord

Tryk på formatter: vælg formattering for den pågældende celle cdu vil have vist specielt.

Conditional formatting duer hvis ikke til ord ... Og hvis den gør så matcher den kun på det ord ... jeg kan ihvertfald ikke finde en setting så den medtager alle celler der indeholder det valgte ord ...

Dette gør sig i øvrigt gældende for begge forslag ... Men kan det = i kommandoen ikke ændres til LIKE eller noget i den stil?

Du skal markere det område du har de celler i, som du vil gøre noget specielt ved. OG er der flere ord, sætter du bare flere conditions.

Kan se, at du bruger engelsk Excel. Det er vel så EQUAL og så ordet i den sidste af indtastningsfelterne. Det er noget bøvlet at få skrevet, for hvis man laver taste fejl og begynder at flytte med piletasterne går der kludder i dialogboksen. Jeg troede der skulle anførselstegn omkring ordet, men det skal der ikke - Excel sætter dem selv, automatisk .

Her er et andet bud

Sub MarkRed()

Dim ac                    As Range
Dim ac1                    As Range
Dim snavn                  As String
    snavn = InputBox("Søg efter ")

    Set ac = Cells.Find(What:=snavn, After:=ActiveCell, LookIn:=xlFormulas, _
                        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
                        MatchCase:=False)
    ac.Interior.Color = vbRed
    Set ac1 = Cells.FindNext(After:=ac)
    While ac1.Address <> ac.Address

        Set ac1 = Cells.FindNext(After:=ac1)
        ac1.Interior.Color = vbRed
    Wend

End Sub

Bak -> Det var lige hvad jeg havde brug for ... Svar?

Petkrug -> Helt konkret kan jeg ikke få Conditional formatting til at markere en celle der indeholder "Aktieselskabet Vejle Amts Folkeblad" rød hvis jeg bare vil søge efter "blad" ...

ok :-)

OK - så lærte jeg også noget - men det fremgik jo ikke helt tydeligt af dit spg. Jeg var ikke klar over at det var flere forekomster i forskelligt udseende celler.
Hav en god dag.

Du kan godt bruge conditional formatting
ex.
Cellen der indeholde søgestrengen er L2

cellerne der skal søges i skal have denne formel i conditional formatting
"Formula Is" =SEARCH($L$2;A2)>1
Dette er skrevet i celle A2. Formatet er rød
Denne formatering kopieres til de andre celler, der skal søges i.
Når du nu skriver noget i celle L2 vil alle celler der indeholder det der står i L2 blive røde.

Der mangler lige et lighedstegn
"Formula Is" =SEARCH($L$2;A2)>=1

Jeg kan jo bare sige tak herfra: tak :o) Denne side er herefter i mine foretrukne!