Gruppe
Allgemein
Bereich
Filtern
Thema
Modalwert einer gefilterten Reihe berechnen
Problem
Wie kann ich den Modalwert einer mit Autofilter gefilterten Zahlenreihe ermitteln?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
StandardModule: basMain
Sub TeilMod()
Dim rng As Range
Dim dModal As Double
Application.ScreenUpdating = False
Set rng = Range("A2:A20").SpecialCells(xlCellTypeVisible)
Workbooks.Add
rng.Copy Range("A1")
dModal = WorksheetFunction.Mode(Range("A1").CurrentRegion)
ActiveWorkbook.Close savechanges:=False
MsgBox "Modalwert: " & dModal
End Sub