SummeWennSTabellen
13.05.2020 12:08:35
Olaf
ich möchte über mehrere Tabellenblätter eine SummeWenns laufen lassen.
Mit 2 Kriterien habe ich eine funktionierende Lösung im Netz gefunden, die ich nun auf den Fall 1 Kriterien kann mir jemand helfen, warum die VBA-Funktion beim Fall:
Suchkriterium2 = ""
einen Fehlerwert verursacht.
Viele Grüße Olaf
Public Function SummeWennSTabellen(Tab1 As String, _
Tab2 As String, _
Summe_Bereich As Range, _
KritBereich1 As Range, _
Suchkriterium1 As String, _
KritBereich2 As Range, _
Suchkriterium2 As String) As Variant
Dim intI As Integer
Dim intJ As Integer
Dim intTab As Integer
Dim Summe As Double
If Val(Application.Version)