Boolean in VBA are returned in local language

[rlaemmler]

Hi,

My VBA script reads some values from cells and sends them to a
webservice. I just realized that using a German Excel e.g.
cell.Font.Strikethrough is returned as Wahr/Falsch instead of
True/False. I tried following code snippet I found online but
unfortunately didn't help either:
......
Dim bolVal As Variant
bolVal = cell.Font.Strkethrough
If CStr(bolVal ) = "False" Then ' Unfortunately this didn't help.
........

Has anybody an idea how to convert this from any language to
True/False?

Reto

 

[Nigel]

If Not CStr(bolVal) then

 

[Nigel]

Sorry forgot to remove the Cstr conversion.........try this

If Not bolVal Then

 

[Bob Phillips]

Why not test the boolean directly

Why not test the Boolean directly

Dim bolVal As Variant
bolVal = cell.Font.Strkethrough
If bolVal = FALSE Then


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[rlaemmler]

Thanks both of you. That helped.

Regards,
Reto

Why not test the boolean directly

Why not test the Boolean directly

Dim bolVal As Variant
bolVal = cell.Font.Strkethrough
If bolVal = FALSE Then


--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)