Über SVerweis in der Tabelle 2 hole ich mir für jeden Wert "an", die zugehörige Zahl in einer korrespondierenden Spalte. In VBA würde ich das so umsetzen:
Sub WertÜberSVerweis()
Dim v As Worksheet
Set v = Sheets("Tabelle1")
v.Cells(1, 5).Value = _
WorksheetFunction.VLookup(v.Cells(1, 4).Value, v.Range("A1:A500"), 2, False)
End Sub
Ausgabezelle = Tabelle2!A1
Suchkriterium in Tabelle1!D1
End Sub
Der Punkt ist jetzt nur, dass "an" mehrmals in der Tabelle erscheinen kann. Wie muss der Code aussehen, dass die SVerweis-Schleife solange durchlaufen wird, bis alle Positionen mit "an" gefunden worden sind. Und wie würde die Ergänzung aussehen, dass alle gefundenen Werte, dann auch in Tabelle2 untereinander kopiert werden.
Allerbesten Dank für einen Tipp.