ny celle hvor det kun er bogstav fra den anden celle der kommer med

Sæt nedenstående to funktioner ind i et modul og brug denne formel:

=MID(A1;firstnondigit(A1);lastnondigit(A1)-firstnondigit(A1)+1)
Hvis du har dansk version, så ændr MID til MIDT

Function FirstNonDigit(xStr As String) As Long
    Dim xChar As Integer
    Dim xPos As Integer
    Dim I As Integer
    Application.Volatile
    For I = 1 To Len(xStr)
        xChar = Asc(Mid(xStr, I, 1))
        If (xChar <= 90 And xChar >= 65) Or (xChar <= 122 And xChar >= 97) Then
            xPos = I
            Exit For
        End If
    Next
    FirstNonDigit = xPos
End Function

Function LastNonDigit(xStr As String) As Long
    Dim xChar As Integer
    Dim xPos As Integer
    Dim I As Integer
    Application.Volatile
    For I = Len(xStr) To 1 Step -1
        xChar = Asc(Mid(xStr, I, 1))
        If (xChar <= 90 And xChar >= 65) Or (xChar <= 122 And xChar >= 97) Then
            xPos = I
            Exit For
        End If
    Next
    LastNonDigit = xPos
End Function

Tusinde tak for hjælpen. Havde problemer med at hente dem ind, men fandt ud af det da de skulle lægges i hver sit modul

Ved problemet er løst, men et alternativ for dem der har adgang til TEXTBEFORE og TEXTAFTER

=TEXTBEFORE(TEXTAFTER(A1;".");".")