Gruppe
Allgemein
Problem
Die Ländernamen sollen durch die in Tabelle2 hinterlegten Abkürzungen ersetzt werden.
StandardModule: Modul1
Sub SuchenErsetzen()
Dim iRow As Integer
With Worksheets("Tabelle2")
For iRow = 1 To WorksheetFunction.CountA(.Columns(1))
Cells.Replace _
What:=.Cells(iRow, 1), _
Replacement:=.Cells(iRow, 2), _
LookAt:=xlPart, _
SearchOrder:=xlByRows, _
MatchCase:=True
Next iRow
End With
End Sub