Einträge in gefilterter Liste ohne Duplikate

[R G K]

Guten Tag,

Grundlage ist die Formel
aus http://www.herber.de/excelformeln und bitte suchen ... Einträge in gefilterter Liste ohne Duplikate zählen (339)
=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT("B"&ZEILE(2:99)))*(VERGLEICH(B2:B99&"";B2:B99&"";0) =ZEILE(1:98)))

Ich habe die Formel so angepasst, dass diese auch bei einfügen von Spalten vor der Summenspalte funktioniert

Die Summenspalte ist als Bereich SummenSpalte definiert!
Formel:
=SUMMENPRODUKT(TEILERGEBNIS(9;INDIREKT(LINKS(ADRESSE(1;SPALTE(SummenSpalte);4);
LÄNGE(ADRESSE(1;SPALTE(SummenSpalte);4))-1)&ZEILE(INDIREKT(2&":"&ANZAHL2($A:$A)))))*(VERGLEICH(SummenSpalte&"";SummenSpalte&"";0) =ZEILE(INDIREKT(1&":"&ANZAHL2($A:$A)-1))))

Beim Versuch diese Formel mit Evaluate auszuwerten bin ich bisher gescheitert!

Alternativ habe ich einen eine Code geschrieben:

    
Sub test_aufruf()
    Dim summe As Double
    summe = FilterSummeOhneDup(ThisWorkbook.ActiveSheet, 3, 2, 1, 83, 84)
End Sub
    
Function FilterSummeOhneDup(wksZiel As Worksheet, lStartRow As Long, lFilterZeile As Long, lColumnCount As Long, _
    lSumColumnFilter As Long, lSummeFilter As Long) As Double
    Dim i As Long, iX As Long, iZ As Long, zCount As Long, zA As Long
    Dim vSummeFilter As Variant, SumZaehler As Long
    Dim vArrayFilter As Variant, vArraySumme As Variant, lRowAbzug As Long
    Dim a As Range
    On Error Resume Next
    With wksZiel
        i = .UsedRange.SpecialCells(xlCellTypeLastCell).Row
        ReDim vArrayFilter(i - lStartRow)
        ReDim vArraySumme(i - lStartRow)
        ReDim vZaehler(i * 2, 1)
        If i > 1 Then
            If wksZiel.FilterMode Then
                zCount = .Range(.Cells(lFilterZeile, lColumnCount), .Cells(lFilterZeile, i)) _
                .SpecialCells(xlCellTypeVisible).SpecialCells(xlCellTypeConstants).Count
                For iX = lStartRow To i
                    If .Rows(iX).EntireRow.Hidden = False Then
                        vArrayFilter(iX - lStartRow) = .Cells(iX, lSumColumnFilter)
                        vArraySumme(iX - lStartRow) = .Cells(iX, lSummeFilter)
                    End If
                Next iX
            Else
                zCount = i
                For iX = lStartRow To i
                    vArrayFilter(iX - lStartRow) = .Cells(iX, lSumColumnFilter)
                    vArraySumme(iX - lStartRow) = .Cells(iX, lSummeFilter)
                Next iX
                '      Stop
            End If
        End If
    End With
    zA = 0
    vSummeFilter = 0
    For iX = 0 To UBound(vArrayFilter)
        zA = zA + 1
        If zA > zCount Then
            '                       Stop
            GoTo Weiter
        End If
        vZaehler(iZ, 0) = vArrayFilter(iX)
        vZaehler(iZ, 1) = 1
        SumZaehler = 0
        For iZ = 0 To iZ
            If vZaehler(iZ, 0) = vArrayFilter(iX) Then
                SumZaehler = vZaehler(iZ, 1) + SumZaehler
                'Exit For
            End If
        Next iZ
        If SumZaehler = 1 Then
            vSummeFilter = vSummeFilter + (vArraySumme(iX) * 1)
        End If
        iZ = iZ + 1
    Next iX
    Weiter:
    FilterSummeOhneDup = Round(vSummeFilter, 4)
End Function

Code eingefügt mit: Excel Code Jeanie

Leider ist der Code bei Tabellen mit vielen Zeilen sehr langsam, während die Formel

=SUMMENPRODUKT(TEILERGEBNIS(9;INDIREKT(LINKS(ADRESSE(1;SPALTE(SummenSpalte);4);LÄNGE(ADRESSE(1;SPALTE(SummenSpalte);4))-1)&ZEILE(INDIREKT(2&":"&ANZAHL2($A:$A)))))*(VERGLEICH(SummenSpalte&"";SummenSpalte&"";0) =ZEILE(INDIREKT(1&":"&ANZAHL2($A:$A)-1))))
oder
=SUMMENPRODUKT(TEILERGEBNIS(9;INDIREKT("B"&ZEILE(2:99)))*(VERGLEICH(B2:B99&"";B2:B99&"";0) =ZEILE(1:98)))
sehr schnell ist.


Wie muss ich die Formeln =SUMMENPRODUKT(TEILERGEBNIS(9;INDIREKT("B"&ZEILE(2:99)))*(VERGLEICH(B2:B99&"";B2:B99&"";0) =ZEILE(1:98)))
anpassen damit sie mit Evaluate auswertbar ist??
Wobei die Summenspalte flexibel bleiben muss!

Besten Dank für Tipps

Gruß Rolf

[WillWissen]

P u s h

[schauan]

Hallöchen,

wie sehen denn die bisherigen Versuche aus?
Bei der Formel
=SUMMENPRODUKT(TEILERGEBNIS(9;INDIREKT("B"&ZEILE(2:99)))*(VERGLEICH(B2:B99&"";B2:B99&"";0) =ZEILE(1:98)))
solltest Du erst mal schauen, wie Du das INDIREKT gesondert berechnest und die Formel dann mit dem Ergebnis evaluierst.