Waarde naar X

[HJ1]

Ik heb even een schermafdruk toegevoegd.

 

[sylvester-ponte]

ik heb deze function (udf) gemaakt(zie module 1) (alt F11)

Function aantalGoedkeurders(ParamArray G())
  With CreateObject("scripting.dictionary")
    For n = 0 To UBound(G)
      For nn = 1 To G(n).Rows.Count
        If G(n)(nn, 1) = "x" Then temp = .Item(G(n)(nn, 4).Value)
      Next
    Next
    aantalGoedkeurders = Array(.Count, Join(.keys, "/"))
  End With
End Function

deze udf geeft 2 waardes terug: resp. het aantal goedkeurders en de lijst van de goedkeurders.
de udf wordt in H9 aangeroepen daar staat het aantal goedkeurders, en zet automatisch in I9 de goedkeurders zelf. (dit werkt in excel 365 zo eenvoudig)

 

[HJ1]

Top! Het werkt.
Bedankt.