Vurdering af strenge i celler

Hvis de indsatte formler af en eller anden grund
bevirker at arket ikke bliver beregnet færdigt kan det give nogle fejlværdier. F.eks hvis der opstår cirkulære referencer eller kalkulation står i manuel.
Jeg har også været ude at indsatte værdier jeg forventede ville blive fortolket som tal blev opfattet som tekst.

Prøv følgende kode. Den virker i nogle tilfælde

Dim r As Range

For Each r In ActiveSheet.UsedRange
    If Not IsEmpty(r) Then
        If IsNumeric(r.Formula) Then
            r = CLng(r) \'konverter til long
        Else
            r.Formula = r.Formula
        End If
    End If
Next r

Prøv måske også at undersøge om nogle af dine celler er formateret som text:

If r.NumberFormat = \"@\" Then MsgBox r.Address & \" er formateret som text\"

VH nerøs

Yo! Nerøs !! Jeg har et problem; min programkode kan ikke være på to linier!! Jeg får nok
brug for noget hjælp til at forkorte udtrykket! Kan jeg regne med at du kigger på det
snarest hvis jeg sender det til dig ?!?

*Håbe Håbe*, Zim

Tak Søren,

Jeg har ikke fået prøvet dit forslag endnu, men det ser lovende ud.

Jeg havde egentligt håbet på en elegant/simpel løsning ala \"CALCULATE\", men det findes åbenbat ikke.

Jeg takker for de mange ubesete points - du må sige til hvis hvis jeg kan hjælpe mere.
Du kunne måske allerede når du \"smider\" værdierne ind at de bliver opfattet som ønsket.

Kommentaren fra zim må han uddybe nærmere. Har den noget med dette spørgsmål at gøre?!

VH Nerøs

Nope, har selv løst det!

Jeg har fået løst mit problem, jeg manglede en enkelt kommando i min kode nemlig \"DoEvents\", nu virker skidtet, og jeg ærger mig over alt det besvær jeg har haft pga. otte skide bogstaver.