Gruppe
Allgemein
Problem
Die Spalte A der Listen in Tabelle2 und Tabelle3 sollen mit der Liste in Tabelle1 verglichen werden. Bei Überinstimmung ist die jeweilige Zeile in Tabelle1 zu ersetzen.
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