Gruppe
Allgemein
Bereich
Zeichenfolge
Thema
Bundesländernamen durch Abkürzungen ersetzen
Problem
Die Ländernamen sollen durch die in Tabelle2 hinterlegten Abkürzungen ersetzt werden.
Lösung
Den nachstehenden Code in ein Standardmodul eingeben, einer Schaltfläche zuweisen und starten.
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