Microsoft Excel

Herbers Excel/VBA-Archiv

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

Addition bei VBA

    Betrifft: Addition bei VBA von: MABA
    Geschrieben am: 03.09.2003 09:19:31

    Hallo, zusammen

    habe mir eine kleine UserForm gebastelt. Dort gibt es 2 Felder, in die ich Zahlen eingebe. Diese möchte ich in einer Zelle im Tabellenblatt ausgeben.
    Funzt mit dem Befehl

    Tabelle3.Range("K57").Value = TextBox1.Value + ComboBox1.Value

    auch so.... zumindest was den Eintrag in die Zelle betrifft...:-))
    Denn durch das + Zeichen schreibt er beide Werte einfach hintereinander weg,
    also aus 1000 und 300 soll er 1300 machen, schreibt aber 1000300 in die Zelle!!

    Bei subtrahieren, oder multiplizieren macht er genau das was man erwartet!

    Komisch, oder?? Was muss ich machen damit er "richtig" addiert...

    Schöne Grüße und schon mal danke für die Antworten

    Mario Bacher

      


    Betrifft: AW: Addition bei VBA von: galenzo
    Geschrieben am: 03.09.2003 09:41:32

    nö - nicht komisch. Die Eingaben werden als Text behandelt und somit also einfach aneinandergehängt, Schema "Blumen"+"vase"="Blumenvase"
    Du solltest die Werte also vor der Addition in Zahlen umwandeln.
    z.B. mit CDbl oder sowas


      


    Betrifft: AW: Addition bei VBA von: Sigi E.
    Geschrieben am: 03.09.2003 09:44:53

    Hallo Mario,

    Textboxen enthalten Text. Du musst also deine Ziffern(Text) in Zahlen
    umwandeln: mit CDbl() oder bei Ganzzahlen auch mit CLng():

    Tabelle3.Range("K57").Value = CDbl(TextBox1.Value) + CDbl(ComboBox1.Value)

    Gruß
    Sigi


      


    Betrifft: AW: Addition bei VBA von: MABA
    Geschrieben am: 03.09.2003 09:48:52

    Hallo, Galenzo und Sigi E.

    vielen Dank für die suuupischnellen Antworten !

    Habs schon getestet und es funktioniert :--)))))

    Gruß Mario Bacher


      


    Betrifft: AW: Addition bei VBA von: Andi_H
    Geschrieben am: 03.09.2003 09:47:26

    Hi Mario,

    versuchs mal so, das klappt:

    dim i,x as long
    i = ComboBox1.Value
    x = TextBox1.Value
    Tabelle3.Range("K57").Value = i + x

    anstatt

    Tabelle3.Range("K57").Value = TextBox1.Value + ComboBox1.Value

    gruß

    andi


     

    Beiträge aus den Excel-Beispielen zum Thema " Addition bei VBA"