Daten statistisch auswerten-Excell VBA

[Donfugo]

Hallo Leute,

ich darf viele Daten einer Anlage statistisch auswerten auswerten (nur Zahlen). Dazu habe ich ein kleines Programm geschaffen welches mir alle Daten einliest, sortiert etc..(Je Datensatz eine Datei)

Die Datein die eingelesen werden sind immer verschiedene arrays und unterschiedlicher Anzahl. Daher will ich meine Formeln je nach Datenmenge variabel anpassen dazu habe ich bereits public variabeln in denen alles deklariert ist.

Gesucht sind aus der Statistik: Durchschnitt, Standartabweichung, Min, Max

etc...

Diese Ergebnisse sollten danach in einer Grafik miteinnander verglichen werden koennen und das auf Knopfdruck.

Fazit: Wie kann ich statistische Formeln aufstellen deren Inhalt (Felderanzahl) variabel gestalten deren Ergebnisse grafisch darstellen (Die Grafik am besten in einem kleinen Fenster das man den Ueberblick behaelt).

soweit schon mal vielen Dank

[flashpixx]

Ich würde da völlig weg von irgendwelchen Office-Tools gehen und das ganze via The R Project for Statistical Computing machen, da hier die Auswertungen wesentlich umfangreicher sind und auch das Einlesen der Daten leichter ist

[Donfugo]

Das R Project sieht schon sehr gut aus. Nur leider muss ich es in VBA machen da es zu meiner Ausbildung gehoert und hier alles mit Excel gehandhabt wird.

Was ich bis jetzt rausgefunden habe ist, dass man mit VBA Formeln in Zellen schreiben kann aber da habert es noch bei mir in der Ausfuehrung. Koennt ihr mir bitte bei diesen 2 Befehlen helfen das wuerde mir schon weiter helfen

Bei diesen habe ich das Problem das er mir fuer F5:G6 -> 'F5':'G6' (dann kommt eine Fehlermeldung) schreibt zudem wuerde ich gerne die Zellen variabel angeben koennen.

With Worksheets("Analysis")

   .Cells(2, 2).FormulaR1C1 = "=SUM(F5:G6)"


  End With

Bei der Grafikauswertung (die ich irgentwo ausgegraben habe :old ) habe ich das selbe Problem das ich den Bereich nicht variabel gestalten kann. Zudem wuerde ich den Graf gerne in einem Fenster auf einer Seite platzieren, anstatt ein neues sheet zu erstellen.

Sub AddChartSheet()

   Dim chtChart As Chart

   'Create a new chart.

   Set chtChart = charts.Add

   linechartsheet = 1

   With chtChart

      .Name = "linechart"

      .ChartType = xlXYScatterLines


      'Link to the source data range.

      .SetSourceData Source:=Sheets("data").Range("A1:D5"), _

         PlotBy:=xlRows

      .HasTitle = True

      .ChartTitle.Text = "=Sheet1!R1C2"

      .Axes(xlCategory, xlPrimary).HasTitle = True

      .Axes(xlCategory, xlPrimary).AxisTitle.Characters.Text = "x"

      .Axes(xlValue, xlPrimary).HasTitle = True

      .Axes(xlValue, xlPrimary).AxisTitle.Characters.Text = "y"

   End With

End Sub

Ware sehr dankbar wenn das funktionieren wuerde

[Donfugo]

Hi so sorry das erste Problem hab ich schon geloest

Public Sub FormelnSchreiben2()

If Not CheckSheet("Analysis") Then Sheets.Add

If Not CheckSheet("Analysis") Then ActiveSheet.Name = "Analysis"

    Dim oBlatt As Worksheet

    Dim iStartReihe As Long, iEndReihe As Long

    Dim iStartSpalte As Integer, iEndSpalte As Integer

    iStartReihe = 2

    iStartSpalte = 2

    iEndReihe = 5

    iEndSpalte = 3

    Set oBlatt = ThisWorkbook.Worksheets("Analysis")

    With oBlatt

        oBlatt.Range("e2").Formula = _

        "=Sum(Data!" & .Range(.Cells(iStartReihe, iStartSpalte), _

        .Cells(iEndReihe, iEndSpalte)).Address(0, 0) & ")"


        oBlatt.Range("e3").Formula = _

        "=Sum(Data!" & .Range(.Cells(iStartReihe, iStartSpalte), _

        .Cells(iEndReihe, iEndSpalte)).Address(1, 1) & ")"

    End With

    Set oBlatt = Nothing

End Sub