VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Suchen in 2. Tabelle und Ersetzen der Quelldaten

Gruppe

Allgemein

Bereich

Suchen

Thema

Suchen in 2. Tabelle und Ersetzen der Quelldaten

Problem

Die Werte aus Spalte A sollen in Tabelle2 in Spalte A gesucht werden. Wird der jeweilige Wert gefunden, ist die Zeile im aktiven Blatt durch die Fundzeile 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 wksSource As Worksheet, wksTarget As Worksheet
   Dim var As Variant
   Dim lRow As Long
   Application.ScreenUpdating = False
   Set wksSource = Worksheets("Tabelle2")
   Set wksTarget = Worksheets("Tabelle1")
   lRow = 1
   Do Until IsEmpty(wksTarget.Cells(lRow, 1))
      var = Application.Match(wksTarget.Cells(lRow, 1), _
         wksSource.Columns(1), 0)
      If Not IsError(var) Then
         wksTarget.Rows(lRow).Value = wksSource.Rows(var).Value
      End If
      lRow = lRow + 1
   Loop
   Application.ScreenUpdating = True
End Sub

    


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