automatisk erstatte delvis tekst i celle

Er det en engangs-funktion du efterlyser, eller en dynamisk funktion, der også skal virke ved kommende registreringer i arket?

Det er nok en slags bibliotek jeg vil bruge regelmæssigt.

Marker de celler der skal rettes og kør makroen.
Ret den selv til din version af Excel.

Koden skL I ET MODUL

Option Base 1
Public Sub Ret()
    Dim Ordbog As Variant, X As Variant, A As Long, I As Integer, Tekst As String
    Ordbog = Ark1.[a1].CurrentRegion
    For Each C In Selection.Cells
        X = Split(C, " ")
        For I = 0 To UBound(X)
            For A = 1 To UBound(Ordbog)
                If Ordbog(A, 1) = X(I) Then
                    Tekst = Tekst & Ordbog(A, 2) & " "
                    Exit For
                End If
            Next A
        Next I
        C.Value = Left(Tekst, Len(Tekst) - 1)
        Tekst = ""
    Next
End Sub