|
Hallo,
Ich möchte folgendes machen: Den Mittelwert berechnen von Werten in der 12.Spalte (beginnent mit Zeile 2, zuerst von den Ersten 4 dann von den nächsten..usw), das Ergebnis soll dann in eine Tabelle (B2:D5) ausgegeben werden. Also erster Mittelwert in B2, nächster in B3, dann B4, B5, C2, C3,...usw. Soweit so gut, das habe ich auch geschafft mit dem Code unterhalb..
1 2 3 4 5 6 | For col = 1 To 3
For ro = 1 To 4
startAverRow = 2 + (ro - 1) * 4 + (col - 1) * 4 * 4
stoppAverRow = 1 + ro * 4 + (col - 1) * 4 * 4
With ActiveWorkbook.Worksheets(1)
averageTe = Application.WorksheetFunction.Average(.Range(.Cells(startAverRow , 12), .Cells(stoppAverRow , 12)))
|
1 2 3 4 | End With
ActiveWorkbook.Worksheets("Ergebnis").Range("A1").Offset(ro, col).Value = averageTe
Next ro
Next col
|
Nun möchte ich allerdings den Mittelwert von mehreren Tabellenblättern berechnen, also von einer Range die nicht zusammenhängt ( Application.WorksheetFunction.Average(ActiveWorkbook.Worksheets(1).Range("L2:L5"), ActiveWorkbook.Worksheets(2).Range("L2:L5"),..usw) allerdings so, dass ich entscheiden kann wieviele Tabellenblätter miteinbezogen werden sollen.
Ich hoffe es ist halbwegs verständlich was ich machen möchte :/
Danke schonmal im Vorraus!
|