Wie gehe ich vor, um auf Tabelle1 jedem Stichwort die auf Tabelle2 zugehörige Laufnummer zuzuordnen?
Sub kjgsadv()
For i = 1 To Sheets(2).Cells(1, 1).CurrentRegion.Rows.Count
For j = 1 To Sheets(1).Cells(1, 1).CurrentRegion.Rows.Count
If Sheets(2).Cells(i, 1).Value = Sheets(1).Cells(j, 1).Value Then Sheets(1).Cells(j, 2).Value = Sheets(2).Cells(i, 2).Value
Next j
Next i
End Sub