Boolean in VBA are returned in local language

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

If Not CStr(bolVal) then


--
Cheers
Nigel



<[email protected]> wrote in message
news:[email protected]...
> 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
>

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

If Not bolVal Then

--
Cheers
Nigel



"Nigel" <[email protected]> wrote in message
news:%[email protected]...
> If Not CStr(bolVal) then
>
>
> --
> Cheers
> Nigel
>
>
>
> <[email protected]> wrote in message
> news:[email protected]...
> > 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
> >
>
>

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)

<[email protected]> wrote in message
news:[email protected]...
> 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
>

Thanks both of you. That helped.

Regards,
Reto
Bob Phillips wrote:
> 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)
>
> <[email protected]> wrote in message
> news:[email protected]...
> > 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
> >

Hi,
I tried following in VBA immediate window.

?"true" = true
True
?"false" = false
True
?"false" = true
False
?"true" = false
False
?"false" = true
False

I hope this will help.

but following shows Type Mismatch error
?"" = true
?"" = false


Thank you,

rahul_var