VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Anzahl der durch Autofilter ermittelten Datensätze anzeigen

Gruppe

Funktion

Bereich

TEILERGEBNIS

Thema

Anzahl der durch Autofilter ermittelten Datensätze anzeigen

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