Excel und VBA: Formeln, Programmierung, Lösungen
Die Excel/VBA-Beispiele
Thema
Modalwert einer gefilterten Reihe berechnen
Gruppe
Filtern
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