Ciao Ecco una semplice UDF per risolvere il problema, copiare la funzione in un Modulo e poi nella cella che si vuole la data Scrivere, ammettendo che la data sia in A1.
Function StrToData(nn)
Dim L1&, L2, X&, n$
L1 = Len(nn)
For X = 1 To L1
L2 = Mid(nn, X, 1)
If IsNumeric(L2) Then
n = Mid(nn, X, L1)
Exit For
End If
Next X
StrToData = CDate(n)
End Function
Ciao By Sal
![[SM=x423051]](http://www.erismag.it/Servizio/ForumExcel/Smiles/Faccina_0031.gif)
se ti piace la soluzione sostienici con una DONAZIONE a piacere. Grazie
clicca qui