Gruppe
Allgemein
Problem
Die Werte in Spalte A von Tabelle1 sollen mit Spalte A von Tabelle2 verglichen werden. Bei Übereinstimmung sind die Werte aus den den Spalten A und D aus Tabelle2 in Tabelle3 einzutragen.
StandardModule: Modul1
Sub Vergleichen()
Dim vRow As Variant
Dim lRow As Long, lRowT As Long
Dim bln As Boolean
bln = Application.DisplayStatusBar
Application.DisplayStatusBar = True
lRow = 1
Do Until IsEmpty(Cells(lRow, 1))
vRow = Application.Match(Cells(lRow, 1).Value, Worksheets("Tabelle2").Columns(1), 0)
If Not IsError(vRow) Then
lRowT = lRowT + 1
Worksheets("Tabelle3").Cells(lRowT, 1).Value = Cells(lRow, 1).Value
Worksheets("Tabelle3").Cells(lRowT, 2).Value = Worksheets("Tabelle2").Cells(vRow, 4).Value
End If
lRow = lRow + 1
Loop
Application.DisplayStatusBar = bln
Application.StatusBar = False
Worksheets("Tabelle3").Activate
End Sub