Enkelt problem med att returnera ett värde istället för text

[Loranga]

Aloha (Fairwinds... )


Jag har ett enkelt problem, nämligen när jag tar ett värde från en textbox i ett userform och sedan skickar det värdet till en cell så blir talet sparat som text.

Det ställer till problem eftersom jag då exempelvis måste skriva 5.5 istället för 5,5 i textboxen för att det ska fungera.

Här är en litet utklipp av min kod

txtTimmar.Value = ""

ActiveCell.Offset(0, 7) = txtTimmar.Value

 

[fairwinds]

Hej!

VBA har inga nationella inställningar.
D.v.s för att känna igen ett tal som är inskrivet som text måste det ha punkt som separator.

Testa att göra något i denna stilen:

Sub xxx()
x = InputBox("Skriv in ditt tal!")
x = Val(WorksheetFunction.Substitute(x, ",", "."))
Range("A1") = x
End Sub

Oavsett om du skriver in punkt eller komma så kommer nu variabeln att innehålla ett tal. Som sedan visas som du vill beroende på dina nationella inställningar i Excel