VBA - Summe,Anzahl, Minimum, Maximum...mittels VBA

Summe, Anzahl, Minimum,
Maximum...mittels VBA

01.04.2000

Viele denken meist, die Summe eines Bereichs mittels VBA zu ermitteln
kann man bequem mit Hilfe einer For-Next Schleife realisieren.

Betrachten Sie sich einmal die Funktion WorksheetFunction !

Hier sind einige möglichen Aufrufe:

Sub Summe()
   MsgBox WorksheetFunction.Sum(Range("A1:A100"))
End Sub

Sub Anzahl_Werte()
   MsgBox WorksheetFunction.Count(Range("A1:A100"))
End Sub

Sub Anzahl_Leerzeichen()
   MsgBox WorksheetFunction.CountBlank(Range("A1:A100"))
End Sub

Sub ZählenWenn()
   MsgBox WorksheetFunction.CountIf(Range("A1:A100"), 1)
End Sub

Sub SummeWenn()
   MsgBox WorksheetFunction.SumIf(Range("A1:A100"), ">100")
End Sub

Sub Minimum()
   MsgBox WorksheetFunction.Min(Range("A1:A100"))
End Sub

Sub Maximum()
   MsgBox WorksheetFunction.Max(Range("A1:A100"))
End Sub