Udtræk bruger-initialer fra referencelinie

En Function

=SplitRef(A2;FALSK), giver bruger
=SplitRef(A2;SAND) ' giver nummer


Public Function SplitRef(selle As Range, Nummer As Boolean) As String
Dim A, Nr, Navn
    A = Split(selle, "-")
    If UBound(A) <> 2 Then
        SplitRef = "Fejl i data"
        Exit Function
    End If
    If IsNumeric(A(0)) Then
        Nr = A(0) & "-" & A(1)
        Navn = A(2)
    Else
        Nr = A(1) & "-" & A(2)
        Navn = A(0)
    End If
    If Nummer Then
        SplitRef = Nr
    Else
        SplitRef = Navn
    End If

End Function

Perfekt .... lige et par enkelte poster, som ikke overholdt reglen, men dem fandt din kode også :-)

Place an answer please

et svar ;-))