Daten zählen mit AutoFilter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Public Function ZählenWennSichtbar(Suchmatrix As Range, Bedingung As Variant) As Long Dim Zelle As Range Set Suchmatrix = Intersect(Suchmatrix, Suchmatrix.Parent.UsedRange) For Each Zelle In Suchmatrix If Zelle.EntireRow.Hidden = False Then If Zelle.Value = Bedingung Then ZählenWennSichtbar = ZählenWennSichtbar + 1 End If End If Next End Function

Hallo TomTom,
hier mal ein Lösungsansatz:


Dim TB1, TB2, rg As Range, myArray() As String, _
n0 As Long, n1 As Long, n2 As Long, n3 As Long, n4 As Long
Set TB1 = Sheets("Tabelle1")
Set TB2 = Sheets("Tabelle2")
Set rg = TB1.Range("D:D").SpecialCells(xlCellTypeVisible)
'die Spaltenadressen in ein String-Array schreiben
myArray = Split(rg.Address, ",", -1, vbTextCompare)
n1 = 0: n2 = 0: n3 = 0: n4 = 0
'jeden nichtgeteilten Bereich extra berechnen
For n0 = 0 To UBound(myArray())
n1 = n1 + Application.WorksheetFunction.CountIf(TB1.Range(myArray(n0)), "Green")
n2 = n2 + Application.WorksheetFunction.CountIf(TB1.Range(myArray(n0)), "Yellow")
n3 = n3 + Application.WorksheetFunction.CountIf(TB1.Range(myArray(n0)), "Red")
n4 = n4 + Application.WorksheetFunction.CountIf(TB1.Range("D:D"), "Blue")
Next n0
TB2.Range("M8") = n1
TB2.Range("M10") = n2
TB2.Range("M12") = n3
TB2.Range("M14") = n4
Set rg = Nothing
Set TB1 = Nothing
Set TB2 = Nothing

Gruß von Luschi
aus klein-Paris

Hi Tom,
wenn Dein Bereich nicht die ganze Spalte betrifft, würde ich ihn, damit die Geschwindigkeit höher wird, eingrenzen.

VBA-Code:

Sub ZaehlenwennInGefilterterListe()

Dim TB1, TB2

Set TB1 = Sheets("Tabelle1")

Set TB2 = Sheets("Tabelle2")

With TB2.Range("M8")

  .FormulaLocal = "=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT(""Tabelle1!C""&ZEILE(2:65536)))*(Tabelle1!D2:D65536=""Green""))"

  .Value = .Value

End With

With TB2.Range("M10")

  .FormulaLocal = "=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT(""Tabelle1!C""&ZEILE(2:65536)))*(Tabelle1!D2:D65536=""Yellow""))"

  .Value = .Value

End With

With TB2.Range("M12")

  .FormulaLocal = "=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT(""Tabelle1!C""&ZEILE(2:65536)))*(Tabelle1!D2:D65536=""Red""))"

  .Value = .Value

End With

With TB2.Range("M14")

  .FormulaLocal = "=SUMMENPRODUKT(TEILERGEBNIS(3;INDIREKT(""Tabelle1!C""&ZEILE(2:65536)))*(Tabelle1!D2:D65536=""Blue""))"

  .Value = .Value

End With

End Sub

Gruss Jürgen

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Daten zählen mit AutoFilter

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

300 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread