Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema CommandButton
BildScreenshot zu CommandButton CommandButton-Seite mit Beispielarbeitsmappe aufrufen
Informationen und Beispiele zum Thema TextBox
BildScreenshot zu TextBox TextBox-Seite mit Beispielarbeitsmappe aufrufen

TextBox1.Value = TextBox2.Value + TextBox3.Value

Betrifft: TextBox1.Value = TextBox2.Value + TextBox3.Value von: Michaela
Geschrieben am: 18.08.2008 13:45:03

Guten Mittag

Stehe ich aufm schlauch???

ich versuche in TextBox1. die Summe aus TextBox 2 und 3 anzuzeigen. das geht aber nicht mit:

TextBox1.Value = TextBox2.Value + TextBox3.Value

was mache ich falsch?

Danke für die Hilfe

Michaela

  

Betrifft: Du willst Text addieren das geht nicht ... von: Matzthias L
Geschrieben am: 18.08.2008 13:55:26

Hallo

Wandle vorher den Inhalt der Boxen in eine Zahl um.

Gruß Matthias


  

Betrifft: AW: Du willst Text addieren das geht nicht ... von: Michaela
Geschrieben am: 18.08.2008 13:59:58

Würde ich gerne machen ;-)

sagst du mir wo ich das Format abändern kann?

Danke&Grüße


  

Betrifft: AW: Du willst Text addieren das geht nicht ... von: Matzthias L
Geschrieben am: 18.08.2008 14:05:33

Hallo

kommt drauf an was in der Box steht

ein Beispiel:



Gruß matthias


  

Betrifft: AW: TextBox1.Value = TextBox2.Value + TextBox3.Value von: Peter Feustel
Geschrieben am: 18.08.2008 14:02:46

Hallo Michaela,

TextBox1.Value = CDbl(TextBox2.Value) + CDbl(TextBox3.Value) könnte funktionieren, evtl kannst du auch CSng oder gar CInt verwenden, je nachdem welche Werte in den Boexs enthalten sind.

Gruß Peter


  

Betrifft: AW: TextBox1.Value = TextBox2.Value + TextBox3.Value von: Michaela
Geschrieben am: 18.08.2008 14:05:17

Danke das ist top!


  

Betrifft: Noch was.... von: Michaela
Geschrieben am: 18.08.2008 14:09:42

Hallo Peter,

was mache ich jetzt aber wenn eine TextBox leer ist.
dann bringt er mir nen Fehler.

Danke


  

Betrifft: AW: Noch was.... von: Matthias L
Geschrieben am: 18.08.2008 14:14:52

Hallo

Option Explicit

Private Sub CommandButton1_Click()
If IsNumeric(Me.TextBox1.Value) And IsNumeric(Me.TextBox2.Value) Then
 Me.TextBox3.Value = CInt(Me.TextBox1.Value) + CInt(Me.TextBox2.Value)
End If
End Sub




Gruß Matthias


  

Betrifft: Danke Matthias von: Michaela
Geschrieben am: 18.08.2008 14:29:27

Grüße...