Forumbeitrag
Excel-Version des Fragestellers:
2022
Erfahrungslevel des Fragestellers:
Basiskenntnisse in Excel
Hallo,
oder passend den Nummernblöcken zugeordent per VBA so:
Sub Zuorden()
Dim arrEindeutig, fund, tmp, odic As Object, z As Range, arrRoh(), arrErg(), i&, j&, k&
Set odic = CreateObject("Scripting.Dictionary")
For Each z In Tabelle1.Range("A8:A" & Tabelle1.Cells(Rows.Count, 1).End(xlUp).Row)
odic(z.Value) = 1
Next
arrEindeutig = odic.keys
arrRoh = Tabelle2.Range("A4").CurrentRegion.Offset(1)
ReDim arrErg(1 To UBound(arrRoh), 1 To 1)
For i = LBound(arrEindeutig) To UBound(arrEindeutig)
fund = Application.Match(arrEindeutig(i), Tabelle2.Columns(1), 0)
If Not IsError(fund) Then
tmp = Evaluate("FILTER(CNC!AD4:AD10000, CNC!A4:A10000=""" & arrEindeutig(i) & """)")
fund = Application.Match(arrEindeutig(i), Tabelle1.Columns(1), 0)
Tabelle1.Cells(fund, 16).Resize(UBound(tmp), 1) = tmp
End If
Next i
End Sub
https://www.herber.de/bbs/user/180781.xlsm
Gruß Uwe