Function

Her en en mulighed:


Dim DataOmråde1 As Range
Dim DataOmråde2 As Range
Dim AntalData As Integer

Public Function MinPotens(DataOmråde1, DataOmråde2) As Variant
AntalData = 0
For Each c In DataOmråde1
    AntalData = AntalData + 1
Next
ReDim DataMatrix1(AntalData) As Double
ReDim DataMatrix2(AntalData) As Double
MinPotens = 0
Indeks = 0
For Each c In DataOmråde1
    If Not IsEmpty(c) Then
        If IsNumeric(c) Then
            Indeks = Indeks + 1
            DataMatrix1(Indeks) = c.Value
        End If
    End If
Next
Indeks = 0
For Each c In DataOmråde2
    If Not IsEmpty(c) Then
        If IsNumeric(c) Then
            Indeks = Indeks + 1
            DataMatrix2(Indeks) = c.Value
        End If
    End If
Next
For Indeks = 1 To AntalData
    If IsNumeric(DataMatrix1(Indeks)) And IsNumeric(DataMatrix2(Indeks)) Then
        MinPotens = MinPotens + DataMatrix1(Indeks) ^ DataMatrix2(Indeks)
    End If
Next Indeks

End Function

Det er noget uddrag og noget mix fra nogen gamle funktioner, jeg engang har lavet. Det kan muligvis trimmes lidt.

Lidt... :-)
Function SumPotens(rng1 As Range, rng2 As Range) As Long
SumPotens = Evaluate("=Sum(" & rng1.Address & "^" & rng2.Address & ")")
End Function

Hold da helt op! Kan man det? Må man det? Den synes jeg du skulle lægge et svar på bak. Jeg kan se at jeg åbenbart tænker i for traditionelle programmeringsbaner (eller bare programmerer for lidt i Excel) :-)

Jeg skal lige undersøge funktionaliteten lidt nærmere - det kan godt være at en af mine meget gamle funktioner (september 1995 for at være mere præcis) skal trimmes lidt.

Behøver man slet ikke nogen løkke? Jeg fatter simpelthen ikke hvordan den virker

Nej, jeg kan nok ikke bruge den. Jeg skal først have sorteret data, så jeg er nødt til at lægge dem ind i en matrice (de tomme skal udelades).

Nej, ingen svar superjab.
Dit forslag virker ganske udemærket.
Jeg blev bare trikket af "Det kan muligvis trimmes lidt."
Du har forøvrigt samme funktion til rådighed i access (eval)
bak :-)

Jeg må indrømme at jeg havde tænkt noget i retning af superjaps løsning, og jeg er lige så forbavset over at det kan gøres så simpelt som bak har vist.
Begge løsninger virker fortrinligt.
Tak.
Hilsen Johs. J.

Jeg takker også. :-)