vba inputbox en decimaal getal

[glda19]

Hi

Bij een inputbox geef ik 1.5 in en wil daar waarde bij optellen dan moet ik eerst dat punt omzetten naar komma
Dit doe ik als volgt

If InStr(1, DblIngave, ".", 1) Then
   DblIngave = Replace(DblIngave, ".", ",")
End If

Kan ik niet zorgen dat het direkt een komma is i.p.v punt

 

[edmoor]

Dat kan door geen punt in te geven maar een komma.

 

[glda19]

grapjas
maar dat weet ik ook
maar wil dit opvangen met code

 

[edmoor]

Je zegt een InputBox te gebruiken, dan kan dat niet.

 

[glda19]

wat kan ik dan beter gebruiken om dit te doen

 

[edmoor]

Een TextBox in een Userform, maar dan heb je wel meer code nodig dan zoals je het nu doet.

 

[glda19]

had ergens een code juist gezien waar ze het op 1 regel deden maar vind het niet meer

 

[HSV]

De punt op je numerieke toetsen geeft toch een komma in je inputbox?

Gebruik application.inputbox met het type 1.

 

[glda19]

@hsv thx werkt goed

 

[edmoor]

Dan kan je alleen nog steeds een punt ingeven.

 

[HSV]

Bij mij wordt het gewoon een komma hoor.

 

[glda19]

word komma hier ook

 

[edmoor]

Dat geloof ik direct maar je kan dan nog steeds een punt intikken.
Je kan het ook zo doen:

DblIngave = Replace(InputBox("Ingave: "), ".", ",")

 

[HSV]

Met application.inputbox type 1 kan je geen punt zetten.

 

[edmoor]

Het is dan afhankelijk van instellingen of er een punt of komma wordt geaccepteerd.
Bij mij wordt met die methode alleen een punt geaccepteerd en niet een komma.
Als je de verkeerde ingeeft krijg je een foutmelding.
Nogal onhandig naar mijn mening.

 

[HSV]

De inputbox wordt niet gesloten maar het verkeerd ingegeven wordt gemarkeerd zodat je de fout kan herstellen.

 

[edmoor]

Klopt. Daarom had ik dat weer weg gehaald