VIND.ALLES in vba?

[M v Egmond]

Hallo, heb de volgende functie in Excel
=LINKS(A1;(VIND.ALLES(" ";A1)-1))
Waarbij VIND.ALLES niet lukt in vba.
Ik wil dit echter in vba, MAARRR HOE?
Of maw wat is VIND.ALLES in vba?
Bij voorbaat DANK!
martijn

[Luc.Heyndrickx]

Martijn,

In VBA moet alles in het engels komen. Ik heb hier niet onmiddelijk de
vertaling, maar die is heel makkelijk te ontdekken door de macrorecorder te
gebruiken, en daarna de code te bekijken.

Luc

"M v Egmond" <m.van....@home.nl> schreef in bericht
news:SPET9.8842$J6.7...@zwoll1.home.nl...

[Pieter Kuyck]

Martijn,

VIND.ALLES -> FIND
In een formule plaatsen via VBA
r.Formula="=FIND(A1,B1,1)"

als werkbladfunction aanroepen in VBA
WorksheetFunction.Find(Range("A1").Text,Range("B1").Text,1)

of als een VB function
Instr(1,Range("B1").Text,Range("A1").Text,vbBinaryCompare)
! letop eerst de Intekst dan de Zoektekst

A1 is zoektekst
B1 is de string waaringe zocht wordt
1 is de startpositie
bij Instr kan hoofdlettergevoelig gezocht worden -> vbBinaryCompare
of niet gevoelig voor hoofdletters -> vbTextCompare

Pieter

"Luc.Heyndrickx" <lucDitVerwijd...@skynet.be> wrote in message news:eYMLyBOuCHA.2592@TK2MSFTNGP10...

[M v Egmond]

Bedankt voor al jullie reacties!
En die opmerking van Luc is ook een goeie.
Vaak onstaat er een probleem door de vertaling, waar kan je die eventueel
vinden?
Martijn

"Pieter Kuyck" <VERWIJDER...@chello.nl> schreef in bericht
news:#6mSA2UuCHA.2668@TK2MSFTNGP12...

[Pieter Kuyck]

Martijn,

op de pagina van KeepItCool
http://members.chello.nl/keepitcool/
kan je een mooie en eenvoudige tool vinden voor het vertalen.

Ik had overigens gewoon de macrorecorder aangezet en daarna de formule =VIND.ALLES(..) intetyp. In de dan opgenomen
marco staat de engels term.

Pieter

"M v Egmond" <m.van....@home.nl> wrote in message news:7ORT9.11598$J6.9...@zwoll1.home.nl...