varianz in großer Liste ermitteln

Hallo liebes Forum,
ich bin neu hier als Mitglied, habe jedoch schon öfters qualitative Antworten hier aus dem Forum bekommen mithilfe der Suchmaschine Google.
Vorab tut es mir leid für die nächtliche Ruhestörung hier im Forum, aber ein Problem an dem ich mir die Zähne ausbeiße lässt mich nicht in ruh zu Bett gehen..
Mein Anliegen an euch bzw. mein Problem ist, dass ich für meine Abschlussarbeit Daten aus einer Liste ermitteln muss um den Varianzkoeffizienten von verschiedenen Artikel zu bestimmen.
An sich gar kein Problem, mithilfe z.B.: der Formel =WURZEL(VARIANZEN(Zelle1:Zelle10))/MITTELWERT(Zelle1:Zelle10)*100 lässt sich das ganze ermitteln.
Das Problem hierbei ist dass die Originaltabelle, mehrere 10.000 Zeilen lang ist und mehrere 1000 verschiedene Artikel drin sind. Händisch die Daten zu ermitteln würde Tage dauern, die Zeit aber besitze ich leider nicht... Mit normalem Excel komme ich da leider nicht weiter (wenn ich mich täusche, bitte korrigieren), weswegen ich dachte man "muss bestimmt vba" einsetzen dafür.
Ich habe mal eine Beispiel-Datei eingefügt. In den rot hinterlegten Zellen soll immer der Varianzkoeffizient ermittelt werden aus den darüberliegenden Mengen des jeweiligen Artikels. Der Aufbau der Liste ist immer gleich: es folgen eine Anzahl X des Artikel Y mit seinen Mengen dann kommt eine Leerzeile in der ich gerne den Varianzkoeffizienten bestimmen möchte unter den Mengen. Dann folgt der nächste Artikel Y mit dem selben Aufbau. Das Problem ist die Anzahl X von den Artikeln in der Liste ist nicht immer die selbe, das heißt Artikel 1 ist z.b 16 mal aufgelistet. und Artikel 2 lediglich 4 mal. Artikel 3 wiederum z.B. nur 3 mal gelistet ist. Es würde Sinn machen "wenn VBA das realisieren kann", dann auf einem extra Blatt aufzulisten untereinander die Ergebnisse sprich:
Spalte1 Spalte 2
Artikel Varianzkoeffizient
1 74
2 97
3 71
4 0
... ...
https://www.herber.de/bbs/user/141847.xlsx
Ich hoffe das war halbwegs verständlich erklärt und die Beispieldatei im Anhang hilft mein Dilemma zu verstehen. Leider ist mein VBA Level so beschränkt das ich lediglich weiß wie man den Makrorecorder benutzt oder 1:1 vbacode einfügt.
Kann mir jemand bei diesem Problem weiterhelfen? Bin euch mega dankbar für jede Hilfe.
Ich bedanke mich schonmal recht herzlichst, dass ihr euch diesen Beitrag durchgelesen :)
Mit freundlichen Grüßen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub VarianzenKoeffizienten() Dim lngZeile As Long Dim lngZeileAus As Long Dim lngzeileAktuellerArtikel As Long Dim ws1 As Worksheet, ws2 As Worksheet lngzeileAktuellerArtikel = 2 Set ws1 = Worksheets("Tabelle1") Set ws2 = Worksheets("Tabelle2") lngZeileAus = 2 For lngZeile = 2 To ws1.Cells(Rows.Count, 4).End(xlUp).Row If Not ws1.Cells(lngZeile, 4).Value = ws1.Cells(lngZeile + 2, 4).Value Then ws2.Cells(lngZeileAus, 1).Value = ws1.Cells(lngzeileAktuellerArtikel, 4).Value ws2.Cells(lngZeileAus, 2).FormulaLocal = "=WURZEL(VARIANZEN(Tabelle1!O" & _ lngzeileAktuellerArtikel & ":O" & lngZeile & "))" _ & "/MITTELWERT(Tabelle1!O" & _ lngzeileAktuellerArtikel & ":O" & lngZeile & ")*100" lngzeileAktuellerArtikel = lngZeile + 2 lngZeile = lngZeile + 1 lngZeileAus = lngZeileAus + 1 End If Next lngZeile Set ws1 = Nothing Set ws2 = Nothing End Sub

Beliebteste Forumthreads (12 Monate)

varianz in großer Liste ermitteln

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread