VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Bundesländernamen durch Abkürzungen ersetzen

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

    


Beiträge aus dem Excel-Forum zu den Themen Allgemein und Zeichenfolge