Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Berechnung mehrerer Mittelwerte in einer Spalte

Berechnung mehrerer Mittelwerte in einer Spalte
11.02.2008 22:32:00
matti
Hallo da draußen!
Ich hab folgendes Problem: Ich muss mehrere Tabellen auswerten, in denen jeweils mehrere Mittelwerte/Standardabweichung in einer Spalte errechnet werden müssen. Dabei ist die Anzahl der Werte (=Anzahl der Zeilen) immer unterschiedlich. Ich bräuchte also ein Script, dass selbstständig die Zellblöcke (jeweils durch drei leere Zellen getrennt) ermittelt und den Mittelwert jedes Zellblocks errechnet. Kann mir dabei jemand helfen? Bin leider kein VBA-Crack.... Hab ne Beispiel xls angehängt. Von den gelb hinterlegten Zellen muss jeweils der Mittelwert (grüne Zellen) bzw. die StAbw (blaue Zellen) errechnet werden.
https://www.herber.de/bbs/user/49829.xls
Für Hilfe bin ich super Dankbar!!!

Anzeige

8
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Berechnung mehrerer Mittelwerte in einer Spalte
11.02.2008 23:22:00
Josef
Hallo Matti,
probier mal.
Sub Mittelwert()
Dim lngR As Long, lngE As Long, lngX As Long

lngR = 7
lngX = Application.Max(lngR, Cells(Rows.Count, 7).End(xlUp).Row)

Do
    lngE = Cells(lngR, 7).End(xlDown).Row
    Application.Goto Cells(lngE + 2, 7)
    
    If Application.CountA(Range(Cells(lngE + 1, 7), Cells(lngE + 3, 7))) = 0 Then
        Cells(lngE + 1, 7) = Application.Average(Range(Cells(lngR, 7), Cells(lngE, 7)))
        Cells(lngE + 2, 7) = Application.StDev(Range(Cells(lngR, 7), Cells(lngE, 7)))
    End If
    
    lngR = lngE + 4
Loop While lngR < lngX

End Sub


Gruß Sepp



Anzeige
AW: Berechnung mehrerer Mittelwerte in einer Spalt
12.02.2008 20:25:13
matti
Hallo Josef!
Das hat super geklappt!!! 1000-Dank!!!
Eine Frage hätte ich noch: lassen sich die errechneten Mittelwerte noch in einer Tabelle zusammenfassen?
vg matti

AW: Berechnung mehrerer Mittelwerte in einer Spalt
12.02.2008 20:26:00
Josef
Hallo Matti,
und wo soll diese Tabelle hin?

Gruß Sepp



Anzeige
AW: Berechnung mehrerer Mittelwerte in einer Spalt
12.02.2008 21:40:40
matti
Hallo!
In das gleiche Tabellenblatt siehe: https://www.herber.de/bbs/user/49873.xls
Die gelb markierten Zellen sollen rechts oben in die Tabellenvorlage kopiert werden.
vg matti

AW: Berechnung mehrerer Mittelwerte in einer Spalt
12.02.2008 21:58:49
Josef
Hallo Matti,
Sub Mittelwert()
Dim lngR As Long, lngE As Long, lngX As Long, intC As Integer

lngR = 7
lngX = Application.Max(lngR, Cells(Rows.Count, 7).End(xlUp).Row)
intC = 13
Do
    lngE = Cells(lngR, 7).End(xlDown).Row
    
    If Application.CountA(Range(Cells(lngE + 1, 7), Cells(lngE + 3, 7))) = 0 Then
        Cells(lngE + 1, 7) = Application.Average(Range(Cells(lngR, 7), Cells(lngE, 7)))
        Cells(lngE + 2, 7) = Application.StDev(Range(Cells(lngR, 7), Cells(lngE, 7)))
        Cells(3, intC) = Cells(lngE + 1, 7)
        Cells(4, intC) = Cells(lngE + 2, 7)
    End If
    
    intC = intC + 1
    lngR = lngE + 4
Loop While lngR < lngX

End Sub


Gruß Sepp



Anzeige
AW: Berechnung mehrerer Mittelwerte in einer Spalt
13.02.2008 09:32:00
matti
Moin!
SUPER!!!! Das spart mir Stunden an langweiliger Arbeit!!!
Vielen Dank!!!
matti

AW: Berechnung mehrerer Mittelwerte in einer Spalte
12.02.2008 11:06:35
Ludicla
Hallo Matti,
ich hab mal in deine Tabelle ein Pivot-Muster eingebaut.
Viellicht hilfts Dir.
Die Standardabweichung als Feldfunktion gibt allerdings abweichende Werte -
müsstest Du noch klären warum. Ich mußte auch die Datei kürzen da ich über 300 kb war.
https://www.herber.de/bbs/user/49842.xls
Gruss Ludicla.

Anzeige
AW: Berechnung mehrerer Mittelwerte in einer Spalt
12.02.2008 20:31:00
matti
Vielen Dank für die Hilfe!!
vg matti
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige
Anzeige

Infobox / Tutorial

Berechnung mehrerer Mittelwerte in einer Spalte


Schritt-für-Schritt-Anleitung

Um den Mittelwert über mehrere Zeilen in Excel zu berechnen, kannst du ein einfaches VBA-Skript verwenden. Hier ist der Code, den du verwenden kannst:

Sub Mittelwert()
    Dim lngR As Long, lngE As Long, lngX As Long
    lngR = 7
    lngX = Application.Max(lngR, Cells(Rows.Count, 7).End(xlUp).Row)

    Do
        lngE = Cells(lngR, 7).End(xlDown).Row

        If Application.CountA(Range(Cells(lngE + 1, 7), Cells(lngE + 3, 7))) = 0 Then
            Cells(lngE + 1, 7) = Application.Average(Range(Cells(lngR, 7), Cells(lngE, 7)))
            Cells(lngE + 2, 7) = Application.StDev(Range(Cells(lngR, 7), Cells(lngE, 7)))
        End If

        lngR = lngE + 4
    Loop While lngR < lngX
End Sub
  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.
  2. Füge einen neuen Modul hinzu (Einfügen > Modul) und kopiere den obigen Code hinein.
  3. Schließe den VBA-Editor und gehe zurück zu Excel.
  4. Führe das Makro aus (Entwicklertools > Makros > Mittelwert > Ausführen).

Dieses Skript berechnet den Mittelwert einer Spalte und die Standardabweichung für die von dir definierten Zellblöcke.


Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004"
    Lösung: Überprüfe, ob die Zellen, die du berechnen möchtest, leer sind oder ob die Zeilen richtig eingestellt sind.

  • Fehler: "Falscher Zellbereich"
    Lösung: Stelle sicher, dass die richtigen Zellreferenzen verwendet werden. Du kannst den Code anpassen, um verschiedene Bereiche zu berücksichtigen.


Alternative Methoden

Wenn du keine VBA-Lösungen verwenden möchtest, kannst du auch die Excel-Funktionen nutzen:

  • Mittelwert aus mehreren Zellen berechnen:
    Verwende die Funktion =MITTELWERT(A1:A10) für den Mittelwert eines Bereichs.

  • Mittelwert wenn mehrere Bereiche:
    Nutze =MITTELWERTWENN(Bereich;Kriterium;Mittelwert_Bereich) für bedingte Berechnungen.

  • Pivot-Tabellen:
    Erstelle eine Pivot-Tabelle, um Mittelwerte und Standardabweichungen schnell zu berechnen und zu visualisieren.


Praktische Beispiele

Angenommen, du hast folgende Werte in den Zellen A1 bis A10:

1
2
3
4
5
6
7
8
9
10

Um den Mittelwert aus mehreren Zellen zu berechnen, kannst du die folgende Formel verwenden:

=MITTELWERT(A1:A10)

Für mehrere Bereiche könntest du Folgendes verwenden:

=MITTELWERT(A1:A5; B1:B5)

Das Ergebnis wird dir die durchschnittlichen Werte aus den angegebenen Bereichen liefern.


Tipps für Profis

  • Verwende benannte Bereiche für eine bessere Übersichtlichkeit in deinen Formeln.
  • Nutze Bedingte Formatierungen, um Mittelwerte visuell hervorzuheben.
  • Experimentiere mit Matrixformeln, um komplexere Berechnungen durchzuführen.

FAQ: Häufige Fragen

1. Wie kann ich den Mittelwert für mehrere Spalten berechnen?
Verwende die Funktion =MITTELWERT(A1:C10) um den Mittelwert für die Spalten A bis C zu berechnen.

2. Ist es möglich, mehrere Standardabweichungen zusammenzufassen?
Ja, du kannst die Funktion =STABW.S(A1:A10) für die Standardabweichung verwenden und die Ergebnisse dann manuell zusammenfassen oder in einer Pivot-Tabelle darstellen.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige