通过VBA使用来自其他表的输入来填充表

Question

基于此功能，我试图用另一张表（不同表“ wsQuant”）的输入来填充一张表中的表格：

=CountIfs(Tabelle14[Question1];[@[Q1]];Tabelle14[Name];[@[Name]];Tabelle14[Participation];[@[Participation]])

这可以工作，但是由于表很大，因此我试图通过VBA来实现它，因为文件总是崩溃（我想一次计算太多了）。到目前为止，我的解决方案是：

Sub DataBase()

Dim wsQuant As Worksheet
Set wsQuant = Worksheets("quantitativ")

Range("I5").Value = WorksheetFunction.CountIfs("wsQuant[$Z$4:$Z$1000]", [@[Q1]], "wsQuant[Name]", [@[Name]], "wsQuant[Participation]", [@[Participation]])

End Sub

这行不通，我也不知道为什么。

我现在搜索了一整天，没有找到任何答案。

任何帮助将不胜感激。

编辑： 样本：

Data from the questionaire

这是给出数据的方式。回答问题的范围为1到5。

List to be filled

此列表应通过对与前4个cloumns匹配的答案进行计数来填充。