VBA-Decimal input i textfelt overføres til celle som text.

[A1] = CDec(Me.TextBox1.Value)

øh - det er jeg ikke med på. Er ny i VBA.
Jeg overfører med denne metode:

ActiveCell.Offset(0, 3) = TextBox1.Value

hvis du har flere textbokse, er det lettere at vælge hvilken hvis
du starter med me.
så får du en liste du kan vælge imellem

ActiveCell.Offset(0, 3) = cdec(TextBox1.Value)

men det er muligt vi skal over i noget med lokal decimalseperator
ala :

lokal = Application.DecimalSeparator
x = Me.TextBox1.Value
If InStr(x, ".") > 0 Then x = Application.WorksheetFunction.Substitute(x, ".", lokal)
If InStr(x, ",") > 0 Then x = Application.WorksheetFunction.Substitute(x, ",", lokal)
x = CDec(x)
[A1] = x

skal lige lufte hunene..  tilbage om 30 min.

Jeg forstår det desværre ikke helt. Kan ikke finde ud af, hvor jeg skal anvende koderne,

Jeg har denne kode på den påfældende TextBox (Der må kun indtastes tal og komma):

Private Sub TextBox8_KeyPress(ByVal KeyAscii As MSForms.ReturnInteger)
    Select Case KeyAscii
        Case Asc("0") To Asc("9")
        Case Asc(",")
        Case Else
            KeyAscii = 0
            MsgBox "Du må kun indtaste TAL!", 16, "Fejl"
    End Select
End Sub

Og når der klikkes på [OK-knappen], så har jeg denne kode:

Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Test").Activate
    Range("A1").Select
    ActiveCell.Value = TextBox2.Value
    ActiveCell.Offset(0, 1) = TextBox3.Value
    ActiveCell.Offset(0, 2) = ComboBox1.Value
    ActiveCell.Offset(0, 3) = TextBox4.Value
    ActiveCell.Offset(0, 4) = TextBox5.Value
    ActiveCell.Offset(0, 5) = TextBox6.Value
    ActiveCell.Offset(0, 6) = TextBox7.Value
    ActiveCell.Offset(0, 7) = TextBox8.Value
        Me.Label13 = Sheets("Test").Range("A4").Text
    Range("A1").Select
End Sub

prøv start med at ændre i knappens kode :

ActiveCell.Offset(0, 7) = cdec(TextBox8.Value)

virker det ikke så tager vi den der fra

Så har jeg prøvet det, men får en fejl:
Run-time error '13':
Type mismatch

virker fint her, hvilken linie stopper koden i ?

Spørgsmålet er nok om jeg har sat linjen, der rigtige sted. Koden ser sådan her ud, og den stopper ved den kodelinje, som du har foreslået:

Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Test").Activate
    Range("A1").Select

    ActiveCell.Value = TextBox2.Value
    ActiveCell.Offset(0, 1) = TextBox3.Value
    ActiveCell.Offset(0, 2) = ComboBox1.Value
    ActiveCell.Offset(0, 3) = TextBox4.Value
    ActiveCell.Offset(0, 4) = TextBox5.Value
    ActiveCell.Offset(0, 5) = TextBox6.Value
    ActiveCell.Offset(0, 6) = TextBox7.Value
    ActiveCell.Offset(0, 7) = CDec(TextBox8.Value)
    Me.Label13 = Sheets("Test").Range("A4").Text
    Range("A1").Select
End Sub

ok jeg prøver lige med din talgenerator i mit eks. ark

Selv om jeg fjerner talgeneratoren på TextBox8, får jeg stadig fejlen.

Det var mystisk, jeg kan ikke få mit eks.til at fejle
hverken med eller uden talgeneratoren

Har du mulighed for at sende filen ?

prøv evt. lige

ActiveCell.Offset(0, 7) = CDec(TextBox8.Value)
ret til
ActiveCell.Offset(0, 7) = TextBox8.Value * 1

Samme fejl og i samme linje.
Hvad skulle den linje gøre - den er magen til den oprindelige linje, bortset fra "* 1"

konvertere tekst til tal

Hov - jeg har lige opdaget, at programmet faktisk kan finde ud af at regne på tallene med decimaler, selv om de overføres til arket som tekst.
Så det lader til at jeg ikke behøver den konvertering!

har du formateret cellerne som tekst?

Næh - de står bare til "Standard". Men det virker.

den eneste måde jeg kan fremprovokerer Run time error 13
er ved at indtaste fx. "1,1  eller '1,1 eller a1,1
måske det kan give et hint til problemet

Tak for dine mange bidrag. Jeg har det til at virke, men har ikke fundet ud, hvad det er der fejler. Det virker med den oprindelige kode - og det er jeg lige nu tilfreds med.

Send venligst et svar.

Jeg har lige en ting mere, men jeg stiller det i et nyt Excel-spørgsmål.

ok