VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Modalwert einer gefilterten Reihe berechnen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Filtern