TextBox vullen met waarde uit andere Textboxen

[Excelvbas01]

Ik heb deze code maar als ik op de knop druk dan krrijg ik 0 als resultaat.

Sub Text()
Dim a, b, c, d As Integer
b = TextBox2.Value
c = TextBox3.Value
d = TextBox4.Value
a = (b + c)
End Sub

Private Sub Klant1_Click()
Dim a As Integer
txtLabel.Value = a
 End Sub

Wat doe ik hier fout.

 

[OctaFish]

Wat je doet is heel simpel: je declareert een variabele a in de laatste procedure (Dim a as Integer), en die is dan per definitie leeg, dus 0.
Wat denk je trouwens wat je hier doet?

[COLOR=#333333]Dim a, b, c, d As Integer[/COLOR]

er wordt maar één variabele als Integer gedeclareerd, (d dus), de rest niet. Elke variabele moet apart een type krijgen.

 

[Excelvbas01]

Ik heb 't veranderd en geen resultaat.
De bedoeling is vervanging voor deze code.

txtLabel.value = TextBox2.Value & TextBox3.Value

Ik wil een keer de code schrijven en daarna oproepen door een knop in te drukken. Zoals hier boven.
Alleen de code hier boven werkt (nog) niet.

 

[edmoor]

Je verteld niet wat je hebt veranderd.
Kijk eens naar dit simpele voorbeeldje:

 

[Excelvbas01]

Is niet precies wat ik bedoel.
Ik heb een bestand bijgevoegd en misschien geeft dit bestand helderheid.

 

[edmoor]

Zonder uitleg kan heb ik geen idee wat je probeert te bereiken.
Je gebruikt + en & door elkaar heen zet en spatie achter de waarde van een tekstbox.
Kortom, totaal onduidelijk.

 

[HSV]

Verwijder alle Dim regels.
Zet onderstaande regelcode onder Option Explicit.

Private a As String, b As String, c As String, d As String

Maak van Sub Text() → Sub tekst()
en van (b+c) → b&c

Sub [COLOR=#ff0000]Tekst[/COLOR]()
b = TextBox2.Value & " "
c = TextBox3.Value & " "
d = TextBox4.Value
a = [COLOR=#ff0000]b & c[/COLOR]
End Sub

Zet de rode tekst "Tekst bij.

Private Sub ComboBox1_Click()
 With ComboBox1
    TextBox2.Value = .Column(1)
    TextBox3.Value = .Column(5)
    TextBox4.Value = .Column(2)
    TextBox5.Value = .Column(3)
    TextBox6.Value = .Column(4)
[COLOR=#ff0000] Tekst[/COLOR]
  End With
End Sub

 

[Excelvbas01]

Allen bedankt voor het meedenken.

HSV heeft het probleem opgelost. :thumb: