Office: Mittelwert über mehrere Tabellenblätter bilden

Hallo Experten,

leider bin ich ein blutiger VBA-Anfänger und hoffe hier auf Unterstützung.

Ich würde gern ein VBA-Programm schreiben, mit dem ich den Mittelwert aus einzelnen Zellen in 5 verschiedenen Tabellenblättern bilden kann und dann das Ergebnis in eine Zelle einer 6. Tabelle schreiben kann.
Ich habe dazu bislang nichts gefunden.

Um es etwas genauer zu beschreiben:
Ich habe 6 (bzgl. Format) identische Tabellen. Ich möchte nun jeweils z.B. die Zelle B4 aus Tabelle1 bis Tabelle5 auslesen, aus allen 5 Werten den Mittelwert bilden und dann das Ergebnis in Zelle B4 in Tabelle6 schreiben lassen.

Geht das mit VBA?

Vielen dank für Eure Hilfe

:)

 

warum VBA? Formel ist doch einfacher.
=MITTELWERT(Tabelle2!D25;Tabelle3!D33;Tabelle1!G25)

 

und falls gleiche Zelle noch einfacher.


Tabelle1

	C	D
22	6	5

verwendete Formeln
Zelle	Formel	Bereich	N/A
C22	=MITTELWERT(Tabelle1:Tabelle3!D22)

Excel-Inn.de

Hajo-Excel.de

XHTML-Tabelle zur Darstellung in Foren, einschl. der neuen Funktionen ab Version 2007

Add-In-Version 23.05 einschl. 64 Bit

 

Natürlich kann man in Tabelle6 das ganze auch relativ einfach mit einer Formel lösen. Aber gerade das möchte ich eben nicht. Das Problem, das ich oben geschildert habe ist natürlich nur eine starke Vereinfachung des Gesamtproblems, das ich habe. Ich möchte z.B. nachdem ich weiß wie man den Mittelwert in VBA-bildet noch diverse Bedingungen einfügen wie z.B. dass der Mittelwert nur dann gebildet wird, wenn mind. 3 der 5 Eintelwerte tatsächlich auch vorhanden sind - sonst will ich eine leere Zelle, in der nichts steht (auch keine Formel) , da ich diese Werte dann weiter verarbeiten möchte.
Sorry, dass ich dies nicht gleich näher erläutert habe, aber ich wollte das eigentliche Problem möglichst einfach und ohne "Schnörkel" beschreiben

 

Hallo,

selbstverständlich geht das auch mit VBA.

Mit Prüfung, ob die Zellen leer sind (Wert wird in MW-Berechnung nicht einbezogen):
Code:

Gebildet wird das arithmetische Mittel.

Grüße
EarlFred

 

Vielen dank ,

das hilft mir erst mal sehr viel weiter.