Confronto di nomi

Ciao a tutti,
devo confrontare due nomi inseriti in una lista di excel per verificare se sono uguali ma....:

1) i nomi possono essere inseriti come "Mario Rossi" o " Rossi Mario"
2) vorrei evitare di somporre le stringhe in singole lettere, convertirle in valore e sommare i valori per confrontarli

vorrei trovare qualcosa di più veloce
qualcuno ha qualche consiglio da darmi?
Grazie mille
ChiccoExcel

Beh se non vuoi scomporre le righe non ti resta che provare una cosa del genere:
Dim a As String
Dim b As String
a = "Mario Rossi"
b = "Rossi Mario"
Dim k As Integer
Dim s() As String
s = Split(a," ")
For k = LBound(s) To Ubound(s)
b = Replace(b,s(k),"")
Next
If Trim(b) = "" then msgbox "Uguali"

soluzione eccellente [img]smileys/smiley1.gif[/img]

mi permetto di fare una piccola aggiunta...

Dim a As String
Dim b As String
a = "Mario Rossi"
b = "rossi mario"
Dim k As Integer
Dim s() As String
s = Split(a, " ")
For k = LBound(s) To UBound(s)
b = Replace(UCase(b), UCase(s(k)), "")
Next
If Trim(b) = "" Then MsgBox "Uguali"

così anche se sono "Rossi Mario" e "mario rossi", vengono comunque trovati uguali...

Thetruster

Grazie mille del suggerimento ma NON sembra funzionale....
Con il medototo da voi proposto "Mario Rossi" e "Mario" risultano uguali.

le ho provate tutte ma non ho trovato la soluzione.
Grazie comunque.

Un pochino di fantasia, cribbio! ).
Il mio era un semplice suggerimento che doveva per forza essere sviluppato per diventare qualche cosa di funzionante.
Devi introdurre pertanto nel tuo programma dei controlli.
Esempio (ma ce ne potrebbero essere anche degli altri):
Dim a As String
Dim b As String
a = "Mario Rossi"
b = "rossi mario"
a = lcase(a)
b = lcase(b)
Dim k As Integer
Dim s() As String
s = Split(a, " ")
For k = LBound(s) To UBound(s)
if Instr(1,b,s(k)) = 0 then
b = b + "z"
exit for
end if
b = Replace(b, s(k), "")
Next
If Trim(b) = "" Then MsgBox "Uguali"