Decimal Formatting in Windows English vs European Formatting

Hello,

I am currently working on a project that is used in America, Europe,
and South America, etc.

I have a line of code that works and formats the ComboBox decimals
properly in English, but when I change the Windows Language Options to
German, Spanish, French, etc, (the decimal and periods are reversed) it
gives me a VB Error on the line of code below:

UserForm1.ComboBox1.Value = Format(UserForm1.ComboBox1.Value, "#0.000")

The line of code above is used to format the ComboBox value on page
entry. Does anybody have any idea why this won't work in European
languages?


Also, this line of code happens to work perfectly in all languages
tested so far:

For j = 12 To 23
ComboBox1.AddItem Format((Worksheets("Worksheet1").Cells(j,
11).Value), "#0.000")
Next j

This adds and formats the entries from the Cells to the ComboBox
dropdown menu. It works fine in all languages.

Your help and suggestions are appreciated!

Hi Drummer,

What error do you receive?

If I used continental European settings, I had no problem with the
indicated line of code.


---
Regards,
Norman



"Drummer361" <[email protected]> wrote in message
news:[email protected]...
> Hello,
>
> I am currently working on a project that is used in America, Europe,
> and South America, etc.
>
> I have a line of code that works and formats the ComboBox decimals
> properly in English, but when I change the Windows Language Options to
> German, Spanish, French, etc, (the decimal and periods are reversed) it
> gives me a VB Error on the line of code below:
>
> UserForm1.ComboBox1.Value = Format(UserForm1.ComboBox1.Value, "#0.000")
>
> The line of code above is used to format the ComboBox value on page
> entry. Does anybody have any idea why this won't work in European
> languages?
>
>
> Also, this line of code happens to work perfectly in all languages
> tested so far:
>
> For j = 12 To 23
> ComboBox1.AddItem Format((Worksheets("Worksheet1").Cells(j,
> 11).Value), "#0.000")
> Next j
>
> This adds and formats the entries from the Cells to the ComboBox
> dropdown menu. It works fine in all languages.
>
> Your help and suggestions are appreciated!
>

Hi Norman,

The error I get is:

Run-time error '380':
Could not set the Value property. Invalid property value.

Then I click "debug" and it sends me to the highlighted line of code
above.


Norman Jones wrote:
> Hi Drummer,
>
> What error do you receive?
>
> If I used continental European settings, I had no problem with the
> indicated line of code.
>
>
> ---
> Regards,
> Norman
>
>
>
> "Drummer361" <[email protected]> wrote in message
> news:[email protected]...
> > Hello,
> >
> > I am currently working on a project that is used in America, Europe,
> > and South America, etc.
> >
> > I have a line of code that works and formats the ComboBox decimals
> > properly in English, but when I change the Windows Language Options to
> > German, Spanish, French, etc, (the decimal and periods are reversed) it
> > gives me a VB Error on the line of code below:
> >
> > UserForm1.ComboBox1.Value = Format(UserForm1.ComboBox1.Value, "#0.000")
> >
> > The line of code above is used to format the ComboBox value on page
> > entry. Does anybody have any idea why this won't work in European
> > languages?
> >
> >
> > Also, this line of code happens to work perfectly in all languages
> > tested so far:
> >
> > For j = 12 To 23
> > ComboBox1.AddItem Format((Worksheets("Worksheet1").Cells(j,
> > 11).Value), "#0.000")
> > Next j
> >
> > This adds and formats the entries from the Cells to the ComboBox
> > dropdown menu. It works fine in all languages.
> >
> > Your help and suggestions are appreciated!
> >

Ah forget this issue I think I've created a larger monster. I'll post
about it in a new topic.

Drummer361 wrote:
> Hi Norman,
>
> The error I get is:
>
> Run-time error '380':
> Could not set the Value property. Invalid property value.
>
> Then I click "debug" and it sends me to the highlighted line of code
> above.
>
>
> Norman Jones wrote:
> > Hi Drummer,
> >
> > What error do you receive?
> >
> > If I used continental European settings, I had no problem with the
> > indicated line of code.
> >
> >
> > ---
> > Regards,
> > Norman
> >
> >
> >
> > "Drummer361" <[email protected]> wrote in message
> > news:[email protected]...
> > > Hello,
> > >
> > > I am currently working on a project that is used in America, Europe,
> > > and South America, etc.
> > >
> > > I have a line of code that works and formats the ComboBox decimals
> > > properly in English, but when I change the Windows Language Options to
> > > German, Spanish, French, etc, (the decimal and periods are reversed) it
> > > gives me a VB Error on the line of code below:
> > >
> > > UserForm1.ComboBox1.Value = Format(UserForm1.ComboBox1.Value, "#0.000")
> > >
> > > The line of code above is used to format the ComboBox value on page
> > > entry. Does anybody have any idea why this won't work in European
> > > languages?
> > >
> > >
> > > Also, this line of code happens to work perfectly in all languages
> > > tested so far:
> > >
> > > For j = 12 To 23
> > > ComboBox1.AddItem Format((Worksheets("Worksheet1").Cells(j,
> > > 11).Value), "#0.000")
> > > Next j
> > >
> > > This adds and formats the entries from the Cells to the ComboBox
> > > dropdown menu. It works fine in all languages.
> > >
> > > Your help and suggestions are appreciated!
> > >