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
Synes godt om
Ny brugerNybegynder
Din løsning...
Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.