Markere tal visse tal i regneark?

Lav en række ved siden af den med tallene

hvis tal står i A, så =HVIS(A1>0,21;"**";HVIS(OG(A1>0,16;A1<0,21);"*";""))
I kolonne C laver du =A1&B1

Tag så ved celle C1 og træk ned til nederste række med værdier.

Du kan så kopier helle kolonne C og indsætte det med "indsæt speciel" og kun værdier hvis du ikke ønsker at have nogen formler.

Vær opmærksom på at hvis tallet er = 0,21 er der ikke nogen "*" eller "**"

Okey... Det lyder godt.

Hvordan gør jeg hvis tallene fylder fra B til Ay og fra 2 til 51?

Kan det så lade sig gøre, hvis man ændre lidt i formlen?

Finder tallene og tilføjer * el ** i samme selle som tal

Sub Star()

Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select
For Each c In Selection
If c.Value > 0.21 Then c.Value = "**" & c.Value
If c.Value > 0.16 And c.Value <= 0.21 Then c.Value = "*" & c.Value
Next

End Sub

Tak excelent... :-D

Det virker super... Bortset fra at jeg nu ikke kan nøjes med 2 decimaler, som cellen er indstillet til.

Kan det tilføjes i macroen?

øhh ikke forstået !!!

Alle de tal jeg skal have sat ** ved har op til 6 decimaler. Men for at gøre det mere overskueligt har jeg ændret det så der kun vises 2 decimaler.

Men når jeg kører macroen, så viser den igen 6 decimaler, og det kan jeg ikke ændre da den stadig står til 2 decimaler i celleindstillingen.

prøv

Sub Star()

Range("A1", ActiveCell.SpecialCells(xlLastCell)).Select
For Each c In Selection
If c.Value > 0.21 Then c.Value = "**" & Format(c.Value, "0.##")
If c.Value > 0.16 And c.Value <= 0.21 Then c.Value = "*" & Format(c.Value, "0.##")
Next

End Sub

Ja, da...

Takker mange gange!

Smid et svar for points!

ok velbekom

husk lige at lukke

Åhh ja!

Takker mange gange for hjælpen!