Office 2013: VBA, dynamische SummenFormle

[deggit]

Hallo,

Ich habe ein Problem bei der Erstellung einer SummenFormel

siehe Anhang Bild

Es ist aber nicht einfach nur das Aufaddieren einer Spalte. Sondern wie in der abgebildeten Tabelle zu
sehen möchte ich das so berechnen

Summe (Gewichtung * Funktionsbewertung)

In Excel ist das ja nicht weiter schwer, hier das Beispiel für das Feld D8
=SUMME(WENN(D4<>"";C4*D4;0);WENN(D5<>"";C5*D5;0);WENN(D6<>"";C6*D6;0);WENN(D7<>"";C7*D7;0))

bei einer statischen Tabelle in der ich immer die Zeilen und Spalten anzahl kenne, kein Thema. Aber mein Problem ist jetzt, dass die Spalten und Zeilen immer Variabel sind. Sprich einmal habe ich eine 4x4 Matrix so wie hier und im nächsten Durchlauf kann es eine 5x10 Matrix sein, usw.

Die TabellenTiefe und Breite ermittel ich und schreibe sie in die Variablen TabllenTiefe und TabellenBreite. Im Beispiel wäre das dann

TabellenTiefe = 8
TabellenBreite = 7

Um jetzt in die letzte Zeile die Summe zu bekommen habe ich mir diesen Code überlegt

'SummenFunktion in die letzte Zeile der Tabelle setzen
For n = 4 To TabellenBreite
For m = 4 To TabellenTiefe

Cells(TabellenTiefe, n) = Application.WorksheetFunction.Sum( If (Cells(m, n) <> "" than m - 1 * m)

Next m
Next n

Leider kann das ja nicht klappen, da ich bei jeden Schleifendurchlauf immer wieder die aktuelle Celle überschreiben.

Habt ihr da eine Idee? Wäre echt super!!!
Zerbreche mir da jetzt schon seit gestern den Kopf drüber!