substitueren

[chlo]

Beste,

ik heb in een cel een tekst : 50/80/250/80/50.
Met de formule "substitueren" kan ik dit veranderen in 50+80+250+80+50
"=SUBSTITUEREN(50/80/250/80/50;"/";"+")".
Is het mogelijk om met een formule het resultaat van deze som te bekomen "510" ?

Alvast bedankt!

 

[HSV]

Maak een gedefinieerde naam aan.
Bv. met de naam "inhoud"
Zet in "Verwijst naar":

=EVALUEREN(SUBSTITUEREN("50/80/250/80/50";"/";"+"))

Zet in een cel:

=Inhoud

Of zoals je schrijft staat de tekst in een cel.
Bv cel A1.
Maak een naam aan.
Bv. Inhoud2

Verwijst naar:

=EVALUEREN(SUBSTITUEREN(Blad1!$A$1;"/";"+"))

Zet in een cel: =Inhoud2

 

[chlo]

Bekijk bijlage substitueren.xls

Bedankt voor je reactie!
Maar het is me nog niet helemaal duidelijk.
Zou je misschien de bijlage willen aanvullen?

 

[HSV]

Bij deze: Excel4macro + UDF (uitleg staat in het bestand).

 

[chlo]

Dankjewel!!
Toch nog een vraagje, als ik die formule "=evalueren(substitueren(...)" in een cel invul,
dan krijg ik de foutmelding "deze functie is ongeldig", hoe komt dit?

 

[HSV]

De functie "evalueren" is een Excel4Macro en werkt enkel in de omgeving van een gedefinieerde naam.
Als je dit in een .xlsx extensie invoert, is het alleen maar mogelijk om het als .xlsm extensie op te slaan, of de Excel4Macro gaat verloren.

 

[VenA]

Zeer waarschijnlijk doordat je de formule op een andere plek in jouw sheet zet. Dus een voorbeeldje met waar het mis gaat is wenselijk.

 

[edmoor]

Met deze heb je geen Excel4Macro zaken of een gedefinieerde naam nodig en het substitueren ook niet:

Function SOM_SPECIAAL(inhoud As String, separator As String) As Integer
    Dim inh() As String, i As Integer
    inh = Split(inhoud, separator)
    For i = 0 To UBound(inh)
        SOM_SPECIAAL = SOM_SPECIAAL + inh(i)
    Next i
End Function

Het gebruik is dan:

=SOM_SPECIAAL(A1;"/")

Waar je dat dan in het document gebruikt maakt ook niet uit.

Bekijk bijlage Berekenen.xls

 

[HSV]

Bij deze: Excel4macro + UDF (uitleg staat in het bestand).

Had ook een UDF meegezonden in #4 @edmoor.

 

[edmoor]

Had ik ook gezien