WorksheetFunction.Sumproduct
04.01.2007 22:27:43
Peter
Ich möchte mit nachstehendem Code in einer Tabelle in gewissen Zellen das Ergebnis einer Worksheetfunktion (Summe von zwei mal Summenprodukt) einfügen.
Ich habe mal probiert die Formel einzufügen (vgl. unten). Das funktioniert.
Nun wollte ich anstelle der Formel der Wert der Formel eintragen. Da gibt es Probleme mit gewissen Bestandteilen der Formel, zum Beispiel kann er mit den Namen der benannten Bereichen (z.B. _Jahr) nichts anfangen.
Im Moment habe ich dazu zwei Fragen:
Wie setze ich diese Formel mit WorksheetFunction.SumProduct um?
Die erste Formel setze ich auf Zeile 10 ein. Dementsprechend sind auch gewisse Referenzwerte auf Zeile 10 enthalten (z.B. _Segment=$C10). Wie kann ich diese Bezüge variabel gestalten, so dass wenn ich auf Zeile 11 bin dann die Referenz C11 verwendet wird?
Besten Dank für ein Feedback!
Peter
Sub aktualisiere_Segment()
Dim aBook As Workbook
Dim aSheet As Worksheet
Dim zNr As Long
Set aBook = ThisWorkbook
Set aSheet = Worksheets("Segment")
With aSheet
zNr = 10
Do While .Cells(zNr, 2) <> "Total"
If .Cells(zNr, 6) <> "" Then
.Cells(zNr, 6) = "=sumproduct((_Jahr=F$3)*(_Segment=$C10)*(_Konto=$E10)*_Betrag)+sumproduct((_AKonto=$E10)*(_ASegment=$C10)*(_APlanjahr1))"
Else
End If
zNr = zNr + 1
Loop
End With
End Sub