VBA - Rechenproblem

[Milch-Mann]

Abend !

Ich habe da mit VBA ein kleines Problem. Wir haben von der Schule aus aufbekommen, ein Programm zu programmieren welches 4 vom benutzer eingegebene zahlen den durchschnitt berechnen kann. Mein Problem dabei ist, ich kenne den Code für den Durchschnitt nicht. Wäre euch sehr verbunden wenn mir einer da weiterhelfen könnte.

z..Z. sieht es so aus :
Sub Notendurchschnitt()
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Zahl3 As Integer
Dim Zahl4 As Integer
Zahl1 = InputBox("Bitte Zahl 1 eingeben", "Note :")
Zahl2 = InputBox("Bitte Zahl 2 eingeben", "Note :")
Zahl3 = InputBox("Bitte Zahl 3 eingeben", "Note :")
Zahl4 = InputBox("Bitte Zahl 4 eingeben", "Note :")
MsgBox Zahl1 + Zahl2 + Zahl3 + Zahl4

End Sub

 

[Q_ball]

Abend !

Ich habe da mit VBA ein kleines Problem. Wir haben von der Schule aus aufbekommen, ein Programm zu programmieren welches 4 vom benutzer eingegebene zahlen den durchschnitt berechnen kann. Mein Problem dabei ist, ich kenne den Code für den Durchschnitt nicht. Wäre euch sehr verbunden wenn mir einer da weiterhelfen könnte.

z..Z. sieht es so aus :
Sub Notendurchschnitt()
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Zahl3 As Integer
Dim Zahl4 As Integer
Zahl1 = InputBox("Bitte Zahl 1 eingeben", "Note :")
Zahl2 = InputBox("Bitte Zahl 2 eingeben", "Note :")
Zahl3 = InputBox("Bitte Zahl 3 eingeben", "Note :")
Zahl4 = InputBox("Bitte Zahl 4 eingeben", "Note :")
MsgBox Zahl1 + Zahl2 + Zahl3 + Zahl4

End Sub

machs doch einfach so wie du normal auch nen durchschnitt berechnest, rechne alle eingaben zusammen und teile das dann durch die anzahl deiner eingaben.
hierbei wäre das dann:
dim durchschnitt as integer
durchschnitt = (zahl1 + zahl2 + zahl3+ zahl4) / 4
msgbox durchschnitt

sollte so eigentlich gehn, denk i mal

 

[Milch-Mann]

Abend !

Ich habe da mit VBA ein kleines Problem. Wir haben von der Schule aus aufbekommen, ein Programm zu programmieren welches 4 vom benutzer eingegebene zahlen den durchschnitt berechnen kann. Mein Problem dabei ist, ich kenne den Code für den Durchschnitt nicht. Wäre euch sehr verbunden wenn mir einer da weiterhelfen könnte.

z..Z. sieht es so aus :
Sub Notendurchschnitt()
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Zahl3 As Integer
Dim Zahl4 As Integer
Zahl1 = InputBox("Bitte Zahl 1 eingeben", "Note :")
Zahl2 = InputBox("Bitte Zahl 2 eingeben", "Note :")
Zahl3 = InputBox("Bitte Zahl 3 eingeben", "Note :")
Zahl4 = InputBox("Bitte Zahl 4 eingeben", "Note :")
MsgBox Zahl1 + Zahl2 + Zahl3 + Zahl4

End Sub

machs doch einfach so wie du normal auch nen durchschnitt berechnest, rechne alle eingaben zusammen und teile das dann durch die anzahl deiner eingaben.
hierbei wäre das dann:
dim durchschnitt as integer
durchschnitt = (zahl1 + zahl2 + zahl3+ zahl4) / 4
msgbox durchschnitt

sollte so eigentlich gehn, denk i mal

JA. Danke Danke danke !! es Hat funktioniert !!!!

 

[Rumsi]

Abend !

Ich habe da mit VBA ein kleines Problem. Wir haben von der Schule aus aufbekommen, ein Programm zu programmieren welches 4 vom benutzer eingegebene zahlen den durchschnitt berechnen kann. Mein Problem dabei ist, ich kenne den Code für den Durchschnitt nicht. Wäre euch sehr verbunden wenn mir einer da weiterhelfen könnte.

z..Z. sieht es so aus :
Sub Notendurchschnitt()
Dim Zahl1 As Integer
Dim Zahl2 As Integer
Dim Zahl3 As Integer
Dim Zahl4 As Integer
Zahl1 = InputBox("Bitte Zahl 1 eingeben", "Note :")
Zahl2 = InputBox("Bitte Zahl 2 eingeben", "Note :")
Zahl3 = InputBox("Bitte Zahl 3 eingeben", "Note :")
Zahl4 = InputBox("Bitte Zahl 4 eingeben", "Note :")
MsgBox Zahl1 + Zahl2 + Zahl3 + Zahl4

End Sub

machs doch einfach so wie du normal auch nen durchschnitt berechnest, rechne alle eingaben zusammen und teile das dann durch die anzahl deiner eingaben.
hierbei wäre das dann:
dim durchschnitt as integer
durchschnitt = (zahl1 + zahl2 + zahl3+ zahl4) / 4
msgbox durchschnitt

sollte so eigentlich gehn, denk i mal

kleiner verbesserungsforschlag:
Ich würde die variable "durchschnitt" als Double oder Single deklarieren dann hast du denn durchschnitt auch mit nachkommazahlen.

Also etwa so:
dim durchschnitt as Single
durchschnitt = Format((zahl1 + zahl2 + zahl3+ zahl4) / 4, "0.00")