Mittelwert und Standardabweichung per Makro

Forumthread: Mittelwert und Standardabweichung per Makro

19.10.2005 08:47:16

Andreas

Guten Morgen!
Ich hoffe mir kann jemand bei folgendem Problem helfen.
Ich möchte in Excel einige Zellen markieren und mir
per Knopfdruck den Mittelwert und die Standardabweichung
berechnen lassen. Ich habe herausgefunden, dass
in VBA Mittelwert=AVERAGE ist und Standardabweichung=STDEVP.
Mein Problem ist wie verpacke ich das in ein Makro.
Ziel wäre:
Ich markiere die betreffenden Zellen
starte das Makro
es erscheint ein Fenster das mich auffordert die Zelle wohin der Mittelwert geschrieben wird zu wählen
ich wähle die Zelle und füge per Knopfdruck den Wert ein
genauso für die Standardabweichung...
Ich weiß nicht ob das so möglich ist, bzw wie groß der Aufwand ist.
Mir würde dies bei meiner Arbeit sehr nützlich sein.
Jeder Tipp würde mir sehr weiterhelfen. Danke.
Schöne Grüße
Andreas

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mittelwert und Standardabweichung per Makro

19.10.2005 11:22:42

bst
1000 Dank

19.10.2005 11:27:25

Andreas

AW: Mittelwert und Standardabweichung per Makro

19.10.2005 11:22:42

bst

Morgen Andreas,
versuch mal sowas ähnliches.
cu, Bernd
--
Option Explicit

Sub x()
   Dim src As Range, dst As Range

   Set src = Selection
   Set dst = Nothing
   On Error Resume Next
   Set dst = Application.InputBox("Wohin schreiben?", Type:=8)
   On Error GoTo 0
   If dst Is Nothing Then Exit Sub

   ' Variante 1 mit einer normalen Formel
   With dst
      .Formula = "=AVERAGE(" & src.Address & ")"
      .Formula = .Value
   End With

   With dst.Offset(0, 1)
      .Formula = "=STDEVP(" & src.Address & ")"
      .Formula = .Value
   End With

   ' Variante 2 mit WorkSheetFunction
   dst.Offset(1, 0).Value = Application.WorksheetFunction.Average(src)
   dst.Offset(1, 1).Value = Application.WorksheetFunction.StDevP(src)
End Sub

1000 Dank

19.10.2005 11:27:25

Andreas

Vielen vielen Dank das hilft mir sehr weiter.
Beste Grüße
Andreas

Infobox / Tutorial

Mittelwert und Standardabweichung per Makro in Excel

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Öffne Excel und drücke ALT + F11, um den Visual Basic for Applications (VBA) Editor zu öffnen.
Gehe zu Einfügen > Modul, um ein neues Modul zu erstellen.

Füge den folgenden VBA-Code ein:

Option Explicit

Sub BerechneMittelwertUndStdabw()
    Dim src As Range, dst As Range

    Set src = Selection
    Set dst = Nothing

    On Error Resume Next
    Set dst = Application.InputBox("Wohin schreiben?", Type:=8)
    On Error GoTo 0

    If dst Is Nothing Then Exit Sub

    ' Mittelwert berechnen
    With dst
        .Formula = "=AVERAGE(" & src.Address & ")"
        .Formula = .Value
    End With

    ' Standardabweichung berechnen
    With dst.Offset(0, 1)
        .Formula = "=STDEVP(" & src.Address & ")"
        .Formula = .Value
    End With
End Sub

Schließe den VBA-Editor und kehre zu deinem Excel-Dokument zurück.
Markiere die Zellen, für die du den Mittelwert und die Standardabweichung berechnen möchtest.
Drücke ALT + F8, wähle das Makro BerechneMittelwertUndStdabw aus und klicke auf Ausführen.
Wähle die Zielzelle aus, in die der Mittelwert geschrieben werden soll; die Standardabweichung wird in die nächste Zelle rechts geschrieben.

Häufige Fehler und Lösungen

Fehler: "Ungültige Eingabe" beim Ausführen des Makros
- Lösung: Stelle sicher, dass du eine gültige Zellenauswahl in Excel getroffen hast, bevor du das Makro ausführst.
Die Berechnungen erscheinen nicht in der Zielzelle
- Lösung: Überprüfe, ob die Zelle für die Ausgabe korrekt ausgewählt wurde. Es sollte sich um eine leere Zelle handeln.

Alternative Methoden

Direkte Formeln verwenden: Du kannst die Funktionen =AVERAGE(A1:A10) und =STDEVP(A1:A10) direkt in die Zellen eingeben, um den Mittelwert und die Standardabweichung zu berechnen.
Excel Diagramm mit Mittelwert und Standardabweichung: Verwende die Diagrammfunktion, um den Mittelwert und die Standardabweichung grafisch darzustellen. Wähle dein Datenfeld aus, gehe zu Einfügen, wähle Diagramm und füge Linien für den Mittelwert und die Standardabweichung hinzu.

Praktische Beispiele

Wenn du die Zellen A1 bis A10 markierst und das Makro ausführst, wird der Mittelwert in Zelle B1 und die Standardabweichung in Zelle C1 geschrieben.
Nutze die Formeln =AVERAGE(A1:A10) in D1 und =STDEVP(A1:A10) in E1, um die Ergebnisse manuell zu überprüfen.

Tipps für Profis

Standardabweichung des Mittelwertes: Um den Standardfehler des Mittelwertes zu berechnen, kannst du die Formel =STDEV(A1:A10)/SQRT(COUNT(A1:A10)) verwenden.
Diagramm Mittelwert Standardabweichung: Wenn du ein Diagramm erstellst, kannst du Trendlinien hinzufügen, um die Mittelwerte zu visualisieren. Nutze die Funktion Fehlerindikatoren, um die Standardabweichung grafisch darzustellen.

FAQ: Häufige Fragen

1. Wie kann ich die Ergebnisse in einem Diagramm darstellen? Um ein Diagramm mit Mittelwert und Standardabweichung zu erstellen, markiere zuerst deine Daten, gehe auf Einfügen > Diagramm und füge dann Fehlerindikatoren hinzu.

2. Was ist der Unterschied zwischen AVERAGE und AVERAGEIF? AVERAGE berechnet den Mittelwert aller angegebenen Zellen, während AVERAGEIF den Mittelwert nur für die Zellen berechnet, die ein bestimmtes Kriterium erfüllen.

3. Wie kann ich den Standardfehler des Mittelwerts berechnen? Der Standardfehler des Mittelwerts kann mit der Formel =STDEV(A1:A10)/SQRT(COUNT(A1:A10)) berechnet werden, wobei A1:A10 dein Datenbereich ist.

Beliebteste Forumthreads (12 Monate)

Mittelwert und Standardabweichung per Makro

Forumthread: Mittelwert und Standardabweichung per Makro

2 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

VBA Beispiele zu diesem und ähnlichen Themen

Infobox / Tutorial

Mittelwert und Standardabweichung per Makro in Excel

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread