Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Bundesländernamen durch Abkürzungen ersetzen

Gruppe

Zeichenfolge

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