Summe Textfeld in Userform

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Summe Textfeld in Userform
von: Thomas
Geschrieben am: 01.07.2002 - 13:57:25

Liebes Forum!

Ich würde gerne in einem Textfeld eine Summe von 2 anderen Textfelden ausweisen.

Wie müßte da der Code aussehen?

LG
Thomas


nach oben   nach unten

Re: Summe Textfeld in Userform
von: Hajo_Zi
Geschrieben am: 01.07.2002 - 14:01:07

Hallo Thomas

das kommt auf den Typ der Eingaben an

Textbox3=Cdbl(Textbox1)+Cdbl(Textbox2)

Gruß Hajo


nach oben   nach unten

Re: Summe Textfeld in Userform
von: Thomas
Geschrieben am: 01.07.2002 - 14:03:33

wie schaut die Sub-Definition aus?

Textbox3_? (zb Insert?)

LG
Thomas


nach oben   nach unten

Re: Summe Textfeld in Userform
von: M@rkus
Geschrieben am: 01.07.2002 - 14:04:38

So könnte der Code aussehen:

Private Sub CommandButton1_Click()
   Dim iZahl1 As Integer
   Dim iZahl2 As Integer
   Dim iErgebnis As Integer
   iZahl1 = TextBox1.Text
   iZahl2 = TextBox2.Text
   
   iErgebnis = iZahl1 + iZahl2
   
   TextBox3.Text = iErgebnis

End Sub

Viele Grüsse
Markus

nach oben   nach unten

Re: Summe Textfeld in Userform
von: Andreas
Geschrieben am: 01.07.2002 - 14:05:35

Hallo Thomas,

so könnte es gehen.

Private Sub BerechneSumme()
If IsNumeric(TextBox1.Value) And IsNumeric(TextBox2.Value) Then
    TextBox3.Value = CDbl(TextBox1.Value) + CDbl(TextBox2.Value)
Else
    TextBox3.Value = ""
End If
End Sub

Private Sub TextBox1_Change()
BerechneSumme
End Sub

Private Sub TextBox2_Change()
BerechneSumme
End Sub

Du könntest natürlich auch das AfterUpdate-Ereignis nutzen...

Viel Spaß,
Andras


nach oben   nach unten

Re: Summe Textfeld in Userform
von: Thomas
Geschrieben am: 01.07.2002 - 14:20:04

Vorsicht in einer Userform!

nach oben   nach unten

Re: Summe Textfeld in Userform
von: Hajo_Zi
Geschrieben am: 01.07.2002 - 14:40:47

???????

 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Summe Textfeld in Userform"