Thema Datum  Von Nutzer Rating
Antwort
Rot SummeIndexTabellen
 13.05.2020 11:42:14 Olaf
Solved

Ansicht des Beitrags:
Von:
Olaf		 Datum:
13.05.2020 11:42:14		 Views:
798		 Rating:
     
Antwort:
 Nein
Thema:
SummeIndexTabellen
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 _________________________________________ 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) < 12 Then SummeIndexTabellen = "Nur ab xl2007 einsetzbar" Exit Function End If If Suchkriterium1 = "" Or Suchkriterium2 = "" Then SummeIndexTabellen = 0 Exit Function End If intI = Worksheets(Tab1).Index intJ = Worksheets(Tab2).Index For intTab = intI To intJ Set KritBereich1 = ActiveWorkbook.Worksheets(intTab) _ .Range(KritBereich1.Address) Set KritBereich2 = ActiveWorkbook.Worksheets(intTab) _ .Range(KritBereich2.Address) Set Summe_Bereich = ActiveWorkbook.Worksheets(intTab) _ .Range(Summe_Bereich.Address) With Application.WorksheetFunction Summe = Summe + .IfError(.Index(Summe_Bereich, .Match(Suchkriterium1, KritBereich1, 0), .Match(Suchkriterium2, KritBereich2, 0)), 0) End With Next intTab SummeIndexTabellen = Summe End Function

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot SummeIndexTabellen
 13.05.2020 11:42:14 Olaf
Solved