Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub SuchenErsetzen()
   Dim var As Variant
   Dim lRow As Long
   Dim iWks As Integer
   For iWks = 3 To Worksheets.Count
      With Worksheets(iWks).Range("A1").CurrentRegion
         For lRow = 1 To .Rows.Count
            var = Application.Match(.Cells(lRow, 1), Columns(1), 0)
            If Not IsError(var) Then
               Range(Cells(var, 1), Cells(var, 3)).Value = _
                  .Range(.Cells(lRow, 1), .Cells(lRow, 3)).Value
            End If
         Next lRow
      End With
   Next iWks
End Sub

    

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