rekenen met tekst

[Writtler]

Beste,

Is het volgende mogelijk:

10 plus 6=
5 min 4=

enz enz enz

deze tekst staat in 1 cel dus is het mogelijk dat excel de woorden plus als + ziet en min als - ziet en deze sommen uitrekent??


Bvd

 

[danny147]

Beste Writtler

Execl gaat dit niet herkennen en zal dan ook geen uitkomst geven.

Je moet het apart in een cel plaatsen
In A1 10 en in B1 6 en in C1 =A1+B1

Groetjes Danny. :thumb:

 

[Writtler]

Beste Writtler

Execl gaat dit niet herkennen en zal dan ook geen uitkomst geven.

Je moet het apart in een cel plaatsen
In A1 10 en in B1 6 en in C1 =A1+B1

Groetjes Danny. :thumb:

Danny,

Dank je voor de snelle reactie maar dat wordt dus een hele berg handmatig werk als ik het goed begrijp

 

[Roncancio]

Danny,

Dank je voor de snelle reactie maar dat wordt dus een hele berg handmatig werk als ik het goed begrijp

Hoeft niet.
Via CTRL-H zoeken naar plus en vervangen door +
En zoeken naar min en vervangen door -.

Met vriendelijke groet,


Roncancio

 

[Gert Bouwmeeste]

@Roncancio,

Dat werkt toch niet? Want dan zul je de "=" aan het einde ook weg moeten halen, en een "=" aan het begin moeten plaatsen, toch?

Ik was aan het zoeken of er een UDF voor te maken is, maar geraak daar nog niet uit.

 

[Writtler]

Hoeft niet.
Via CTRL-H zoeken naar plus en vervangen door +
En zoeken naar min en vervangen door -.

Met vriendelijke groet,


Roncancio

haha zo simpel!!!

maar is het dan mogelijk om de som uit te rekenen? = staat namelijk achteraan!

Alvast bedankt!

 

[Gert Bouwmeeste]

Dat bedoel ik, het werkt niet. Er staan ook nog spaties in. Als je die weghaalt en er bv deze formule naast zet:

="="&LINKS(A1;LENGTE(A1)-1)

Dan werkt het nog niet. Terwijl de formule op zich wel goed is.

 

[Writtler]

Dat bedoel ik, het werkt niet. Er staan ook nog spaties in. Als je die weghaalt en er bv deze formule naast zet:

="="&LINKS(A1;LENGTE(A1)-1)

Dan werkt het nog niet. Terwijl de formule op zich wel goed is.

Gert,

ben wel een stukje verder, de uitkomst van de formule kopieeren en plakken speciaal met waarden + enter

maar moet toch een makkelijkere manier zijn?????

 

[Gert Bouwmeeste]

formule kopieeren en plakken speciaal met waarden + enter

Nou, dit werkt bij mij in ieder geval niet. Ook het Zoeken en Vervangen van "Min" door "-" geeft een rare (wel verklaarbare) uitkomst, het wordt nl. een datum.

Idd, het moet makkelijker kunnen. Maar ik zoek nog hoe ...

 

[Writtler]

Nou, dit werkt bij mij in ieder geval niet. Ook het Zoeken en Vervangen van "Min" door "-" geeft een rare (wel verklaarbare) uitkomst, het wordt nl. een datum.

Idd, het moet makkelijker kunnen. Maar ik zoek nog hoe ...

Dank je wel alvast!!!!

 

[snb]

Met VBA

Sub tst()
  sp = Split([A1].Value)
  [B1] = sp(0) + Val(sp(2)) * IIf(sp(1) = "plus", 1, -1)
End Sub

 

[Gert Bouwmeeste]

@snb

Top! En kan dit ook in een UDF? TS geeft aan dat hij lange lijsten heeft met dit soort formules.

 

[danny147]

Beste snb

Mooi gevonden, maar is enkel geldig voor gegevens in cel A1.
Kan deze niet uitgebreid worden naar andere cellen?

Groetjes Danny. :thumb:

 

[Warme bakkertje]

Zo misschien ?

Mvg

Rudi

 

[snb]

Als User Defined Function (UDF)

Function reken(c0 as String)
  sp = Split(c0)
  reken = sp(0) + Val(sp(2)) * IIf(sp(1) = "plus", 1, -1)
End Function

wil je in B5 de berekening van de tekst in A5, zet dan in cel B5:
=reken(A5)

wil je in B5 de berekening van de tekst in A2, zet dan in cel B5:
=reken(A2)

De funktie zet je in een macromodule van het bestand (in VBA; projekt).

 

[Writtler]

Juistem mensen!!!!

Dit is hem helemaal, onwijs bedankt allemaal :thumb: