Arithmetisches Mittel in VBA

Forumthread: Arithmetisches Mittel in VBA
3 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: Arithmetisches Mittel in VBA

30.11.2018 09:53:12

Fabio

Guten Morgen Zusammen,
ich habe eine Frage bezüglich des Arithmetischen Mittel in VBA
Den Code habe ich soweit hinbekommen mir fehlt nur das der Wert durch die Anzahl der der Eingegebenen
Werte dividiert wird.
Hier mal mein Code


Sub Berechnen()
Dim Zeile As Integer
Dim Wert As Long
Zeile = 4
Wert = 0
Do Until IsEmpty(Cells(Zeile, 1))
Wert = Wert + Cells(Zeile, 1)
Zeile = Zeile + 1
Loop
Cells(5, 3).Value = Wert
End Sub

Danke schonmal im Voraus für eure Hilfe.
LG Fabio

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Arithmetisches Mittel in VBA

30.11.2018 10:02:52

ede
AW: Arithmetisches Mittel in VBA

30.11.2018 10:06:43

Fabio
AW: Arithmetisches Mittel in VBA

30.11.2018 10:08:35

Werner

AW: Arithmetisches Mittel in VBA

30.11.2018 10:02:52

ede

Hallo Fabio,


Sub Berechnen()
Dim Zeile As Integer
Dim Wert As Long
DIM anzahl as integer
Zeile = 4
Wert = 0
anzahl=0
Do Until IsEmpty(Cells(Zeile, 1))
Wert = Wert + Cells(Zeile, 1)
Zeile = Zeile + 1
anzahl=anzahl+1
Loop
Cells(5, 3).Value = Wert/anzahl
End Sub

gruss
ede

AW: Arithmetisches Mittel in VBA

30.11.2018 10:06:43

Fabio

Hallo ede,
danke für die schnelle Antwort.
Hat alles perfekt geklappt.
Danke nochmals
Gruß Fabio

AW: Arithmetisches Mittel in VBA

30.11.2018 10:08:35

Werner

Hallo Fabio,
wozu etwas programmieren, was es schon gibt.

Public Sub aaa()
With Worksheets("Tabelle1")
.Cells(5, 3) = _
WorksheetFunction.Average(.Range(.Cells(4, 1),.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row, 1)))
End With
End Sub

Gruß Werner