Mittelwert über mehrere Blätter
05.08.2005 00:31:59
Helmut
ich möchte in einem Übersichtsblatt("Schnitt") den Mittelwert der Zelle A1 aller übrigen Tabellenblätter darstellen.
Die Blätter sind nach jeweiligen Tagesdaten, die variieren können, benannt, z.B. 21.05.2005
Das Problem allerdings dabei, daß immer wieder ein neues Blatt eingefügt wird u. die Berechnung des Mittelwertes natürlich auch dieses mit einschließen soll.
Mein bisheriger Ansatz mittels VBA führt leider nur zum Ergebnis #BEZUG
Sub Schnitt()
Dim TB As Worksheet
Set TB = ThisWorkbook.Worksheets("Schnitt")
TB.Range("B6").Formula = "=AVERAGE('Sheets(2):Sheets(Sheets.Count)'!A1)"
End Sub
Stellt sich die Frage wie hier mit einer variablen Anzahl an Blättern sowie variablen Tabellennamen zu verfahren ist.
Hoffe, mir kann jemand weiterhelfen.