Ich wollte mithilfe der Summenproduktformel eine Berechnung mit Schleifen und 2 variablen Bedingungen machen, bin aber als Anfänger leider schnell an meine Grenzen gestossen! Nach langem Suchen und Probieren sind wohl Schreibweisen mit FormulaR1C1 oder Evaluate möglich. Folgenden Code hab ich bisher:
Sub Daten()
Range("D6:IV65536").Clear
Dim d As Integer
Dim I As Integer
Dim K
Dim WsD As Worksheet
Dim WsZ As Worksheet
Set WsD = Worksheets("Abrufe") ' Datenblatt
Set WsZ = Worksheets("NR3") ' Zielblatt
K = Worksheets("NR3").Cells(65536, 1).End(xlUp).Row ' Letzte Zeile der Suchspalte
With Worksheets("NR3")
For I = 4 To 110
For d = 6 To WsZ.Cells(65536, 1).End(xlUp).Row
Cells(d, I).FormulaR1C1 = "=Summenprodukt((Abrufe!A2:A" & K & " = NR3!A" & d & ") * ( _
Abrufe!B2:B" & K & " = NR3!" & Cells(4, I) & ") * Abrufe!E2:E" & K & ")"
Next d
I = I + 1
Next I
End With
End
Sub
Vermutliche habe ich Fehler bei der Variablendeklaration und Berechnungsschreibweise.
Kann mir bitte jemand Helfen?
Schon mal Danke im Voraus!
Baumpaul