Excel VBA: Jak vybrat první slovo z věty? Vyřešeno

[atari]

v buňce A1 mám tyto věty např:
Bridgeport Season Schedule
Lowell Season Schedule
Hartford Season Schedule atd.
Potřebuji vždy první slovo zkopírovat do buňky A2.
(Takže například v prvním případě bude v buňce A2: Bridgeport)
Potřebuji to ve VBA. Zkopírovat zadaný počet znaků od začátku bych uměl pomocí funkce "MID", ale tady je nutné oddělit pokaždé jiný počet znaků a to už neumím.
Poradí někdo?

[Reklama]

[CZechBoY]

Je v Excelu funkce InStr ? pak by šlo udělat Mid(0,Instr(" ",A1),A1) nebo jak se píše Mid a InStr.
Tohle je návod kdyžtak to uprav do formy jak to má být, už jdu spát takže nevim :)

[mike007]

Použij toto:

[syntax lang=vb]Sub prvni_slovo()
Cells(2, 1) = Left(Range("a1"), InStr(1, Range("a1"), " ", vbTextCompare))
End Sub[/syntax]

Do přílohy jsem ti též hodil ukázku, jak se dá první slovo separovat pomocí vzorečku. Třeba se ti to bude někdy hodit.

[atari]

Díky za radu i za vzorečky.
Tak jsem si to makro ještě musel upravit. To makro zapisovalo za slovo i tu mezeru. Tu tam mít nemůžu (buňku pak provnávám příkazem IF)
Napsal jsem na konec ještě "-1". A funguje!
Cells(2, 1) = Left(Range("a1"), InStr(1, Range("a1"), " ", vbTextCompare)-1)

[mike007]

Šikula To víš, makro jsem ti psal v noci a to mi už moc hlava neslouží