Office: Summe aller Zahlen einer Inputbox

Hallo zusammen,

ich bräuchte mal wieder Hilfe im Excel bzw. VBA.

Ich bin gerade dabei mit VBA anzueignen stehe aber noch (fast) ganz am Anfang.

Ich habe eine Inputbox. Nun sollen in diese nacheinander Zahlen eingeben und mit OK bestätigt werden und zwar solange bis ich nur noch OK drücke ohne vorher was eingegeben zu haben.
Und zum Schluß soll mir die Summe aller eingebenen Zahlen anzeigt werden.

ich kann ne Inputbox erzeugen, die Schleife kriege ich auch noch hin und die Messagebox auch. Aber ich habe keine Ahnung, wie ich die Arbeitsschritte verbinden soll ... Wie die Zahlen aus der inputbox in die Schleife kommen und später addiert werden.

Kann mir da jemand helfen?

Gruß
Michael

 

Hallo Michael,

ich bin fest davon überzeugt, dass dir hier einige Leutchen gerne helfen werden. Für mich gilt: Damit ich weiß, wo ich ansetzen soll, brauche ich eine Datei, wo du all das, was du schon kannst, eingebaut hast. Dann zeige ich dir gerne, wie es vielleicht anders (besser) geht und auch, wie es weiter geht.

 

Oh, schuldigung. Die wollte ich noch anhängen...

 

Hallo Michael,

diese Code-Zeilen sind wirklich nur für den Einstieg gedacht, aber zum lernen und späteren Aufbau ganz gut geeignet:

Code:

Sub Zahlen_addieren2()
   Dim Betrag As Double
   Dim Eingabe As Variant   'Es könnte auch ohne diese Variable gehen
   Do
      Eingabe = InputBox("Bitte geben Sie eine Zahl ein", "Leereingabe beendet die Abfrage")
      If IsNumeric(Eingabe) Then
         Betrag = Betrag + CDbl(Eingabe)
      Else  'Leer oder beliebiger TEXT
         Exit Do
      End If
   Loop
   MsgBox "Die Summe aller Zahlen lautet: " & Betrag
End Sub

 

Hi Michael,

ich würde Application.Inputbox verwenden, da man hierbei vorgeben kann, dass nur Zahlen eingegeben werden dürfen - damit fällt die Prüfung auf Zahleneingabe weg.

Code:

Sub Addition()
   Dim dblSumme As Double
   Dim dblZahl As Double
   Do
      dblZahl = Application.InputBox(prompt:="Bitte Zahl eingeben", Type:=1)
      dblSumme = dblSumme + dblZahl
   Loop While dblZahl <> 0
   MsgBox dblSumme
End Sub

Bis später,
Karin

 

Hallo,

ich danke Euch für die Antworten und werden beide Lösungen mal testen. Ich melde mich wieder (habe nur heute nicht genug Zeit dazu). Aber trotzdem Danke für die schnelle Hilfe.

gruß
michael

 

@ Michael: Du wirst sehen, beides läuft prächtig!

@ Karin: Würde ich (selber) auch, wenn es denn schon eine InputBox sein muss. Aber als ich vor fast 50 Jahren meinen Führerschein machte gab es die Regel, dass man einen entsprechenden Eintrag in den Führerschein bekam, wenn man auf Automatik gelernt hat, und nicht den "Klein-Klein-Kram" mit dem Schalten, und so ... Darum glaube ich, dass absolute Basics erst einmal "eingepaukt" werden sollten (die Pflicht), dann kommt die Bequemlichkeit, das Schöne (die Kür). Und ich denke, dass auch du mit ganz kleinen Schritten angefangen hast ... :)

Dennoch: Danke für die Ergänzung

 

eine InputBox hat nichts mit "Basics" im Vergleich mit der Application.InputBox als "Kür" zu tun - es sind 2 unterschiedliche Möglichkeiten: die eine ist ein PKW und die andere ein LKW. Wenn man die LKW-Fahrerlaunis macht, muss man nicht vorher erst die Fahrelaubnis für PKW machen. Wenn man aber die Fahrerlaubnis für LKW gemacht hat, kann man auch problemlos einen PKW fahren.

Bis später,
Karin