Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach Währung und Zeitspannen summieren

Gruppe

Summewenn

Problem

In Spalte B sollen die Werte aus dem Bereich B7:B100 summiert werden, die den Kriterien Währung, Startdatum, Enddatum entsprechen.

Lösung
Geben Sie die nachfolgende benutzerdefinierte Funktion in ein Standardmodul ein.

StandardModule: Modul1

Function IfSum(rngAll As Range, sValuta As String) As Variant
   Dim rng As Range
   Dim var() As Variant
   Dim iCounter As Integer
   ReDim var(1 To rngAll.Cells.Count, 1 To 2)
   For Each rng In rngAll.Cells
      iCounter = iCounter + 1
      var(iCounter, 1) = False
      If InStr(rng.Text, sValuta) Then
         var(iCounter, 2) = True
      End If
   Next rng
   IfSum = var
End Function