Office: Summenbildung durch Schleife

tomasi · 8. November 2014

Hallo,

ich soll in einer Aufgabe mit VBA per Inputbox einen ganzzahligen Anfangs- und Endwert eingeben und anschließend alle Zahlen, die in diesem Intervall liegen, aufsummieren und dies mit einer For-Schleife realisieren.

Das Ergebnis soll dann per MessageBox angezeigt werden.

Kann mir da jemand einen Ansatz geben oder sagen wie es aussehen müsste?

Danke im Vorraus für Hilfe

:)

Beverly · 10. November 2014

Hi,

mit welcher Schrittweite soll gerechnet werden?

tomasi · 10. November 2014

Schrittweite wurde nicht angegeben aber als Kontrolle soll die Summe der ersten 100 ganzen Zahlen 5050 betragen.

Edit: Bisher habe ich es so geschrieben

Code:

Option Explicit
Sub Summieren()

Dim i As Integer
Dim iSumme As Integer
Dim Zahl1 As Variant
Dim Zahl2 As Variant

Zahl1 = InputBox("Geben Sie die erste Zahl ein!")
Zahl2 = InputBox("Geben Sie die zweite Zahl ein!")

iSumme = 0
For i = Zahl1 To Zahl2
iSumme = iSumme + i
Next

MsgBox "Die Summierung ergab: " & iSumme

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nur kriege ich da nicht 5050 bei der Summe der ersten 100 ganzen Zahlen.

Beverly · 10. November 2014

Von einer Bedingung stand in deinem Beitrag nichts - das nun ist eine völlig andere Aufgabenstellung. Bin kein Mathematiker und damit raus.

GMG-CC · 10. November 2014

Der kleine Carl-Friedrich Gauß hat seine Berühmtheit in der Schulklasse mit der berühmten Formel begründet, wir lösen es per Computer mit einer Schleife ...

Code:

Option Explicit

Sub Gauss_Formel_als_Schleife()
Dim i As Integer
Dim Summe As Integer

For i = 1 To 100
Summe = Summe + i
Next i
MsgBox Summe
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Manchmal ist Rechnerei doch etwas übersichtlicher als eine einzelne Formel
=100*(100+1)/2 *tongue.gif*

Office: Summenbildung durch Schleife

Summenbildung durch Schleife

Summenbildung durch Schleife

Summenbildung durch Schleife

Summenbildung durch Schleife - Similar Threads - Summenbildung Schleife

Formel für Summenbildung unter verschiedenen Bedingungen

Summen über Pivot bei Unterpositionen in gleicher Spalte

Summenbildung für Stundenanzahl

Summe verschiedener Kategorien ausweisen

Summenbildung im UFO möglich?

Zahlenwerte zwischen 2 Datumswerten addieren

Wandernde Summenbildung "Fixpunkt" Datum - Ausgaben letzte 7 Tage