kode til excel (tæl tegn i felt)

Er der indhold i A5 på forhånd når arket aktiveres eller ...

Private Sub Worksheet_Change(ByVal Target As Range)
'Ændres der i A5
    If Target.Address = "$A$5" Then
   
'Mål længden af A5 og vis den i A1
        Range("A1") = Len(Target)
       
'Hvis længden er 10 - A1=grøn
        If Len(Target) = 10 Then
            Range("A1").Interior.ColorIndex = 4
        Else
'Ellers rød
            Range("A1").Interior.ColorIndex = 3
        End If
    End If
End Sub

hejsa... der er indhold i A5 på forhånd...

Skal jeg sætte al den tekst ind i felt A1..?

Jeg ændrelige koden således, at den udføres når arket aktiveres eller der ændres i A5 - ok?

Koden skal lægges ind "under arket" (Højreklik på ark / Vis programkode) Indsættes heri via alm. kopier/indsæt

' Når arket aktiveres
Private Sub worksheet_activate()
    visLængde
End Sub
' Hvis der ændres i A5
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$5" Then
        visLængde
    End If
End Sub
Private Sub visLængde()
'Mål længden af A5 og vis den i A1
    Range("A1") = Len(Range("A5"))
       
'Hvis længden er 10 - A1=grøn
    If Len(Range("A5")) = 10 Then
        Range("A1").Interior.ColorIndex = 4
    Else
'Ellers A1 = rød
        Range("A1").Interior.ColorIndex = 3
    End If
End Sub

Hej igen..

desværre gør det ikke helt...

eksemplet m. A1 og A5 er eksempler. Jeg har 800 rækker ned ad i arket, som jeg skal have tjekket og ligeledes flere forskellige kolonner.

Derfor skal det gerne blot være en formellinje jeg kan sætte ind A1 og "trække" nedad samt flytte "target" feltet A5 til andre felter...

Jeg vil jo mene at det lidt simplere at skrive fx følgende formel i A1:
=IF(LEN(A5)=10;0;1)

Og så lave noget conditional formatting for at få feltet til at blive grønt eller rødt.

Alternativt farve cellen rød og så direkte i conditional formatting farve cellen grøn med denne betingelse:
=(LEN(A5)=10)

OK..

På dansk hedder funktionen LÆNGDE()
=HVIS(LÆNGDE(A5)=10;0;1)
og

=(LÆNGDE(A5)=10)

Super - keep it simple:)

Takker

super!

Tak for det!