Thema: Nach unterschiedlichen Währungen summieren

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

Beiträge aus dem Excel-Forum zu den Themen UDF und Summewenn