betinget formatering forskellige tekststrenge

indsæt disse i Betinget Formatering
betingelse 1
=HVIS(OG(A1<>"";B1="BE");SAND;FALSK)
betingelse 2
=HVIS(OG(A1<>"";B1="VA");SAND;FALSK)
betingelse 3
=HVIS(OG(A1<>"";B1="");SAND;FALSK)

husk selv at vælge formatet ved alle 3 betingelser

fint - det virker men jeg har nok ikke udtryk mig helt korrekt - det skulle gerne være i een betingelse da de 2 andre bruges i en andre sammenhænge. Tror du ikke det er muligt køre alle 3 "hvis" ind i den samme betingelse  hilsen knud

=ELLER(OG(A1<>"";B1="BE");OG(A1<>"";B1="VA");OG(A1<>"";B1=""))

Ret lige B1 til A2

det begynder at ligne men kun hvis B1 alene indeholder en af de  3 variabler meningen var at hvis de 3 variabler var en del af indholdet i B1.  F.eks. " bilen står i BE " eller "Bilen kommer VA " eller "Bilen er TOM " etc. skulle det aktivere formateringen.  BE ,VA og TOM er interne koder. Hilsen Knud

det begynder at ligne men kun hvis B1 alene indeholder en af de  3 variabler meningen var at hvis de 3 variabler var en del af indholdet i B1.  F.eks. " bilen står i BE " eller "Bilen kommer VA " eller "Bilen er TOM " etc. skulle det aktivere formateringen.  BE ,VA og TOM er interne koder. Hilsen Knud

=ELLER(OG(A1<>"";{"TOM";" BE";" VA"}))

se bort fra den

indsæt i arkets kodemodul

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A2")) Is Nothing Then Exit Sub
Range("a2").Interior.ColorIndex = xlNone
If Range("A1") <> "" Then
If Range("A2") Like "*BE*" Or Range("A2") Like "*VA*" Or Range("A2") Like "*TOM*" Then
Range("A2").Interior.ColorIndex = 3
End If
End If
End Sub

Her testes i område A1 til A9 kan ændres efter behov
forløbig er kun valgt at ændre baggrundsfarve
men andre formater kan også ændres fx skrifttype, farve m.v.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A9")) Is Nothing Then Exit Sub
Target.Interior.ColorIndex = xlNone
If Range("A1") <> "" Then
If Target Like "*BE*" Or Target Like "*VA*" Or Target Like "*TOM*" Then
Target.Interior.ColorIndex = 3
End If
End If
End Sub

Hej Exelent  - lidt langhåret men det virker fint så jeg arbejder videre med dit forslag - det giver selfølgelig mange flere muligheder når man koder sig ud af det.

send et svar og jeg returnerer points til dig  hilsen Knud

ok

eks med ændret skrifttype/størrelse

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A1:A9")) Is Nothing Then Exit Sub
Target.Interior.ColorIndex = xlNone ' nulstil baggrundsfarve
Target.Font.Name = "Arial" ' nulstil skrifttype
Target.Font.Size = 10 ' nulstil skriftstørrelse
If Range("A1") <> "" Then
If Target Like "*BE*" Or Target Like "*VA*" Or Target Like "*TOM*" Then
Target.Interior.ColorIndex = 3
Target.Font.Name = "Arial Black"
Target.Font.Size = 12
End If
End If
End Sub