AW: Problem!
01.11.2017 17:50:11
Fennek
Hallo,
der Code verkraftet ohne größere Änderungen keine leeren Zellen. Dies liegt an "specialcells(2)".
Es ist (zumindest für mich) einfacher, Leerzellen z.B. durch sortieren zu entfernen als den Code mit .areas anzupassen.
mfg
Ohne Furcht vor Murks:
Sub iFen()
On Error Resume Next
Dim WSF As WorksheetFunction: Set WSF = Application.WorksheetFunction
ID = Sheets("Liste").Cells(1).CurrentRegion
ID_N = Application.Transpose(Application.Index(ID, 0, 2))
For i = 1 To UBound(ID_N)
Next i
for each Ar in Sheets("Daten").Columns(1).SpecialCells(2).areas
Nm = Ar
For i = 1 To UBound(Nm)
If InStr(1, Nm(i, 1), "||") > 0 Then
Nms = Split(Nm(i, 1), "||")
Else
Nms = Nm(i, 1)
End If
If IsArray(Nms) Then
For k = 0 To UBound(Nms)
r = WSF.Match(Nms(k), ID_N, 0)
If Err.Number = 0 Then Nms(k) = ID(r, 1)
Err.Clear
Next k
Cells(i, 3) = Join(Nms, "||")
Else
r = WSF.Match(Nms, ID_N, 0)
If Err.Number = 0 Then Cells(i, 3) = ID(r, 1)
Err.Clear
End If
Next i
next Ar
End Sub
ungeprüft