Hallo allerseits! :)

Ich bin schon verzweifelt am suchen, wie ich meine Werte aus meiner InputBox summiere, den Durschnitt errechne und den höchsten Wert ausgebe. Wenn ich numbers nehme, gibt er mir immer nur den zuletzt eingegeben Wert herraus... hat irgendjemand eine Idee? (Evtl Werte in array speicher oder irgendeine schleife?

Danke & Lg Daniel

Hier der Code:

Sub SumAndAverage()

Dim numbers As Double
Dim average As Double
Dim sum As Double
Dim biggestnumber As Double
Dim n As Double
Dim i As Double
Dim total As Variant
Dim answer As Integer

total = InputBox("How many numbers do you want to enter?")
If total = "" Then
    Exit Sub
End If

For i = 1 To total
numbers = InputBox("Enter some numbers!", "enter numbers")
Next i

sum = sum + numbers
average = sum / total
biggestnumber = WorksheetFunction.max(numbers)

MsgBox "The result is:" & Chr(10) & _
"sum : " & sum & Chr(10) & _
"average : " & average & Chr(10) & _
"biggest number : " & biggestnumber

answer = MsgBox("Do you want to do another calculation?", vbYesNo + vbQuestion)
    If answer = vbYes Then Call SumAndAverage

End Sub