Gruppe
Allgemein
Problem
Wie kann ich die Zeichenfolgen aus Spalte A der aktiven Tabelle in Spalte A einer zweiten Tabelle suchen und rechts neben den Fundstellen die Werte aus dem aktiven Blatt eintragen?
StandardModule: basMain
Sub VergleichenKopieren()
Dim rng As Range
Dim iRow As Integer
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
Set rng = Worksheets("Tabelle2").Columns(1).Find( _
what:=Cells(iRow, 1), lookat:=xlWhole, LookIn:=xlValues)
If Not rng Is Nothing Then
Range(rng.Offset(0, 1), rng.Offset(0, 3)).Value = _
Range(Cells(iRow, 2), Cells(iRow, 4)).Value
End If
iRow = iRow + 1
Loop
End Sub