Nummerologie

[gast0322]

Ik zit met een probleem, waar ik hopelijk hulp bij krijg.

Voorbeeld:

19-04-1956
10 - 4 - 10 - 11
1 - 4 - 1 - 2
5 - 3
8

19-04-2014
10- 4 - 2 - 5
1 - 4 - 2 - 5
5 - 7
12
3
Er moet dus altijd op de langst mogelijke manier opgeteld worden en er mag geen regel overgeslagen worden.
Optelling gaat van links af.. en als de getallen er naast op de zelfde regel, uit 1 getal bestaan, moeten die overgenomen worden op de volgende regel.
Hopelijk is het duidelijk en weet iemand hoe ik dit op kan lossen in Excel.
MvG Jacobus

 

[Cobbe]

Hier een bestandje met enkele oplossingen voor dit probleem.

 

[Cobbe]

Je kan de functie vervangen door deze m de ' - ' en/of ' / ' te tackelen:

Public Function herleid(cl As String)
 cl = WorksheetFunction.Substitute(cl, "-", "")
 cl = WorksheetFunction.Substitute(cl, "/", "")
tellen:
 For i = 1 To Len(cl)
  som = som + Mid(cl, i, 1) * 1
 Next
 If Len(som) > 1 Then
  cl = som: som = 0: GoTo tellen
 End If
herleid = som
End Function

 

[HSV]

Hier ook nog een lange formule.

Als de datum in A1 staat.

=SOMPRODUCT((DEEL(TEKST(SOMPRODUCT(--DEEL(DAG(A1)&MAAND(A1)&JAAR(A1);RIJ(INDIRECT("1:"&LENGTE(DAG(A1)&MAAND(A1)&JAAR(A1))));1));"000000000");{1;2;3;4;5;6;7;8;9};1))*1)