Opdatering af tekstboks fra to andre

Kan du bruge dette:

Dim sum1, sum2  As Currency

Private Sub OptionButton1_Change()
TextBox1.Text = 91.23
'....
sum1 = TextBox1.Text
sum2 = TextBox2.Text
TextBox3.Text = sum1 + sum2
End Sub

Private Sub OptionButton1_Click()
TextBox2.Text = 89.87
'....
sum1 = TextBox1.Text
sum2 = TextBox2.Text
TextBox3.Text = sum1 + sum2
End Sub

Jeg prøver med lidt kinesisk inspiretet Dim sum kode - tak for det :-)

Så lidt!

Tror næppe ovenstående vil virke.

En textbox kan kun indeholde strenge - så man kan ikke skrive
  TextBox1.Text = 91.23
Man skal skrive
  TextBox1.Text = "91.23"

Og
  sum1 = TextBox1.Text
  sum2 = TextBox2.Text
  TextBox3.Text = sum1 + sum2

bør hedde

  sum1 = CCur(Text1.Text) 'CCur konverterer din string til Currency)
  sum2 = CCur(Text2.Text)
  Text3.Text = sum1 + sum2

Har du prøvet, martin? Det så da ud til at virke hos mig, når variablen blev sat til currency! :-)

Hold da kæft! Det virker sgu, med currency-delen - super!

Smid et svar så lukker jeg sagen - og tak :-)

hvem skal svare?

Det ved jeg sgu ikke... I hjalp jo begge to - kan man dele pointene mellem jer?

Vidste ikke om mit svar overhovedet hjalp.

Og jeg kan sige, at i VB6 vil

TextBox1.Text = 91.23

ikke virke.

Om det virker i VBA ved jeg ikke, men det rigtige er at bruge anførselstegn og derefter konvertere. Det hedder jo Textbox1.TEXT :o)

Det virker i VBA, men den mest korrekte metode er nok at anvende martins model, så jeg synes du skal give points til ham.

Hermed gjort - tak til jer begge :-)