VBA gibt "type-mismatch" zurück, wenn Formel einwandfrei funktioniert

Question

Ich habe ein Makro, das den Wert in Spalte E zurückgeben soll, wenn es den Werten in Spalte A, Spalte B und Spalte D entspricht. Die folgende Formel eingegeben Excel funktioniert super:

=SUMPRODUCT(--(A1:A180="Category Name"),--(B1:B180="Specific Type"),--(D1:D180=2015),(E1:E180))

aber das folgende VBA-Programm gibt einen "Typ-Mismatch-Fehler". Das Programm befindet sich als Modul und nicht unter einem bestimmten Blatt. Ich habe überprüft, dass die "Blattname" Bereiche auch existieren. Kann jemand sehen, was der Fehler ist?

Für den Datensatz sind Spalten a und b Text und Spalten d und e sind Zahlen.

Function LocateFirstCell() 
Dim FirstCell 

Dim ColA 
Dim ColB 
Dim ColD 
Dim ColE 

Dim Name As String 
Dim BOD As String 
Dim Year As Integer 

Set ColA = Worksheets("Sheet Name").Range("A1:A180") 
Set ColB = Worksheets("Sheet Name").Range("B1:B180") 
Set ColD = Worksheets("Sheet Name").Range("D1:D180") 
Set ColE = Worksheets("Sheet Name").Range("E1:E180") 


Name = "Category Name" 
BOD = "Specific Type" 
Year = 2015 


FirstCell = [SUMPRODUCT(--(ColA=Name),--(ColB=BOD),--(ColD=Year),(ColE))] 
'=SUMPRODUCT(--(A1:A180="Category Name"),--(B1:B180="Specific Type"),--(D1:D180=2015),(E1:E180)) 

MsgBox ("FirstCell is " & FirstCell) 
End Function 

Answer 1

Sie können VBA-Variablen nicht in der kurzen Hand von Evaluate verwenden; die [] ist kurzerhand für ActiveSheet.Evaluate

Sie müssen es schreiben und die Variablen in einer Zeichenfolge verketten:

FirstCell = Worksheets("Sheet Name").Evaluate("SUMPRODUCT(--(" & ColA.Address & "=""" & Name & """),--(" & ColB.Address & "=""" & BOD & """),--(" & ColD.Address & "=" & Year & "),(" & ColE.Address & "))")