Søgning og overførsel af værdier

lukkes

.

arbejder på sagen, men hvis du har fundet løsning så sig til

Nej ikke endnu, har bare fået oprettet emnet to gange.
Vil meget gerne ha hjælp :-)

Indsæt funktionen i et alm. modul
i Ark1 celle L4 taster du  =test(B4)
træk ned i fyldhåndtag for at kopiere formel til øvrige celler

Function test(rng As Range)
Dim tal(9)
Application.Volatile
selle1 = rng.Value
selle2 = rng.Offset(0, 1).Value
selle3 = rng.Offset(0, 2).Value

If selle1 <> "" And InStr(selle1, "/") = 0 Then t = t + 1: tal(t) = selle1
If InStr(selle1, "/") > 0 Then
t = t + 1
tal(t) = Left(selle1, InStr(1, selle1, "/") - 1)
t = t + 1
tal(t) = Mid(selle1, InStr(1, selle1, "/") + 1, 5)
End If
If selle2 <> "" And InStr(selle2, "/") = 0 Then t = t + 1: tal(t) = selle2
If InStr(selle2, "/") > 0 Then
t = t + 1
tal(t) = Left(selle2, InStr(1, selle2, "/") - 1)
t = t + 1
tal(t) = Mid(selle2, InStr(1, selle2, "/") + 1, 5)
End If
If selle3 <> "" And InStr(selle3, "/") = 0 Then t = t + 1: tal(t) = selle3
If InStr(selle3, "/") > 0 Then
t = t + 1
tal(t) = Left(selle3, InStr(1, selle3, "/") - 1)
t = t + 1
tal(t) = Mid(selle3, InStr(1, selle3, "/") + 1, 5)
End If

For t1 = 1 To t
If Application.CountA(Sheets("Ark2").Range("A2:A40"), tal(t1)) > 0 Then
x1 = x1 + Sheets("Ark2").Range("A2:A40").Find(tal(t1), LookIn:=xlValues).Offset(0, 1)
End If
Next

test = x1

End Function

Det virker fint i min test-fil, men jeg kan ikke få det til at fungere i den "rigtige" fil.

I den virkeligheden er der i ARK1 111 rækker, mord 14 i min test fil. I ARK2 er der 172 rækker i det ene datasæt og 79 i det andet.

Det får jeg ikke rigtigt til at fungere med din makro, heller ikke hvis jeg retter i sidste sektion "range".
- Jeg er ret ny med makroer, så måske overser jeg noget ;-)

ret A40 til A172 eller hvad der nu passer i begge disse linier

If Application.CountA(Sheets("Ark2").Range("A2:A40"), tal(t1)) > 0 Then
x1 = x1 + Sheets("Ark2").Range("A2:A40").Find(tal(t1), LookIn:=xlValues).Offset(0, 1)

hjalp det ?

Funktionen fejler, når den skal søge i kolonne B+C+D, hvis der f.eks. er en værdi i kolonne B og D.

Finder ikke en værdi efter det den søger efter, så fejler den ligeledes med beskeden "værdi", dette sker både for enkeltværdiet og værdiet af typen "315/144".

Den virker fint, hvis der alene skal regne på én værdi.

Er f.eks. samme værdi angivet i både kolonne A+B i en række, så summere den tallet sammen, det skal den ikke, hvis der er en dobbelt værdi i kolonne B --> D (rækkevis).