Summenprodukt mit VBA
03.08.2005 16:33:55
Korl
ich brauche eine Bedingung in meinem VBA-Code die dem Summenprodukt entspricht.
Tabelle1 | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Dies ist mein Test-Code:
Option Explicit
Sub test() Dim WksD As Worksheet Dim bereich1 As Range Dim bereich2 As Range Dim i As String Dim z As String Set WksD = Worksheets(1) Set bereich1 = WksD.Range("A1:A100") Set bereich2 = WksD.Range("B1:B100") i = WksD.Range("e1") z = WksD.Range("f1") If WorksheetFunction.SumProduct((bereich1 = i) * (bereich2 = z)).Value > 0 Then _ MsgBox ("Der Wert ist schon vorhanden!") Exit Sub End Sub
Der Debugger sagt "SumProduct" ist ein ungültiger Bezeichner.
Kann mir hier jemand auf die Sprünge helfen?
Gruß Korl