Dit is mijn voorstel voor een UDF...
Function ID_plant(Plantnaam As String) As String
Plantnaam = Replace(Plantnaam, "'", "")
For i = 0 To UBound(Split(Plantnaam), 1)
If i = 0 Then x = 2 Else x = 1
If i = UBound(Split(Plantnaam)) Then x = 7 - Len(ID_plant)
ID_plant = ID_plant & UCase(Left(Split(Plantnaam)(i), x))
Next i
End Function
In cel C2 de formule.... =ID_plant(B2) en verder doorslepen naar onder.
Mijn aanname is dat van het eerste woord 2 letters worden gekozen, van degene die dan volgen slechts 1 en van de laatste zoveel letters als nodig zijn om de code van 7 vol te maken.
Dat wordt dan dit lijstje...
ACPAIRE
ACPATRO
ACPBENI
ACPBENI
ACPBUTT
ACPCNIS
ACPELAC
ACPGGRE
ACPKATS
ACPLPRI
ACPMJEW
ACPODRE
ACPSEIR
ACPTROM
ACPALMA