AW: Alle Werte Spalte A in Tabellen finden
18.08.2020 17:11:01
Daniel
naja, VERGLEICH (MATCH) ist ja die Vorstufe zum SVerweis.
und mit Worksheetfunction hast du auch ein Rückgriff auf Excel-Funktionen.
wenn schon ohne Excel-Funktionen, dann richtig:
Sub Schaltfl?che1_Klicken()
Dim dic As Object
Dim arr
Dim i As Long
Set dic = CreateObject("scripting.dictionary")
arr = Sheets("Tabelle2").Cells(1, 1).CurrentRegion
For i = 2 To UBound(arr, 1)
dic(arr(i, 1)) = arr(i, 3)
Next
With Sheets("Tabelle1")
With .Range(.Cells(2, 1), .Cells(1, 1).End(xlDown))
arr = .Value
For i = 1 To UBound(arr, 1)
arr(i, 1) = dic(arr(i, 1))
Next
.Offset(0, 1).Value = arr
End With
End With
End Sub
Gruß Daniel