• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Getallen zoeken die voldoen aan de uitkomst van een som

Status
Niet open voor verdere reacties.
Code: 
Function jvr(rng As Range, cell as string)
     For i = 1 To rng.Rows.Count
         For j = 1 To rng.Rows.Count
            If rng(i) + rng(j) = cell Then jvr = jvr & IIf(jvr = "", "", "-") & "(" & rng(i) & "+" & rng(j) & ")"
         Next
     Next
End Function

Invoeren als =jvr(A1:A5;B1)

A1:A5 is je bereik waarin je de som zoekt en B1 is dan de 25,82
 
Laatst bewerkt:
@ Senso: Zou je de vraag in je openingspost willen zetten en niet in het bijgevoegde bestand. Bedankt namens de helpers.
 
Een UDF hoort in een gewone module te staan. De aanroep is
Code: 
=jvr(O[COLOR=#FF0000][SIZE=4]2[/SIZE][/COLOR]:P14;B1)
 
Heb het niet getest. Ik heb geen pc bij de hand. Selecteer data in 1 kolom als range(2 kolommen gaat niet goed) waarin je de som zoekt.

Achter een module zoals Vena zegt en dan invoeren als onderstaand

=jvr(O2:O14;B1)
 
Laatst bewerkt:
Oké, is gelukt. Bedankt voor de hulp.:thumb:
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan