Divide two double type data in VBA with keeping the formula

DA,

I have a question with the following problem.
I would like to divide two numbers (stored as Double), but also would like to keep them separately in the cell, so when you select the cell you can see: "=12,33/1,2342" (example)

Dim T4ANumerator As Double
Dim T4ADominator As Double

T4ASheet.Activate
T4ANumerator = T4ASheet.Range(T4ANumeratorCell).Value
T4ASheet.Range(T4ANumeratorCell).Select
'msgbox testing that T4ANumarator is having the value I needed
MsgBox T4ANumerator
T4ADominator = T4ASheet.Range(T4ADominatorCell).Value
T4ASheet.Range(T4ADominatorCell).Select
'Same as before
MsgBox T4ADominator
T4BSheet.Activate
T4BCell.Select
'This is the line where I have the error
T4BCell.Value = "=" & T4ANumerator + "/" & T4ADominator

Thank you for your help in advance.


BR,
Daniel

Have you tried changing the + to an &

From this

T4BCell.Value = "=" & T4ANumerator + "/" & T4ADominator

To this

T4BCell.Value = "=" & T4ANumerator & "/" & T4ADominator

You are right, it worked w/o the "=".

However what I received now is not good for me either.

What I need in the cell:
e.g.: 2
What I need in the function field when I click on the field is: =6,5/3,25

Hi Crooza,

Yes, I've tried (actually I started with that one), but later I chose to try everything I could, but nothing helped me .

I tried:
- change double data type to string
- change double to integer (in that case it worked, but integer doesn't have decimal, therefore it wasn't good for me)

My guess is that the problem is behind the decimals so I tried to convert the decimal from "," to ".", but this wasn't good either.

This code works. puts the =6.5/3.25 in the cell(and the formula bar) but the cell displays 2

Sub test()
Dim a, b As Double
Dim c As String


a = 6.5
b = 3.25
c = "=" & a & "/" & b


Range("a3").Value = c

End Sub

here you go this should work for you

Dim T4ANumerator As Double
Dim T4ADominator As Double
dim x as string

T4ASheet.Activate
T4ANumerator = T4ASheet.Range(T4ANumeratorCell).Value
T4ASheet.Range(T4ANumeratorCell).Select
'msgbox testing that T4ANumarator is having the value I needed
MsgBox T4ANumerator
T4ADominator = T4ASheet.Range(T4ADominatorCell).Value
T4ASheet.Range(T4ADominatorCell).Select
'Same as before
MsgBox T4ADominator
T4BSheet.Activate
T4BCell.Select
'This is the line where I have the error
x = "=" & T4ANumerator & "/" & T4ADominator
T4BCell.Value = x

Crooza, U R awesome

This helped a lot.

Note:
I needed to extend this to work with the following due to the decimal separator differences:

Dim T4ANumerator As Double
Dim T4ADominator As Double
dim x as string

T4ASheet.Activate
T4ANumerator = T4ASheet.Range(T4ANumeratorCell).Value
T4ASheet.Range(T4ANumeratorCell).Select
'msgbox testing that T4ANumarator is having the value I needed
MsgBox T4ANumerator
T4ADominator = T4ASheet.Range(T4ADominatorCell).Value
T4ASheet.Range(T4ADominatorCell).Select
'Same as before
MsgBox T4ADominator
T4BSheet.Activate
T4BCell.Select
'This is the line where I have the error
x = "=" & T4ANumerator +& "/" & T4ADominator
T4BCell.Value = Replace(x,",",".")

Thank you once again.

BR,
Daniel