Thema Datum  Von Nutzer Rating
Antwort
Rot InputBox Daten summieren
23.09.2022 11:38:37 Daniel
NotSolved
23.09.2022 12:33:12 Mase
NotSolved

Ansicht des Beitrags:
Von:
Daniel
Datum:
23.09.2022 11:38:37
Views:
209
Rating: Antwort:
  Ja
Thema:
InputBox Daten summieren

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot InputBox Daten summieren
23.09.2022 11:38:37 Daniel
NotSolved
23.09.2022 12:33:12 Mase
NotSolved