HERBERS Excel-Forum - die Beispiele

Thema: Anzahl der durch Autofilter ermittelten Datensätze anzeigen

Home

Gruppe

Funktion

Problem

Wie kann ich die Anzahl der durch Autofilter ermittelten Datensätze auslesen? Es soll die gleiche Meldung ausgegeben werden, die bei Anwendung des Autofilters in der Statusleiste erscheint.

Lösung
Die Formel: =TEILERGEBNIS(3;A:A)-1&" von "&ANZAHL2(A:A)-1&" Datensätzen gefunden."
StandardModule: basMain

Sub ArtikelnummernListen()
   Dim rng As Range
   Dim iCounter As Integer, iRow As Integer, _
      iCol As Integer, iRowL As Integer
   Cells.ClearContents
   iCol = 2
   For iCounter = 3 To Worksheets.Count
      With Worksheets(iCounter)
      Cells(1, iCol) = .Name
      iRow = 1
      Do Until IsEmpty(.Cells(iRow, 1))
         Set rng = Columns(1).Find(.Cells(iRow, 1), _
            lookat:=xlWhole, LookIn:=xlValues)
         If rng Is Nothing Then
            iRowL = Cells(Rows.Count, 1).End(xlUp).Row + 1
            Cells(iRowL, 1) = .Cells(iRow, 1)
            Cells(iRowL, iCol) = 1
         Else
            rng.Offset(0, iCol - 1) = _
               rng.Offset(0, iCol - 1) + 1
         End If
         iRow = iRow + 1
      Loop
      End With
      iRow = 1
      iCol = iCol + 1
   Next iCounter
End Sub

Beiträge aus dem Excel-Forum zu den Themen Funktion und TEILERGEBNIS

Copy funktioniert nur einmal Schreibschutz prüfen funktioniert nicht
Split-Funktion beim Einlesen TXT-Datei Match Funktion spinnt (?)
SVerweis funktioniert nicht PasteSpecial funktioniert nicht.
VBA-Code funktioniert nicht mit anderem Office Hilfe bei der INDEX Funktion
Teilergebnis mit Summenprodukt kombiniert Zelladressen von FunktionsParametern ermitteln
Matrixformel mit Summenfunktion Formel funktioniert nicht, SVerweis
Makro funktioniert nach Beenden von Excel nicht VLOOKUP auf Links funktioniert offline
@DAVID Zwei SUMMEWENN funktionen verknüpfen Zwei SUMMEWENN funktionen verknüpfen
Polynomfunktion Mit vba Funktionen in Excel Zellen
Rang-Funktion für Strings? Autofilter und Teilergebnis
Skript funktioniert nur auf einer seite?!?! Hyperlink auf Excel-Datei funktioniert nicht
Public Funktion / Variabel VBA - Suchfunktion - Fehlermeldung
Benutzerdefinierte Funktion Userform mit Löschfunktion
Frage zu Wenn Dann Funktion Wenn-Funktion
Frage zur Funktion DISAGIO Funktion um Chart zu kreieren
Wenn-Funktion verschachtelt VBA Suchfunktion erweitern
Makro funktioniert nicht richtig zählenwenn-funktion mit mehreren kriterien
Summe / Wenn Matrix i.V.m Teilergebnis Funktion SVERWEIS
Benutzerdefinierte Funktion in Open Office Funktion Dezimal -> Zeit/ Variablen-Deklaration
Probleme mit Textfunktionen Fehler, wenn Variable in Funktion
VBA-Funktion analog =ZELLE("Zeile") Gültigkeit funktioniert nicht!
Zellausrichtung funktioniert nicht Nach Teilergebnissen das Datum formatieren
WENN-Funktion Hide-Funktion in einem Frame
Suchfunktion Date Funktion
Filter funktioniert nicht Funktionsname austauschen