Gruppe
Allgemein
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.
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