Avatar billede Irms78 Nybegynder
20. oktober 2014 - 14:46 Der er 3 kommentarer

automatisk erstatte delvis tekst i celle

Hej,
Jeg har en "Sheet1" hvor kollone A har forkortelser og kolonne B har det "rigtige" ord.

I "Sheet2" skal jeg erstatte forkortelsen med det rigtige ord i en celle, men der er flere ord i cellen.

Eksempel:
Cellen indeholder teksten: "Wrlss adptr ethrnet"

I Sheet1 har jeg (2 kolonner):
Wrless - wireless
adptr - adapter
ethernet - ethernet

Resultat skal være: Wireless adapter ethernet.

Jeg har 2200 celler med tekst der skal erstattes samt 900 forkortelser, så vil helst undgå manualt arbejde
20. oktober 2014 - 14:50 #1
Er det en engangs-funktion du efterlyser, eller en dynamisk funktion, der også skal virke ved kommende registreringer i arket?
Avatar billede Irms78 Nybegynder
20. oktober 2014 - 14:51 #2
Det er nok en slags bibliotek jeg vil bruge regelmæssigt.
Avatar billede kabbak Professor
20. oktober 2014 - 16:46 #3
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
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester