In einem Zellenbereich Dynamisch Mittelwert berechnen

Guten Morgen.

Ich hoffe es kann mir einer etwas behilflich sein.

Ich habe eine Spalte mit dem Namen StromT4 und möchte daraus bis zur letzten beschriebenen Zelle den Mittelwert berechnen und den dann in die Spalte Mittelwert01 bis zur vorher ermittelten letzten Beschriebenen Zelle eintragen so das ich in meinem Diagramm das anzeigen kann.

Als Starre Berechnung hab ich schon was geschrieben.

Sub MittelwertTest2_EinBereich()

   Dim bereich As Range

   Dim x As Integer

   Sheets("Auswerten").Select

   

   x = Range("StromT4").Cells(Range("StromT4").Rows.Count, 1).End(xlUp).Row  'letzte Zelle finden



   Set bereich = Range("StromT4").Rows("10:1000")     'das sollte Dynamisch sein



   Range("Mittelwert01").Rows("4") = WorksheetFunction.Average(bereich)  'Mittelwert in Zelle 4 eintragen

   

   Range("Mittelwert01").Rows(4).Copy Range("Mittelwert01").Rows(4, x)    'Mittelwert Dynamisch in die Zellen eintragen funktioniert so nicht

   

  Set bereich = Nothing    'Das Bereichsobjekt freigeben

  

End Sub

Leider fehlt es mir an VBA Kenntnisse das ich das Dynamisch hin bekomme.

Grüße
Heimwerker

Hi,

a) ja, du hast recht, ich hatte vergessen, die von dir vergebenen Bereichsnamen anzuwenden, bzw, ich hatte vergessen, nach meinen Tests alls auf die Bereichsnamen umzuändern - das tut mir leid

b) Zitat: "...Der Mittelwert müsste 8,36 der in jeder Zelle steht..."
DAS kann SO aber nicht sein!

Stell dir mal vor, wir haben heute den 01.01.2024 und du trägst den ERSTEN Verbrauchswert = 7,1 ein.
Da kann doch der Mittelwert - nicht - 8,36 sein, weil....es gibt ja nur erst einen Wert, und zwar 7,1!
Und ja, deshalb ergeben sich für jede Datenzeile andere Mittelwerte, weil ja der gültige Bereich für Mittelwert immer Start=Zeile 11 und Ende=die jeweilige Zeile sein kann...und nicht Ende = letzte Zeile in Spalte C

Es sei denn, du "sammelst" erst mal alle Werte von mehreren Monaten und trägst diese z Bsp nur alle 6 Monate ein - DANN...nee, auch dann geht das nicht.
Dein "Wunschmittelwert = 8,36" ist in der Bsp-Datei nur für den letzten Eintrag = Zeile 449, 26.05.2024 gültig.

Aber nun gut, vielleicht hab ich ja in meiner Logik (für den 01.01.2024 kann nicht der Mittelwert von 5 Monaten stehen!) doch einen Denkfehler - hier bitte ich um Aufklärung, wenn jemand weiß, was ich falsch mache.

Ciao
Thorsten

In einem Zellenbereich Dynamisch Mittelwert berechnen

Forumthread: In einem Zellenbereich Dynamisch Mittelwert berechnen

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

In einem Zellenbereich Dynamisch Mittelwert berechnen

Forumthread: In einem Zellenbereich Dynamisch Mittelwert berechnen

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread