Find og erstat - makro.

Indlægges på ark1 i VBA:
Ark1: heri skal søges og erstattes / Ark2: Index Fork. | Helt ord
=================================================================

Private Sub søgErstat()
        ActiveWorkbook.Sheets(2).Activate
       
        antalrækker = ActiveCell.SpecialCells(xlLastCell).Row
        With ActiveWorkbook.Sheets(2)
            For ræk = 1 To antalrækker
                søg = .Cells(ræk, 1)
                erstat = .Cells(ræk, 2)
               
                testErstatning søg, erstat
            Next ræk
        End With
End Sub
Private Sub testErstatning(søg, erstat)
    With ActiveWorkbook.Sheets(1)
   
        Cells.Replace What:=søg, Replacement:=erstat, LookAt:=xlWhole, _
            SearchOrder:=xlByRows, MatchCase:=True, SearchFormat:=False, _
            ReplaceFormat:=False
    End With
End Sub

...en lidt omvendt effekt; der erstattes i ark 2. Men det er forkortelserne i Ark 1 som skal ændres til hele ord.

(Må gå men kigger senere :=) )

Hvorfor ikke bruge VLookup funktionen i kolonne B på det store ark?

Se http://www.officekonsulenterne.dk/excel/vlookup.xls for et eksempel!

/Christian
ck@officekonsulenterne.dk

Ikke nogen dårlig funktion! Men forkortelserne står ikke altid det samme sted, så det jeg vil prøve på er at lave en makro i min Person.xls som jeg kan bruge hver gang jeg får et nyt regneark med disse forkortelser, som så kan bruges til at gennemgå hele arket uanset i hvilke celler de befinder sig.