hvor ens indholdet i to variabler er.

Taget direkte fra vb hjælp

Option Compare Statement Example
This example uses the Option Compare statement to set the default string comparison method. The Option Compare statement is used at the module level only.

' Set the string comparison method to Binary.
Option compare Binary    ' That is, "AAA" is less than "aaa".
' Set the string comparison method to Text.
Option compare Text  ' That is, "AAA" is equal to "aaa".

Hej

Det er desværre ikke helt nok.
Det virker okay hvis det fx er Firmanavn og firmanavn  men ikke hvis det er Firmanavn og Firma-navn

Det bør da virke ved binær samligning?

Kan godt være det bare er mig. her er det jeg har prøvet

' Set the string comparison method to Binary.
Option Compare Binary    ' That is, "AAA" is less than "aaa".
' Set the string comparison method to Text.
' Option Compare Text  ' That is, "AAA" is equal to "aaa".
'

Sub ErEns()

If Range("A1").Value = Range("B1").Value Then
    MsgBox "de er ens"
Else
    MsgBox "de er ikke ens"
End If

End Sub

opret et modul og indsæt
Option Compare Binary


Public Sub test()
If "firma-fest" = "firma-fest" Then '<-> "Firma-fest" = "firma-fest"
MsgBox "ok"
Else
Msgbox "ikke ok"
End Sub

prøv at bytte efter een kørsel

Når ja, du mangler vist at deklarerer!

Det virker som det skal men hvis nu det er "Firmanavn" og "Firmanavn A/S"
Så skal den kunne se at de er næsten ens.
Kan være jeg skal lave noget med at den fjerner alt hvad der hedder ” ”, ”-”,”A/S”,”Aps”, osv
inden jeg sammenligner dem.

f.eks. vil :
longVar = instr(streng,"A/S")
returnere A's position

Har du en funktion der så kan gå ind og slette tegn i en string
Hvis den med longVar = instr(streng,"Firmanavn A/S"). siger at A/S starter ved tegn 11
Så skal den kunne slette fra tegn 11 og 3 frem.

Først skal du strippe for special tegn og blanke (fjerne dem), i praksis alle ikke bogstaver (husk at fx û osse er et bogstav), gøre det hel til småt/stort og så lave til soundex format, så kan du sammenligne som normalt. Men fx "firma a/s" og "firma" er stadig forskellige, derfor er det måske smart at fjerne enhver forekomst af a/s, i/s, aps, k/s osv (lav en liste), før man laver til soundex. Jeg har ikke nogen funktion i vb der laver soundex men prøv at søge på nettet, men det er meget simpelt; første bogstav beholdes, vokaler skippes, konsonater grupperes efter lyd, m og n er fx ens, og gruppen gives et tal; m/n er 5, r=6, og man lader alle ord fylde 3 grupper, så firma bliver (kan blive, bare det altid er ens jo) f-650.
Se osse http://gatons.com/~teaser/javascript/soundex.html hvor du kan tage source koden i java direkte.

Bemærk at hvis en gruppe optræder to eller flere gange i træk så opføres gruppen kun én gang i soundex strengen, fx Frrraug = Fraug (i soundex altså).

streng = "Firmanavn A/S" find start pos for "A/S"
nystreng=mid( streng,1,longVar)
trim(nystreng) => nystreng="Firmanavn"

Du kan også prøve Levenshtein Distance-algoritmen: http://www.merriampark.com/ld.htm

Den beregner hvor ens to strenge er, ud fra hvor mange tegn der skal tilføjes, fjernes eller ændres for at gå fra den ene til den anden.

vi lukker her
jeg takker