SummeIndexTabellen
13.05.2020 12:05:15
Olaf
ich möchte auf mehreren Tabellenblättern und mit der Index-Funktion identifizierte Zellwerte aufsummieren.
Die nachfolgende Function führt aber zu einem Fehlerwert.
Kann jemand mir bitte helfen,
Viele Grüße Olaf
---------------------
Public Function SummeIndexTabellen(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)