Excel multiple replace all

[Verwijderd]

Ik heb het volgende:

(1) een tabel met vele afkortingen bijvoorbeel HJ en JJ etc.
(2) een tabel met vele verklaringen van afkortingen bijvoorbeel Hans Jans en Jan Jansen etc.
(3) een tabel met een wirwar van afkortingen die ik met behulp van bovenstaande met formule wil gaan veranderen naar verklaringen van de afkortingen.

Welke formule zou ik dan kunnen gebruiken?

Replace all (via ctrl F) is een optie maar het zou toch veel makkelijker moeten kunnen want is veel handmatig werk.

Alvast bedankt.

Met vriendelijke groet,

Webbie

[Spider.007]

Ik verplaats dit topic even naar het juiste subforum

CSA > OFF

[Daos]

Je kan natuurlijk even snel in VBA een macro'tje maken. Zoiets als:

Visual Basic:

Option Explicit

Sub ReplaceAllAbbr()
    Dim abbr As Range
    Dim full As Range
    Dim target As Range
     
    Set abbr = Sheet1.Columns(1).Cells
    Set full = Sheet2.Columns(1).Cells
    Set target = Sheet3.Cells
     
    target.Worksheet.Select
     
    Dim i
    Dim mb As VbMsgBoxResult
    
    For i = 1 To abbr.Count
        If IsEmpty(abbr(i)) Then Exit For
         
        mb = MsgBox(abbr(i) & " => " & full(i) & "?", vbQuestion Or vbYesNoCancel, "ReplaceAll")
        If mb = vbYes Then
            target.Replace abbr(i), full(i)
        ElseIf mb = vbCancel Then
            Exit For
        End If
    Next
End Sub

Ik ben er hier maar even vanuit gegaan dat in de eerste kolom op Sheet1 de afkortingen staan en op de eerste kolom van Sheet2 de namen. In je verhaaltje heb je het namelijk ook over twee sheets hiervoor. Normaal zou iemand 1 sheet maken met 2 kolommen.

[ Voor 6% gewijzigd door Daos op 21-04-2007 11:31 . Reden: mooiere MsgBox ]

[Verwijderd]

super. bedankt.

mvg