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

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

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