Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Standardabweichung in VBA

Forumthread: Standardabweichung in VBA

Standardabweichung in VBA
16.03.2006 16:07:23
Müller
hi,
weil ich gerade so schön am fragen bin - wie kann ich die standardabweichung mittels vba ausrechnen - das ist mein ansatz, welcher aber leider nicht funktioniert:
Set spanne = Range(Cells(5, j), Cells(13, j))
Cells(16, j).Value = Application.WorksheetsFunction.StDev(spanne)
jmd irgendwelche hinweise?
vg,müller
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Standardabweichung in VBA
16.03.2006 16:24:09
IngGi
Hallo ,
WorksheetFunction, nicht WorksheetsFunction. Ansonsten müsste das meiner Meinung nach passen.
Gruß Ingolf
AW: Standardabweichung in VBA
16.03.2006 16:35:31
Müller
hi,
es wäre schön gewesen, wenn dieser kleine fehler das problem lösen würde (handelt sich glaube ich auch nur um nen tippfehler durch das ständige verändern des befehls):
also folgende fehlermeldung kommt:
Die StDev-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden
tja, und nun? :(
Anzeige
AW: Standardabweichung in VBA
16.03.2006 16:51:01
Achim
Hi,
die Syntax ist korrekt, wenn sich der Range im aktiven Blatt befindet.
mfg Achim
AW: Standardabweichung in VBA
16.03.2006 16:49:51
IngGi
Hallo ,
eine vernünftige Idee hätte ich noch. Vielleicht will er den Bezug als String:
Cells(16, j).Value = Application.WorksheetsFunction.StDev(spanne.Address)
Ansonsten hätte ich nur noch eine bescheuerte Idee:
Cells(16, j).FormulaLocal = "=STABW("" & spanne.Address & "")"
Cells(16, j).Copy
Cells(16, j).PasteSpecial Paste=xlPasteValues
Gruß Ingolf
Anzeige
AW: Standardabweichung in VBA
16.03.2006 17:08:22
Müller
leider das gleiche problem :(
wird wohl heute nix mehr - echt ärgerlich
danke für dein engagement :)
AW: Standardabweichung in VBA
16.03.2006 17:43:19
Urs
Hi,
Beispiel mal hochladen.
mfg Urs
AW: Standardabweichung in VBA
ransi
HAllo
dies hier geht:
Public

Sub getestet()
Dim spanne As Range
j = 1
Set spanne = Range(Cells(5, j), Cells(13, j))
Cells(16, j).Value = Application.WorksheetFunction.StDev(spanne)
End Sub

Ich schätze bei deinem "j" ist was faul....
ransi
Anzeige
AW: Standardabweichung in VBA
17.03.2006 09:29:05
Müller
lag am activate...mit nem davorgeschalteten Sheets("Tabelle1").Activate gings dann endlich :)
;
Anzeige

Infobox / Tutorial

Standardabweichung in VBA berechnen


Schritt-für-Schritt-Anleitung

Um die Standardabweichung in VBA zu berechnen, kannst du die folgende Schritt-für-Schritt-Anleitung befolgen:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu starten.

  2. Erstelle ein neues Modul, indem du mit der rechten Maustaste auf "VBAProject (dein Arbeitsbuch)" klickst und "Einfügen" > "Modul" wählst.

  3. Füge den folgenden VBA-Code ein:

    Sub BerechneStandardabweichung()
        Dim spanne As Range
        Dim j As Integer
        j = 1 ' Spalte, die untersucht werden soll
        Set spanne = Range(Cells(5, j), Cells(13, j)) ' Bereich definieren
        Cells(16, j).Value = Application.WorksheetFunction.StDev(spanne) ' Berechnung
    End Sub
  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus, um die Standardabweichung zu berechnen.


Häufige Fehler und Lösungen

  • Fehler: "Die StDev-Eigenschaft des WorksheetFunction-Objektes kann nicht zugeordnet werden."

    • Lösung: Stelle sicher, dass der Bereich spanne korrekt definiert ist und dass du die richtige Syntax verwendest, z.B. Application.WorksheetFunction.StDev(spanne).
  • Fehler: Das Makro funktioniert nicht, weil das aktive Blatt nicht korrekt gesetzt ist.

    • Lösung: Füge Sheets("Tabelle1").Activate vor der Berechnung hinzu, um sicherzustellen, dass das richtige Blatt aktiviert ist.

Alternative Methoden

Eine alternative Methode zur Berechnung der Standardabweichung in Excel ist die Verwendung von Formeln direkt in einer Zelle. Du kannst die Formel =STABW(Bereich) verwenden, wobei "Bereich" der Zellbereich ist, dessen Standardabweichung du berechnen möchtest.

Ein Beispiel für die Verwendung in VBA:

Cells(16, j).FormulaLocal = "=STABW(" & spanne.Address & ")"
Cells(16, j).Copy
Cells(16, j).PasteSpecial Paste:=xlPasteValues

Praktische Beispiele

Hier sind einige praktische Beispiele, wie du die Standardabweichung in Excel berechnen kannst:

  1. Wenn du die Standardabweichung für einen Bereich in Spalte A von Zeile 1 bis 10 berechnen möchtest, kannst du folgenden VBA-Code verwenden:

    Sub BeispielStDev()
        Dim spanne As Range
        Set spanne = Range("A1:A10")
        MsgBox Application.WorksheetFunction.StDev(spanne)
    End Sub
  2. Wenn du die Standardabweichung nur für Werte berechnen möchtest, die eine bestimmte Bedingung erfüllen (z.B. nur Werte größer als 10), kannst du eine Schleife verwenden, um diese Werte zu filtern.


Tipps für Profis

  • Verwende die Funktion Application.WorksheetFunction.StDevP für die gesamte Population, anstatt nur für eine Stichprobe, wenn dies für deine Daten sinnvoll ist.
  • Bei der Verwendung von VBA, achte darauf, dass der Bereich korrekt gesetzt ist, insbesondere wenn du mit mehreren Tabellenblättern arbeitest.
  • Nutze den Debugger in VBA, um Fehler zu identifizieren und den Code Schritt für Schritt auszuführen.

FAQ: Häufige Fragen

1. Wie kann ich die Standardabweichung für mehrere Spalten gleichzeitig berechnen?
Du kannst eine Schleife verwenden, um durch die Spalten zu iterieren und die Standardabweichung für jede Spalte zu berechnen.

2. Gibt es eine Möglichkeit, die Standardabweichung zu berechnen, ohne VBA zu verwenden?
Ja, du kannst die Funktion =STABW(Bereich) direkt in eine Zelle eingeben, um die Standardabweichung für einen bestimmten Bereich zu berechnen.

3. Was ist der Unterschied zwischen StDev und StDevP in Excel?
StDev berechnet die Standardabweichung basierend auf einer Stichprobe, während StDevP die Standardabweichung für die gesamte Population berechnet.

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