Tekst scheiden op eerste spatie

[jelle87]

Goedenmorgen,

Op mijn werk kunnen we gegevens uit het systeem halen, (artikelnummer + omschrijving + afzet, bijvoorbeeld). Echter, het systeem produceert dan een lijst, waar de gegevens in Excel komen te staan, op deze manier:
Cel 1: Cel 2:
1001 Artikel A 10
1002 Artikel B 12
1003 Artikel C 8

Het programma voegt dus het artikelnummer en de omschrijving samen.

Wat we graag zouden willen is 'Cel 1' te splitsen op artikelnummer en omschrijving.

Dit kan natuurlijk via 'tekst naar kolommen' en dan via 'spaties' op te delen. Echter als we dat doen, dan wordt de omschrijving ook opgedeeld naar verschillende kolommen.

Is het mogelijk om alleen op de eerste spatie te splitsen? Helaas zijn de artikelnummers niet altijd even lang, dus op vaste breedte scheiden is ook geen optie.

Alvast bedankt!

Groet,
Jelle

 

[Cobbe]

Voor het artikelnmmer:

=LINKS(A1;VIND.SPEC(" ";A1)-1)

en voor de omschrijving:

=RECHTS(A1;(LENGTE(A1)-LENGTE(LINKS(A1;VIND.SPEC(" ";A1)))))

 

[snb]

Makrootje:

Sub M_snb()
   For Each it In Columns(2).SpecialCells(2)
     it = Replace(it, " ", "_", , 1)
   Next
End Sub

 

[jelle87]

Bedankt, ik ga er mee stoeien!