strCompare probleempje

[corrosie]

Binnen excel heb ik het volgende probleempje:

dim transformationplan as string
TransformationPlan = "x 0.1"
print left(TransformationPlan,1)
x

print strcomp ( left(TransformationPlan,1), "x")
0
​

Dit gaat allemaal goed :thumb:

Maar: wanneer ik nu een cell in mijn excel sheet vul met "x 0.1", geeft de strcomp 1 af, ipv 0

TransformationPlan = Trim(wSheet.Cells(Row, Col).Value)
print TransformationPlan
× 0.1

print left(TransformationPlan,1)
x

print strcomp ( left(TransformationPlan,1), "x")
1
​

Wie o wie weet waar dit door komt, en hoe ik dit op kan lossen...?

 

[Wigi]

En wat met

print strcomp ( left(TransformationPlan,1), "x", 1)

Rest is ongewijzigd.

 

[corrosie]

Niet dus....

print strcomp ( left(TransformationPlan,1), "x", 1)
-1

TransformationPlan="x 0.1"
print strcomp ( left(TransformationPlan,1), "x", 1)
0​

 

[Wigi]

Dit werkt voor mij wel hoor:

Sub ee()
Cells(1, 1) = "x 0.1"
TransformationPlan = Trim(Cells(1, 1).Value)
Debug.Print TransformationPlan

Debug.Print Left(TransformationPlan, 1)

Debug.Print StrComp(Left(TransformationPlan, 1), "x")
End Sub

Wigi

 

[corrosie]

Ok, probleem gevonden:

Dit stond in de cell: "× 0.1"
En ik dacht dat er dit stond: "x 0.1"

Thanks Wigi!
:thumb:

 

[Wigi]

Ik had die kleine x ook al opgemerkt in je eerste code, maar dacht dat dat een vergissing was. Iig, goed dat het werkt nu.