Gruppe
Allgemein
Problem
Wie kann ich Werte aus einer Tabelle in einem zweiten Arbeitsblatt suchen und die Werte der Nebenspalte dorthin übertragen?
StandardModule: basMain
Sub cmdStart_Click()
Dim wks As Worksheet
Dim var As Variant
Dim iRow As Integer
Set wks = Worksheets("Ziel")
iRow = 1
Do Until IsEmpty(Cells(iRow, 1))
var = Application.Match(Cells(iRow, 1).Value, _
wks.Columns(1), 0)
If Not IsError(var) Then
wks.Cells(var, 2) = Cells(iRow, 2).Value
End If
iRow = iRow + 1
Loop
wks.Select
End Sub