UDF werkt niet in ander bestand

[wiki]

Ik heb een UDF gechreven waarmee ik twee waarden uit 1 cel vermenigvuldig. Hiermee bereken ik de totale inhoud van een omdoos.

De UDF werkt in de bijlage, maar niet als ik deze gebruik in een groter bestand (2mb)

In de statusbalk blijft berekenen staan

Wat zou de oorzaak of oplossing kunnen zijn?

gr wim

 

[Wigi]

Staan de berekeningen in die grote sheet op automatisch?

Werkt het in dezelfde file maar dan met heel veel minder data (geen 2MB)?

 

[wiki]

In de bijlage het gestripte doelbestand dat dan ook niet werkt. Bekijk bijlage test.xls

 

[wiki]

Oplossing gevonden mbv function stripalphas

Function StripAlphas(source_ref As Range) As String
'' Remove alpha characters from a string.
Application.Volatile
Dim intI As Integer
Dim strNotNum As String, strTemp As String
strTemp = ""
For intI = 1 To Len(source_ref.Value)
If Mid(source_ref.Value, intI, 1) Like "[0-9]" Or Mid(source_ref.Value, intI, 1) Like "," Or Mid(source_ref.Value, intI, 1) Like " " Then
 strNotNum = Mid(source_ref.Value, intI, 1)
Else: strNotNum = " "
End If
strTemp = strTemp & strNotNum

Next intI

StripAlphas = strTemp
End Function 'StripAlphas()

en de formule

=LINKS(SPATIES.WISSEN(stripalphas(G39));VIND.ALLES(" ";SPATIES.WISSEN(stripalphas(G39)))-1)*RECHTS(SPATIES.WISSEN(stripalphas(G39));LENGTE(SPATIES.WISSEN(stripalphas(G39)))-VIND.ALLES(" ";SPATIES.WISSEN(stripalphas(G39))))

gr wim