Waarden in textbox vermenigvuldigen

[Christophe1]

Goede namiddag

Zou iemand mij kunnen helpen a.u.b.? Ik kan het antwoord hier niet vinden.
Ik heb een userform met textboxen. Daar komen waarden in.
Ik zou nu met behulp van een commandbutton de waarde in textbox2 willen vermenigvuldigen met de waarde in textbox3 en de uitkomst komt dan in textbox4.
Alvast bedankt voor de tip.
Groeten
Christophe

 

[gast0660]

Zo?

Private Sub CommandButton1_Click()
    TextBox4 = Val(TextBox2) * Val(TextBox3)
End Sub

 

[Christophe1]

Super. Bedankt voor de snelle reactie.
Het verschil met wat ik gedaan heb is die 'Val', uiteraard niet onbelangrijk.
Kan je mij zeggen wat die uiteindelijk doet?
Ik zou ook willen delen en procenten berekenen, zou dit mij ook daarbij kunnen helpen?

 

[Haije]

Val is een VBA-afkorting voor Value, waarde.

 

[gast0660]

Ik zou ook willen delen en procenten berekenen

Delen

Private Sub CommandButton1_Click()
TextBox3 = Val(TextBox1) / Val(TextBox2)
End Sub

Procent
Volgende code is om bv 9% BTW bedrag te berekenen.

Private Sub CommandButton1_Click()
TextBox2 = Val(TextBox1) * 0.09
End Sub

 

[edmoor]

Het verschil met wat ik gedaan heb is die 'Val', uiteraard niet onbelangrijk.
Kan je mij zeggen wat die uiteindelijk doet?

Een cijfer in een Textbox is nog steeds tekst en daar kan je niet mee rekenen.
De VAL functie converteerd deze naar numerieke waarden:
https://www.excelfunctions.net/vba-val-function.html

 

[Christophe1]

Hartelijk bedankt voor de nuttige info.
Ik kan weer verder en ik begrijp nu waarom ik fout zat. Top!
Groetjes
Christophe

 

[Christophe1]

Nu komt ik een gelijkaardig probleem tegen.
In de textboxen plaats ik waarden uit cellen met deze code:

UserForm1.TextBox1.Text = [A2]
UserForm1.TextBox2.Value = [D2] + [E2] + [F2] + [G2] + [H2] + [I2] + [J2] + [K2] + [L2] + [M2]
UserForm1.TextBox5.Value = [A5]
UserForm1.TextBox3.SetFocus
UserForm1.Show

De optelling gaat prima maar dan wil ik deze uitkomst berekenen en vergelijken met een manueel ingevoerde target met deze code:

Private Sub CommandButton4_Click()

Private Sub CommandButton4_Click()

If TextBox3.Text = "" Or TextBox8.Text = "" Then
MsgBox ("Je moet een target invullen!")
Else

TextBox4 = Val(TextBox8) * (Val(TextBox3) / 100)
If TextBox2.Value >= TextBox4.Value Then
TextBox6.TextAlign = fmTextAlignLeft
TextBox6.Value = "Gefeliciteerd " & TextBox1.Text & ", je hebt je target gehaald!"
Else
TextBox6.TextAlign = fmTextAlignLeft
TextBox6.Value = "Jammer " & TextBox1.Text & ",deze maand was het target te hoog voor jou." & " Veel succes gewenst voor volgende maand!"
End If
End If
End Sub

Het probleem is nu dat de vergelijking niet klopt.
Zou ik hier ook ergens moeten duidelijk maken dat het om een getal gaat?

 

[Christophe1]

Wat ik eigenlijk vreemd vind is dat de 'ALS' functie soms wel klopt en dan weer niet. Zo vergelijk ik een target van 4000 met het behaalde resultaat 600 en krijg ik de melding dat de target niet is gehaald. Onmiddellijk daarna maak ik dezelfde berekening en dan krijg ik dat het target wel gehaald is. Ik heb dus sterk de indruk dat de weergegeven getallen niet als dusdanig worden gelezen.
Ik heb al geprobeerd om volgende code te gebruken:

Private Sub TextBox2_Change()
TextBox2.Value = Format(Int(TextBox2.Value), "#,##0.00")

Om duidelijk te maken het om een getal gaat maar het werkt ook niet.

Zou iemand hier mee overweg kunnen a.u.b.?
Alvast bedankt.

 

[Haije]

Cristophe,

plaats eens (een voorbeeld van) je bestand, dus met de textboxen en de code die je hebt....

 

[Christophe1]

Dag Haije

Het voorbeeldbestand.
In het Exceldocument kan je selecteren wat je wilt toetsen aan de target.
Die toets kan je doen in de Userform via Start.
Als je dan je target invult: XXX% van een bepaald bedrag dan krijg je 'Jammer' of 'Gefeliciteerd'.
Soms kopt het, soms niet. Als je meerdere keren een ander target invult merk je dat het niet altijd juist is.

 

[Christophe1]

Ik denk dat het probleem zo simpel is dat iedereen eroverheen kijkt, ik nog het meest.
Ik heb de if/then situatie dan maar geschrapt, ik ga de gegevens uit de tekstboxen wegschrijven naar een ander werkblad en daar de vergelijking maken.
Maar hier weer problemen. Ik schrijf weg naar kolom A t.e.m. F. De gegevens in de userform komen uit een ander blad.
Na het wegschrijven kan ik bepaalde cellen niet meer selecteren via de tabtoets, die wordt dan genegeerd. Vreemd.

Ik gebruik deze code voor het inlezen in texboxen:

UserForm1.TextBox1.Text = [A2]
UserForm1.TextBox2.Value = [D2] + [E2] + [F2] + [G2] + [H2] + [I2] + [J2] + [K2] + [L2] + [M2]
UserForm1.TextBox5.Value = [A5]

UserForm1.TextBox3.SetFocus

UserForm1.Show

En deze code om de gegevens weg te schrijven:

Private Sub CommandButton5_Click()

Sheets("Historiek Commissies").Select

With Sheets("Historiek Commissies")
    lrij = .Range("A" & Rows.Count).End(xlUp).Row + 1
    .Cells(lrij, "A") = TextBox1.Value
    .Cells(lrij, "B") = TextBox5.Value
    .Cells(lrij, "C") = TextBox2.Value
    .Cells(lrij, "D") = TextBox3.Value
    .Cells(lrij, "E") = TextBox4.Value
    .Cells(lrij, "F") = TextBox8.Value

End With
End Sub

Aangezien ik veronderstel dat dit zou moeten lukken lijkt het mij dat de gegevens veranderen van aard/eigenschap?