Gruppe
Allgemein
Bereich
Vergleich
Thema
Tabellen vergleichen und Zeilen ersetzen
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.
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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