Values Unrecognizable After Update Userform

[mucah!t]

Hi all,

The following code edits/adds the value of textbox2 to its corresponding cell.
The problem with it is that after updating, the values are unrecognizable and can't be used for further calculations.

    With LB
        LI = .ListIndex
        Range(.ListFillRange).Cells(LI + 1, 2).Value = TextBox2.Value
        .ListFillRange = .ListFillRange
        .ListIndex = LI
    End With

- Texttocolumns solves the problem, but recording it results in an error.
- Google offered the following solution:

Worksheets("Database").Columns("J").TextToColumns Destination:=Range("J1"), FieldInfo:=Array(1, 1)

Although it does not gives an error it makes even more values in the column unrecognizable.

Perhaps the problem can be solved in the way the value is updated in the first place instead of fixing it afterwards.

Any ideas?

 

[Norie]

I only suggested using Val.

How can putting one value in a cell change all these others?

Is there anything else going on?

 

[mucah!t]

There was indeed some other code crating the problem.
Then only one thing remains Val(Textbox2.Value) removes numbers after the decimal.
I tried the following but it resulted in an error.

Dim Value as Double

    With LB
        LI = .ListIndex
        Range(.ListFillRange).Cells(LI + 1, 10).Value= Val(TextBox10.value)
        .ListFillRange = .ListFillRange
        .ListIndex = LI
    End With

 

[Norie]

What's the purpose of .ListFillRange = .ListFillRange?

Is it meant to update the list.

By the way Value is a very bad name for a variable, Value is a property of lots of things in Excel/VBA.