Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Tabellen vergleichen und Zeilen ersetzen

Gruppe

Vergleich

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