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
|