Hente cellereference

På ark 1 celle(A2),har jeg kretirium
På ark 1 celle(B2),Har jeg Formel =TÆL.HVIS(Data;A2)
På ark 1 celle(C2),Har jeg Formel
=HVIS(B2=1;ADRESSE(LOPSLAG($A$2;Data;1;FALSK);LOPSLAG($A$2;Data;1;FALSK);1);" der er flere")

Data er en navngivet kolonne på ark 2

funktionen virker som sådan godt nok, men jeg ønsker at få referencen fra ark 2

dvs fra den celle hvor tallet i a1 ark1 står på ark 2
håber ikke det er alt for russisk snak det her

=HVIS(B2=1;ADRESSE(LOPSLAG($A$2;Ark2!B:B;1;FALSK);2;1);" der er flere")

Sæt denne ind i stedet

ok det virker ikke, jeg arbejder videre

=HVIS(B2=1;ADRESSE(SAMMENLIGN(A2;Data;3);2;1);" der er flere")

denne virker, men det kræver at dataerne er sorteret stigende

hvorfor kfæver den det ??, jeg kan desværre ikke få mine data til at være sorteret stigende, da de ændre sig fra gang til gang og det er ikke kun en enkelt række det handler om det er vel ca. 60

Køjen kalder, jeg har en lille stump, der står meget tidligt op.
Håber du kan finde en løsning på mit problem :-)
Tak for hjælpen indtil videre

er det 60 rækker, men er det kun 1 kolonne det drejer sig om ?.

nej det er ca 60 rækker og 60 kolonner, i kolonne 1 står et initial og i resten af kolonnerne står forskellige data. På ark2 søger jeg i disse data og grunden til at jeg ønsker cellereferencen er at jeg skal bruge den til at hente det rigtige initial i samme række som cellereferencen kommer fra
Jeg er ikke helt gået i seng endnu

jeg gåt i  køjen

tak for i dag

Det blev til en makro

ublic Sub Find()
Dim Antal As Integer, I As Integer, Omrade As Range, Række As Integer, Kolonne As Integer
Antal = 0
Set Omrade = Worksheets("Ark1").Range("A2", "B60")
For Each C In Omrade
If C = Worksheets("Ark2").Range("A2") Then
Antal = Antal + 1
If Antal = 1 Then
Række = C.Row
Kolonne = C.Column
End If
End If

Next
If Antal = 1 Then
Worksheets("Ark2").Range("B2") = "K" & Kolonne & " , R" & Række
Else
Worksheets("Ark2").Range("B2") = "Der er fundet " & Antal
End If
End Sub

der mangler lige et P i Public

Prøv lige denne her formel. Der giver adressen.
=ADRESSE(RÆKKE(data)+SAMMENLIGN(Ark2!A1;data;0)-1;KOLONNE(data))

Ovenstående formel giver godt nok adressen på ark 2 men den tager ikke hensyb til hvad der er indtastet i ark 1, så vidt jeg kan se

Det er kun et spm om at ændre sammenlign til 

=ADRESSE(RÆKKE(data)+SAMMENLIGN(Ark1!A2;data;0)-1;KOLONNE(data))

formlen virker fint, hvis man skal hente oplysninger i kolonne 1, men det kan godt være jeg ikke har udtrykt mig korrekt, adressen jeg ønsker kommer ikke på noget tidspunkt fra kolonne 1. Kan man lave formlen så den kommer med adressen uanset hvor i arket den finder et match.

Nej, så kan man ikke bruge formlen, men er nok nødt til at bruge en makroformel.
Brug Kabbak's kode eller denne funktion
=Find_It(Data, A2)  hvor data er hele dit dataomr på ark2 og A2 er hvad du søger efter.

Placer denne funktion i et alm. modul

Public Function Find_It(rng As Range, LookFor) As Variant
Find_It = rng.Find(what:=LookFor, LookIn:=xlValues, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Address
End Function

hvordan kalder jeg din funktion fra en celle

undskyld jeg havde åbenbart ikke fået læst hele teksten, det er ikke sådan når det går så stærkt

jeg har prøvet med din kode, den kommer med en fejl " named argument not found " i debuggeren i VBA.
Hvad er der galt ??

Det tror jeg, at jeg har en løsning på.
Det skyldes at jeg bruger XP, og derved kommer der nogle argumenter med Find, som du ikke kan bruge i xl2000 / xl97
Prøv det her istedet:

Public Function Find_It(rng As Range, LookFor) As Variant
Find_It = rng.Find(what:=LookFor, LookIn:=xlValues, LookAt:=xlWhole).Address
End Function

=Find_It(Data1, I21)

denne formel skriver jeg i mit excelark ( mit datomr hedder data1 ( går fra c1:cc60) og I21 min celle med det jeg søger efter og svaret på dette er #VÆRDI!-fejl

Hvad kan der være galt, er det mit dataområde der er for stort eller hvad ????

Nej dataområdet er ikke for stort (har lige testet).
Fejlen kommer når den i Data1 IKKE kan finde det der står i I21
Husk at der er forskel på tal og tal formateret som tekst

Prøv evt. at sende arket, eller et udsnit af det, så skal jeg teste det.

Brug makroen den er ligeglad med om det er tal eller tekst og om det søgte ikke eksisterer.

Men jeg følger spændt bak's funktioner og formler, for jeg opgav formler, nok mest fordi jeg ikke kunne genemskue opbygningen.

ark afsendt

det kommer godt nok fra en anden mail adresse ( markvard@andersen.mail.dk )

fil modtaget, kigger på den senere i dag, har lige et ærinde

mit bud på en funktion

Public Function Find_Adresse(Omrade As Range, Find_hvad) As Variant
For Each c In Omrade
    If c = Find_hvad Then
      Find_Adresse = c.Address
    GoTo slut
    End If
Next
slut:
End Function

Sidste bud ;o)

Public Function Find_Adresse(Omrade As Range, Find_hvad) As Variant
a = 0
For Each C In Omrade
If C = Find_hvad Then
a = a + 1
Find_Adresse = C.Address
If a > 1 Then
  Find_Adresse = "Der er flere"
  GoTo Slut
  Else
End If
End If
Next
Slut:
End Function

først tak for hjælpen til jer begge, kabbak din anden sidste formel virker efter hensigten. Jeg ville gerne have givet point itl jer begge, men Bak har ikke afgivet noget svar, så det har jeg ikke mulighed for lige nu, medmindre Bak afgiver et svar, så I kan dele point, da I begge har gjort en stor indsats for at hjælpe mig.

kabbak fortjener alle points da han har leveret et korrekt svar.
Jeg har chekket mit svar og fundet ud af at den funktion jeg har lavet kun kan laves/bruges i XP.
Hvis jeg prøver det samme i xl2000, går det galt. Denne version accepterer ikke Find i en funktion, kun i en sub.

Tak for hjælpen endnu engang, point til kabbak
hilse Sv@@ge

tah for pointz

Hilsen Holger