Rekenen met gegevens in één cel

[Plotinus]

Voor een bepaalde toepassing is het handig om gegevens in één cel onder elkaar te plaatsen. Vraag is nu: kan er dan ook nog gerekend worden? Mij lukt het helaas niet. Zie bijlage voor een zeer eenvoudig voorbeeldje.

 

[snb]

Alleen met een UDF:

Function F_snb(c00, y)
  sn = Split(c00, vbLf)
  For j = 0 To UBound(sn)
    sn(j) = sn(j) - y
  Next
  F_snb = Join(sn, vbLf)
End Function

=F_snb(A2;B2)

 

[Cobbe]

Of via een formule:

=LINKS($A$2;1)*1-$B$2&TEKEN(10) & DEEL($A$2;3;1)*1-$B$2 & TEKEN(10) & DEEL($A$2;5;1)*1-$B$2

 

[Plotinus]

Cobbe en snb hartelijk dank voor de reacties, beide oplossingenwerken - tot op zeker hoogte:
De oplossing van Cobbe hefet het voordeel dat het resultaat netjes onder elkaar wordt geplaatst, maar het kan helaas niet met een wisselend aantal argumenten in cel A omgaan.
De oplossing van snb kent die flexibiliteit wel, maar zet de resultaten niet onder elkaar, maar naast elkaar neer en dat is niet de bedoeling.

We gaan het proberen te optimaliseren al zal dat van Cobbe een stuk gemakkelijker zijn (voor mij) dan dat van snb.

 

[edmoor]

Wat de oplossing van snb betreft, heb je de betreffende cel in de eigenschappen wel op Terugloop gezet?

 

[Cobbe]

Je hoeft het scheidingsteken in de UDF van snb toch maar aan te passen:

Function F_snb(c00, y)
  sn = Split(c00, vbLf)
  For j = 0 To UBound(sn)
    sn(j) = sn(j) - y
  Next
  F_snb = Join(sn, [COLOR="#FF0000"]Chr(10)[/COLOR])
End Function

 

[snb]

Helaas, noch vbLF noch chr(10) aktiveren de terugloop; daarom had ik de " _ " gekozen voor de leesbaarheid.

 

[Cobbe]

Als je de _ vervangt door chr(10) en de cel op terugloop zet is het resultaat toch ok.
Of is het net dat wat je aangeeft?

 

[snb]

@Cobbe

Je hebt helemaal gelijk (zoals Edm); kwas vergeten die wraptext in te stellen.

 

[Plotinus]

snb en Cobbe jullie hebben me uitstekend geholpen: hartelijk dank!