VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel

Gruppe

Matrix

Bereich

Datenbank

Thema

Anzahl nach 2 Kriterien ermitteln mit DB-Funktion und MatrixFormel

Problem

Wie kann ich die Anzahl von Datensätzen nach zwei Kriterien ermitteln.

Lösung

Nur anhand einer Beipspielarbeitsmappe darstellbar.




StandardModule: basMain

Sub nNamen()
   Dim rng As Range
   Dim iNames As Integer
   Application.ScreenUpdating = False
   Set rng = Range("A1").CurrentRegion
   Workbooks.Add
   rng.AdvancedFilter Action:=xlFilterCopy, _
      CopyToRange:=Range("B1"), Unique:=True
   iNames = Application.CountA(Columns(2))
   ActiveWorkbook.Close savechanges:=False
   MsgBox "Anzahl Namen: " & iNames
   Range("B2") = iNames
   Application.ScreenUpdating = True
End Sub

    


Beiträge aus dem Excel-Forum zu den Themen Matrix und Datenbank