Messwerte auswerten, Minutenwerte -> 10 Minutenwerten, arithmetisches Mittel in Klassen

[m***@gmail.com]

Hallo,
ich habe zwei Probleme bei der Auswertung von Messwerten mit Excel.

1.)
Ich habe für einen Tag Minutenwerte, also 1440 Werte. Ich möchte nun
aus diesen Werten 10 Minuten-Werte bilden. Prinzipiell ist das kein
Problem "=Summe(A1:A10)/10" erledigt dies. Wie kann ich Excel
dazubringen in der nächsten Zelle nicht "...A2:A11..." zu berechnen,
sondern "...A12:A20"? Ist dies nur mit VBA möglich oder bringt Excel
dafür Bordmittel mit?

2.)
Die Tabelle hat folgendene Form:

A B C
0 0,2 12
0,5 0,6 19
0,5 0,7 21


In Spalte A ist die zugehörige Klasse, also hier die Klasse 0 und 0,5.
In jeder Klasse möchte ich nun, dass arithmetische Mittel von B und C
errechnen. Prinzipiell ist es kein Problem, das für so wenig Werte zu
tun, aber wie löse ich dieses Problem automatisch/elegant bei vielen
Werten und bei einer unterschiedlichen Anzahl von Wertepaaren pro
Klasse?

Vielen Dank im voraus und Gruß
Marcel

[Andreas Schmidt]

Hallo Marcel,

Post by m***@gmail.com
Hallo,
ich habe zwei Probleme bei der Auswertung von Messwerten mit Excel.
1.)
Ich habe für einen Tag Minutenwerte, also 1440 Werte. Ich möchte nun
aus diesen Werten 10 Minuten-Werte bilden. Prinzipiell ist das kein
Problem "=Summe(A1:A10)/10" erledigt dies. Wie kann ich Excel
dazubringen in der nächsten Zelle nicht "...A2:A11..." zu berechnen,
sondern "...A12:A20"? Ist dies nur mit VBA möglich oder bringt Excel
dafür Bordmittel mit?

Schnellschuß. Probier mal:
=SUMME(INDIREKT("A" & (ZEILE()-1)*10+1):INDIREKT("A" & ZEILE() *10))/10

Voraussetzung: 1. Messwert und 1. Durchschnittswert in der selben Zeile.

Post by m***@gmail.com
2.)

zu spät heute ;-)

Gruß
Andreas

[Andreas Schmidt]

Hallo Marcel,

hier noch ein Vorschlag für Teil 2

Function ClassAverage(myClasses As Range, myValues As Range)

Dim c As Range
Dim x()
Dim avr()
Dim intCount As Integer
Dim i As Integer
Dim bClassExists As Boolean


intCount = 0
For Each c In myClasses
ReDim Preserve x(2, intCount)
bClassExists = False
For i = 0 To UBound(x, 2)
If x(0, i) = c.Text Then
bClassExists = True
Exit For
End If
Next
If bClassExists Then
x(1, i) = x(1, i) + c.Offset(0, 1) + c.Offset(0, 2)
x(2, i) = x(2, i) + 2
Else
x(0, intCount) = c.Text
x(1, intCount) = c.Offset(0, 1) + c.Offset(0, 2)
x(2, intCount) = 2
intCount = intCount + 1
End If

Next

ReDim avr(1, UBound(x, 2) - 1)

For i = 0 To UBound(avr, 2)
avr(0, i) = x(0, i)
avr(1, i) = x(1, i) / x(2, i)
Next

ClassAverage = avr

End Function

das ganze als Matrixformel in einen horizontalen Bereich mit zwei Zeilen
aufrufen

Gruß
Andreas

[unknown]

Hallo Marcel,
zur ersten Frage folgende Formel:

=SUMME(INDIREKT("A"&ZEILE()*10-9&":A"&ZEILE()*10))

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Website: http://www.xl-faq.de
# Auftragsprojekte#

[unknown]

Oh, ich sehe gerade da fehlt am Ende der Formel etwas, also
=SUMME(INDIREKT("A"&ZEILE()*10-9&":A"&ZEILE()*10))/10

oder aber gleich:
=MITTELWERT(INDIREKT("A"&ZEILE()*10-9&":A"&ZEILE()*10))

falls mit der Division durch 10 die Menge der Zellen gemeint ist.

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Website: http://www.xl-faq.de
# Auftragsprojekte#

[m***@gmail.com]

Hallo,

und danke für die schnellen Antworten. Habt mich auf den richtigen Weg
gebracht, habe Problem 2 aber auch über SUMME(INDIREKT(... und dann
über eine extra Spalte mit den jeweiligen Häufigkeiten der Klasse,die
als Zähler fungierten, ausgewertet bekommen.

Danke nochmal und Gruß
Marcel

[unknown]

Hallo Marcel,
bitte, gern geschehen, und Danke für die Rückmeldung!

MfG Frank
_________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
Microsoft Excel - Die ExpertenTipps http://tinyurl.com/cmned
Website: http://www.xl-faq.de
# Auftragsprojekte#