rekenen met tekst deel 2

[Writtler]

aansluitend op

http://www.helpmij.nl/forum/showthread.php?t=402660&highlight=rekenen

het volgende, 1ste rijen waren geen probleem perfect met deze oplossing echter het nieuwe bestand wat dient te worden uitgerekend heeft verschil in spaties tussen de tekens.

bv.

4 plus 1=
1 plus 4=
3 min 2=

edit: verschil in spaties worden niet goed weergegeven, zal ander bestandje uploaden met duidelijk voorbeeld

enz enz enz.

De bijgevoegde oplossing werkt nu dus niet meer aangezien in deze oplossing geen rekening wordt gehouden met verschillende spaties tussen de tekens.

Is hier een oplossing voor???

B.v.d.

 

[Writtler]

aansluitend op

http://www.helpmij.nl/forum/showthread.php?t=402660&highlight=rekenen

het volgende, 1ste rijen waren geen probleem perfect met deze oplossing echter het nieuwe bestand wat dient te worden uitgerekend heeft verschil in spaties tussen de tekens.

bv.

4 plus 1=
1 plus 4=
3 min 2=

edit: verschil in spaties worden niet goed weergegeven, zal ander bestandje uploaden met duidelijk voorbeeld

enz enz enz.

De bijgevoegde oplossing werkt nu dus niet meer aangezien in deze oplossing geen rekening wordt gehouden met verschillende spaties tussen de tekens.

Is hier een oplossing voor???

B.v.d.

 

[Ginger]

Writtler, Zo doet 'ie 't wel...

Sub test()
For Each c In [a1:a5]
    sp = Split([COLOR="Blue"]WorksheetFunction.Trim([/COLOR]c.Value[COLOR="blue"]), " "[/COLOR])
'    Debug.Print sp(0), sp(1), sp(2)
    c.Offset(0, 1) = sp(0) + Val(sp(2)) * IIf(sp(1) = "plus", 1, -1)
Next
End Sub

Groet, Leo

 

[Writtler]

Perfect!!

Dank je wel Leo!!

groetjes