Berechnung Mittelwert

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub iMittelwert() With Columns(1).SpecialCells(2, 1) .Cells.Select y = .Cells.Replace("0", "") For Each r In .Areas Ad = Split(r.Address, ":")(0) Range(Ad).Offset(, 1) = WorksheetFunction.Average(Range(r.Address)) Next r End With End Sub

…Manl; ;-)
allerdings muss man dazu erstmal einen unzusammenhängenden Bereich erzeugen! Das kann mit der UDF NoErrRange gelingen, zumindest für Rudis Bsp. Ob das allerdings auch für 40Tsd Zeilen fktioniert, ist ziemlich fraglich. Man sollte solche Massen-DV auch nicht mit Xl durchführen → dafür gibt's SQL. Mit entsprd geschickter AbfrageFormulierung könnte man auch einzelne Datenblöcke abrufen. Außerdem gibt's noch andere interessante Daten-Tools, mit denen man so etwas schnell und effizient und flexibler als mit Xl aufbereiten kann (bspw QlikView von QlikTec).
Ansonsten ist es ziemlich frech bzw mutig im „Nach-Xl-XP-Zeitalter“ einfach alle Versionen zu schreiben! Inzwischen sind ein paar Fktt hinzugekommen, die es vorher nicht gab. Aber uU musst du ja ohnehin auf Rudis Lösung ausweichen; ansonsten so:

	G	H	I
1	Wert	Block-MW	Ø lt Rudi
2	2
3	3	2,500000	2,5
4	0
5	3
6	8
7	5	5,333333	5,33333333
8	0
9	3
10	1
11	2	2,000000	2
12	0
13	0
14	0
15	2
16	5	3,500000	3,5
17		← muss leer bleiben!
18	NoErrRange:=(G2:G3;G5:G7;G9:G11;G15:G16)
19	H2[:H16]: {=WENN(UND(G2≠0;G3=0);MITTELWERT
20	(INDEX(NoErrRange(G$2:G$16;;G$2:G$16≠0);;;
21	ZÄHLENWENNS(G$2:G2;0;G$3:G3;"≠0")+1));"")}

Die UDF NoErrRange findest du im Archiv (RECHERCHE).
Übrigens sähe das für dein Bsp so aus:

	G	H	I
22	Wert	Block-MW	alle MW
23	0		86
24	0		97
25	87		86
26	94		54,5
27	77	86
28	0
29	97	97
30	0
31	75
32	86
33	99
34	84	86
35	0
36	0
37	0
38	56
39	53	54,5
40	← muss b.BlockVar leer bleiben!
41	NoErrRange:=(G25:G27;G29;G31:G34;G38:G39)
42	H23[:H39]: {=WENN(UND(G23≠0;G24=0);MITTELWERT
43	(INDEX(NoErrRange(G$23:G$39;;G$23:G$39≠0);;;
44	ZÄHLENWENNS(G$23:G23;0;G$24:G24;"≠0")));"")}
45	I23:I26: {=MITTELWERT(INDEX(NoErrRange(G23:G39;;
46	G23:G39≠0);;;ZEILE(A1:A4)))}

Die rechte Spalte enthält die einfachere Lösung bei Extra-Darstellung der Mittelwerte.
Feedback nicht unerwünscht! Gruß, Luc :-?
PS@neopa: Ja, Werner, ich weiß, die singulare MxFml ist ziemlich rechenaufwendig bei zigtsdfacher Verwendung, aber anders geht's nur, wenn alle Mw in einer Extra-Tabelle stehen. Hier wollte ich aber zwecks Vgl Rudis Vorgabe folgen, habe aber dann doch noch eine solche Variante nachgereicht.
Besser informiert mit …

Hallo miteinander...
erst einmal vielen Dank für die zahlreichen antworten, die ihr mir geschickt habt. Außerdem entschuldige ich mich, dass ich erst jetzt wieder hier bin und etwas dazu schreiben kann... Telecolumbus hatte es in letzter zeit nicht so mit dem Internet und auch Vodafone hats nicht grade so mit dem Datenvolumen...
Zusätzlich möchte ich mich auch entschuldigen, dass ich auf dem Gebiet von Excel und VBA leider ein vollkommener Laie bin!! Sollte "alle Versionen" nicht stimmen, dann berichtigt mich bitte... :)
Vielleicht sollte ich ein wenig weiter ausholen:
Zu sehen ist in Spalte "B" die Zeit in 1/10 sekunden...
in Spalte "C" die Geschwindigkeit in km/h...
in Spalte "D" die Geschwindigkeit in m/s...
... und in Spalte "G" die jeweilige negative Beschleunigung, Verzögerung oder wie man dazu auch sagen möchte. Die positive Beschleunigung interessiert mich dabei nicht.
Da die Geschwindigkeit jeweils pro 1/10 sekunde aufgenommen wird, muss ich einen gemittelten Wert der Verzögerung bestimmen. Und da sich dieser "Fahrzyklus" über 40Tsd. Zeilen erstreckt, geht das leider nicht per Hand.
Das ich danach viele weitere, mgl. tausende einzelne Werte habe, ist kein Problem. Dazu hab ich bereits ein Makro, was die weitere Berechnung erleichtert. Die Verzögerung kann danach mit einer Abbremsung eines Fahrzeugs in Verbindung gebracht werden, was mir wieder viele weitere Zusammenhänge offenlegt und mich meinem Endergebnis ein ganzes Stück näherbringt... :)
Ich hoffe, es wurden (wenigstens ein Teil der) Fragen beantwortet, die einige hier hatten. Sollte das nicht der Fall sein, bite ich euch noch einmal um eine Information.
Ich danke euch noch einmal für die Zahlreichen Antworten und wünsche allen ein schönes Wochenende... :)

Beliebteste Forumthreads (12 Monate)

Zelle	Formel
I2	=WENNFEHLER(WENN(G3=0;J2/K2;"");"")
J2	=WENN(G2>0;SUMME(G2;J1);"")
K2	=WENN(G2>0;SUMME(K1;1);"")

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread