Gruppe
Allgemein
Bereich
Liste
Thema
Daten in umgekehrter Reihenfolge übertragen
Problem
Wie kann ich Werte aus einer Tabelle in einem zweiten Arbeitsblatt suchen und die Werte der Nebenspalte dorthin übertragen?
Lösung
Geben Sie den nachfolgenden Code in ein Standardmodul ein und weisen Sie ihn einer Schaltfläche zu.
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