Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1660to1664
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Arithmetisches Mittel in VBA

Arithmetisches Mittel in VBA
30.11.2018 08: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
Anzeige
AW: Arithmetisches Mittel in VBA
30.11.2018 09: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 09: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 09: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
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige