Userforms

[marco90]

Goedendag,

Ik ben bezig met een userform met textboxen, waarin ik een getal wil invoeren.

In het excell bestand wordt dan een waarde ingevuld, alleen krijg ik die niet als getal te zien ????????

Het probleem volgt dan dat mijn optelling van de bedragen niet meer werkt.

Wie weet wat ik hier aan moet doen .


Alvast bedankt mensen.

 

[Hoppa]

Zouden de celeigenschappen van de cel waarin jouw getal moet komen te staan wellicht invloed hebben op de weergave?

Of wordt er helemaal niets weergegeven?

Kijk daar eens naar. Wellciht kun je het bestand meesturen, kunnen we het ook op die manier bekijken.

 

[Hans123]

Een tekstbox geeft dacht ik een string als resultaat.

met de functie Cdbl(input uit tekstvak) kun je een string converteren naar een getal met dubbele precisie. als integer voldoende is kun Cint gebruiken

 

[LucB]

Even een gokje.

Range("A2") = CInt(TextBox1.Text)

Als dit niet helpt, zet je code dan even hier.

 

[marco90]

Dames en heren,

Innig gelukkig kan ik het weekend in.
Het werkt perfect.

Allen bedankt voor deze steun.


Dit is hem uiteindelijk geworden.

Marco K

If txtbedrag > 0 Then
Range("bmpositief") = CDbl(txtbedrag)
Range("bmnegatief") = ""
End If

:thumb:

 

[Hans123]

Ik ben bang dat dit nog niet goed gaat werken, je test namelijk eerst of txtbedrag > 0 is. Op het moment van testen is txtbedrag echter nog een string en zal ook bij negatieve waarden de voorwaarde true zijn. Voor dat je de inputtext gaat vergelijken zal je er eerst een getal van moeten maken.

Volgens mij moet het er als volgt uitzien:

waarde= CDbl(txtbedrag)
if waarde> 0 then
Range("bmpositief") = waarde
Range("bmnegatief") = ""
End If

 

[marco90]

Sorry,

Dit was de gehele instelling.
Deze werkt ook als het getal negatief is.
Ik weet niet hoe excell het doet, maar daar reageert hij wel goed.
Volgens mij maakt hij er een string van op het moment dat het getal ergens wordt ingevuld.


If txtbedrag < 0 Then
Range("bmnegatief") = CDbl(txtbedrag)
Range("bmpositief") = ""


If txtbedrag > 0 Then
Range("bmpositief") = CDbl(txtbedrag)
Range("bmnegatief") = ""
End If
End If

 

[Hans123]

Apart, maar als het werkt is het goed. In ieder geval een prettig weekend.