Hallo,

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

---------------------

1.  Public Function SummeIndexTabellen(Tab1 As String, _
2.                                   Tab2 As String, _
3.                                     Summe_Bereich As Range, _
4.                                     KritBereich1 As Range, _
5.                                     Suchkriterium1 As String, _
6.                                     KritBereich2 As Range, _
7.                                     Suchkriterium2 As String) As Variant
8.  
9.  
10.  Dim intI                      As Integer
11.  Dim intJ                      As Integer
12.  Dim intTab                    As Integer
13.  Dim Summe                     As Double
14.  
15.      If Val(Application.Version) < 12 Then
16.          SummeIndexTabellen = "Nur ab xl2007 einsetzbar"
17.          Exit Function
18.      End If
19.  
20.      If Suchkriterium1 = "" Or Suchkriterium2 = "" Then
21.          SummeIndexTabellen = 0
22.          Exit Function
23.      End If
24.  
25.      intI = Worksheets(Tab1).Index
26.      intJ = Worksheets(Tab2).Index
27.  
28.      For intTab = intI To intJ
29.          Set KritBereich1 = ActiveWorkbook.Worksheets(intTab) _
30.                             .Range(KritBereich1.Address)
31.  
32.          Set KritBereich2 = ActiveWorkbook.Worksheets(intTab) _
33.                             .Range(KritBereich2.Address)
34.  
35.          Set Summe_Bereich = ActiveWorkbook.Worksheets(intTab) _
36.                              .Range(Summe_Bereich.Address)
37.          With Application.WorksheetFunction
38.          
39.             Summe = Summe + .IfError(.Index(Summe_Bereich, .Match(Suchkriterium1, KritBereich1, 0), .Match(Suchkriterium2, KritBereich2, 0)), 0)
40.                  
41.          End With
42.  
43.      Next intTab
44.  
45.      SummeIndexTabellen = Summe
46.      
47.      
48.  End Function