Vergelijken en overeenkomsten tonen

[PEekhof]

Hoi,

Ik zoek een formule waarmee ik 2 cellen kan vergelijken en de overeenkomsten met (minimaal 4 karakters overeenkomstig) kan tonen in een andere cel.

Dus :

10000
100009
10000A
10000Z

dan zou de overeenkomst dus : 10000 zijn.

 

[Roncancio]

Je hebt het over 2 cellen maar in je voorbeeld zijn het er 4. Wat moet er met de andere cellen gebeuren?
Moeten het de eerste 4 karakters zijn in een cel?

Met vriendelijke groet,


Roncancio

 

[Cobbe]

Om telkens 2 cellen te vergelijken kan je deze UDF gebruiken:

Public Function overeenkomst(cel1 As Range, cel2 As Range)
  For i = 1 To Len(cel1)
   deel = Mid(cel1, 1, i)
   For y = 1 To Len(cel2)
     If deel = Mid(cel2, 1, i) Then
       lengte = i
     End If
   Next
  Next
  overeenkomst = Left(cel1, lengte)
End Function

 

[sylvester-ponte]

hallo Cobbe,
waarom staat die "y loop" er in?

 

[sylvester-ponte]

hallo PEekhof,
wil je de langste overeenkomst? of de eerste van minimaal 4 tekens?
en mag de overeenkomst ook ergens in het midden van de tekst gevonden worden?

 

[Cobbe]

waarom staat die "y loop" er in?

Tja die zat er tussen om het iets ingewikkelder laten te lijken.

Neen, zat er nog in na een test, is overbodig geworden.

 

[sylvester-ponte]

zo iets? hij kijkt ook naar de overeenkomsten die niet vooraan beginnen.
en in een willekeurig aantal velden. lege velden worden overgeslagen.
als je minimum weg laat, wordt de maximum overlap gegeven
als alle cellen leeg zijn ontstaat er een fout

 

[sylvester-ponte]

deze genereert geen fout bij lege cellen: