Tal formateret eller gemt som tekst

Prøv:

.Offset(0, 3).Value = Format(IndlæsNyeAflæsninger.AktuelAflæsning, "#,##0")

Eller prøv at sætte format først:

  With ActiveCell
        .Value = dDate
        .Value = IndlæsNyeAflæsninger.AktuelDato
        .Offset(0, 1).Value = ActiveSheet.Name
        .Offset(0, 2).Value = "El"
        .Offset(0, 3).NumberFormat = "0"
        .Offset(0, 3).Value = IndlæsNyeAflæsninger.AktuelAflæsning
    End With

Ingen af forslagene virker, desværre.

I koden bliver 2 tekstbokse brugt til at sammenligne forskellige værdier, den ene tekstboks er den fra ovenstående kode. Der har været enkelte tilfælde, opdagede det nu, hvor resultatet af sammenligningen ikke passer. Sammenligningen går i sin enkelthed ud på, mindre end, lig med, større end. Kan det evt. skyldes formateringen af disse???

er
dim
som
string ?

Når jeg køre en simpel test, formateres cellen fint, med formatet "Tal"

Hej Morten
Det er rigtigt, at tallet bliver formateret som tal, men der er stadig en fejl meddelse i cellen, hvor tallet bliver skrevet:

"Tallet i denne celle er formateret som tekst eller har en foranstillet apostrof".

Det andet problem med "sammenligningerne kan jeg evt oprette i nyt spørgsmål?

Hej Finb

Jeg forstår ikke helt dit spørgsmål. Vil du uddybe.

"men der er stadig en fejl meddelse i cellen"

Betyder det at denne "fejl" bliver ved med at være der, eller bliver ved med at komme?

Makroen kan jo ikke fjerne denne meddelelse.

Fejlen bliver ved med at komme, også selv om jeg læser ind på nye ark. Hvad med formateringen i selve tekstboksen?

Har lige forsøgt med sammenligningen igen, som jeg har nævnt, her kommer den stadig op med forkert vurdering af tallene i de 2 textbokse. Hvis du ikke har et bud eller mener, der en sammenhæng, opretter jeg dette problem et nyt spørgsmål

Er det "Stats hemmeligheder" ?
Ellers er du velkommen til at sende på E-mail.
Det gør det som regel nemmere, unde at love noget ;-)

Hej Morten
Jamen, det er det ikke,Jeg har lige et møde. Herefter sender jeg det til dig.
..Og tusind tak fordi du gider.

Hej Morten

Ja, sådan gør man det. Tusind tak for hjælpen. Lægger du et svar?


Private Sub UserForm_Initialize()
   
    Dim r As Range
    With Worksheets("Stamdata")
        Set r = .Range("C2", .Range("C50").End(xlUp))
    End With

    RDMålerkode.RowSource = "Stamdata!" & r.Address
   
    'Indsætter aktuelt år/dato
    Me.AktuelDato = Format(Date, "DD/MM/YYYY")
   
    SenesteAflæsning.Text = Format(Number, "0") 'Rettet format fra 0.0000 til 0
    AktuelAflæsning.Text = Format(Number, "0")  'Rettet format fra 0.0000 til 0
    AktuelAflæsning.BackColor = vbButtonFace
    AktuelAflæsning.Enabled = False
    AktuelAflæsning.Value = ""

End Sub

Og:
Sub GemmeData()
    Application.ScreenUpdating = False 'tilføjet denne linie


With ActiveCell
    .Value = dDate
    .Value = IndlæsNyeAflæsninger.AktuelDato
    .Offset(0, 1).Value = ActiveSheet.Name
    .Offset(0, 2).Value = "El"
    .Offset(0, 3).NumberFormat = "0" 'tilføjet denne linie
    .Offset(0, 3).Value = Format(IndlæsNyeAflæsninger.AktuelAflæsning, "#0") 'Rettet formatet fra #.##0 til #0
End With


    Application.ScreenUpdating = True
   
  Application.ScreenUpdating = True 'slettet denne linie
End Sub

Velbekomme