Function PRODUKTWENN(sProdukt As Excel.Range, PrRange As Excel.Range, _
                     ZielRange As Excel.Range, _
                     Optional Quelle As String, Optional default As Variant) As _
                     Variant
    Dim Target As Excel.Range
    For Each Target In PrRange
       If VarType(Target.Value) = vbString Then
           If UCase(Target.Value) = UCase(sProdukt.Value) Then
               If Quelle = "" Then
                  ZielRange.Value = Target.Value
               Else
                  ZielRange.Value = Range(Quelle & CStr(Target.Row)).Value
               End If
               Exit Function
           Else
               ZielRange.Value = default
           End If
       End If
    Next
End Function