Gruppe
Allgemein
Problem
Wie kann ich den Modalwert einer mit Autofilter gefilterten Zahlenreihe ermitteln?
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