Excel und VBA: Formeln, Programmierung, Lösungen

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