Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Nach unterschiedlichen Währungen summieren

Gruppe

Summewenn

Problem

Die Währungen aus Spalte A sollen in Spalte D summiert werden.

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

StandardModule: Modul1

Function GetSum(rngAll As Range, rngAct As Range, sValuta As String)
   Dim rng As Range
   Dim dValue As Double
   Dim sValue As String
   For Each rng In rngAll.Cells
      sValue = rng.Text
      If InStr(sValue, sValuta) Then
         dValue = dValue + rng.Value
      End If
   Next rng
   GetSum = dValue
End Function