SumProduct VBA

Hallo zusammen,
ich habe ein Problem mit dem Summenprodukt in VBA. Da meine Laufzeiten ziemlich bescheiden sind, wollte ich mal ausprobieren, wie ich meinen Code optimieren kann.
Ursprünglicher Code:
Cells(i, 5).FormulaR1C1 = _
"=SUMPRODUCT(('Tab1'!R2C25:R300C25='Tab2'!RC[-4])*('Tab1'!R2C43:R300C43=3))"
Neuer Code (ohne die Formel jedes Mal in die entsprechende Zelle zu schreiben):
x = WorksheetFunction.SumProduct(Worksheets("Tab1").Range(Cells(2, 25), Cells(300, 25)) = _ Worksheets("Tab2").Range(Cells(i, 1))* _
Worksheets("Tab1").Range(Cells(2,43),Cells(300,43)))
Fehlermeldung bei neuem Code: "Die SumProduct-Eigenschaft des WorksheetFunction-Objects kann nicht zugeordnet werden." Zu was soll denn zugeordnet werden?
Ich habe schon versucht die Range(Cells,Cells) Bereiche durch Range("A1") zu ersetzen, aber die Fehlermeldung bleibt die gleiche.
Vielen Dank für eure Hilfe
Katharina

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Katharina
Nun die Fehlermeldung ist behoben, dafür habe ich jetzt noch eine andere Fehlermeldung. :-)
Muss zu meiner Schande eingestehen, dass ich es einfach nicht hinbekomme. Frage mich langsam, ob es überhaupt geht. Die Test-Codes liegen bei... d.h. "t1" funktioniert nicht, alle anderen schon.
Na dann, vielleicht schafft es sonst jemand, aber ich leider nicht.
Gruss
Chris


Sub t1()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim i As Byte
Set WS1 = Worksheets("Tab1")
Set WS2 = Worksheets("Tab2")
For i = 1 To 5
MsgBox WorksheetFunction.SumProduct( _
(WS1.Range(WS1.Cells(2, 25), WS1.Cells(300, 25)) = WS2.Cells(i, 1)) * _
(WS1.Range(WS1.Cells(2, 43), WS1.Cells(300, 43)) = 3))
Next i
End Sub


Sub t2()
Dim i As Byte
For i = 1 To 5
Cells(i, 5).FormulaR1C1 = _
"=SUMPRODUCT(('Tab1'!R2C25:R300C25='Tab2'!R" & i & "C1)*('Tab1'!R2C43:R300C43=3))"
Next i
End Sub


Sub t3()
Dim WS1 As Worksheet
Dim WS2 As Worksheet
Dim i As Byte
Set WS1 = Worksheets("Tab1")
Set WS2 = Worksheets("Tab2")
For i = 1 To 5
Cells(i, 5).Formula = "=SumProduct((" _
& WS1.Range(WS1.Cells(2, 25), WS1.Cells(300, 25)).Address & "=" & WS2.Cells(i, 1).Address & ")*(" & _
WS1.Range(WS1.Cells(2, 43), WS1.Cells(300, 43)).Address & "=3))"
Next i
End Sub

Sub t4() Dim WS1 As Worksheet Dim WS2 As Worksheet Dim i As Byte Set WS1 = Worksheets("Tab1") Set WS2 = Worksheets("Tab2") For i = 1 To 5 MsgBox Evaluate("=SumProduct((" _ & WS1.Range(WS1.Cells(2, 25), WS1.Cells(300, 25)).Address & "=" & WS2.Cells(i, 1).Address & ")*(" & _ WS1.Range(WS1.Cells(2, 43), WS1.Cells(300, 43)).Address & "=3))") Next i End Sub

Beliebteste Forumthreads (12 Monate)

15 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

15
Beiträge zum Forumthread

Beiträge zu diesem Forumthread