Excel VBA range og paramenter

I din UCs Sub bruger du slet ikke de ranges som du får med.
Din Pe(1,1).Value vil altid sætte A1 til at være 1.
Hvis du skal bruge den range du får med når du kalder Sub, så skal du ikke angive en ny range, men blot bruge Pe.value = 1

Håber det giver mening?

Sub UCs(Pe As Range, Re As Range)
'Pe(1, 1).Value = 1
Pe.Value = 1
Re.Value = 2
End Sub

Public Function rj(P As Range, R As Range) As Integer
    Call UCs(P, R)
    rj = 1
End Function

Sub Start()
    Test = rj(Range("A5"), Range("A6"))
End Sub

Problemet er at der meldes fejl når jeg skriver =rj(B2:B3;C2:C3) i en celle.

Målet er kunne arbejde med et range fra en funktion.

Jeg vil gerne modtage et range som en parameter =rj("A1:A4") og gennemløbe range't for at finde et subrange heraf, som jeg kan placere det sted som den anden parameter angiver - dvs. i alt =rj("A1:A4";"B1").

Funktion: Find alle unikke ord i første angivet parameter og returnere resultatet hvor anden parameter angiver


  A  B
1 F  F
2 F  W
3 W  T
4 T

Det tror jeg ikke er muligt på den måde.

Når du skriver =rj(B2:B3;C2:C3) så er det jo lige præcis den celle som du står i, som bruger funktionen.

Så vidt jeg ved så kan du ikke styre andre celler ved sådan en funktion.

Jeg har googlet det - du har ret, en funktioner kan kun kan ændre de celler som der markeres til funktionen. Hvilket ikke var målet.

Tak for svaret - skriv lige et svar så jeg kan give points.

Her er et svar :)