Entering a text in a cell based on another cell value

[Basemraven]

i use a simple (if) line to add a text to a cretin cell based on a cell value
but the problem is all 0,## values (0,01/0,02/-0,01.......) considered as 0 and not as above 0
the code i use is

If com = 0 Then Range("A" & LastRow + 1) = "Summe:"
If com <= 5 And com > 0 Then Range("A" & LastRow + 1) = "Ausbuchen"
If com < 0 And com >= -5 Then Range("A" & LastRow + 1) = "Ausbuchen"
If com >= 15 Or com <= -15 Then Range("A" & LastRow + 1) = "Stehen lassen"

in case of 0 then text1
between (-5 , 5 ) text2
above than -15 or +15 text3

 

[Joe4]

How is "com" defined in your code?
Have you declared it to be "Long" or "Integer"?

If so, those are whole numbers and drop all decimals.
You will want to declare it as "Single" or "Double".

 

[Basemraven]

How is "com" defined in your code?
Have you declared it to be "Long" or "Integer"?

If so, those are whole numbers and drop all decimals.
You will want to declare it as "Single" or "Double".

Thank man!
i tried so many things except that ?

 

[Basemraven]

it was (Dim com As Long)
now it works great with "Single"

 

[Joe4]

You are welcome.