Hej, jag har en lista, en Kolumn, med namn, För- och Efternamn med ett mellanrum mellan namnen...

Men i vissa olyckliga fall finns det även ett mellanslag bakom efternamnet, som är placerat sist, typ LISA KARLSSON

Och när jag räknar igenom kolumnen med namnen skall jag få exakt lika många mellanrum som jag har celler med namn.

Men hur fanken räknar jag mellanrummen, the Space, Chr§(32), " " ??

Jag har kodraden > MellanSlag = InStr(WorkSheets(Flik).Cells(J, 1), " ") < men här får jag svaret 5 som är antalet tecken fram till och med " ". Om jag nu bara vill veta hur många mellanslagen är i cellen, då vill jag ha svaret 2, eftersom det sitter ett mellanslag även bakom KARLSSON...

Hur formulerar jag min kodrad då ?? Jag har gjort några tappra försök med Count men men


/fleXcel

 Hej hej

Mjo det där med mellanslag är drygt. Det finns dock en funktion som hanterar dessa så att du eventuellt slipper hantera hål.

str = cells(j, 1)

str = trim(str)

 'trim tar bort blanksteg i början eller i slutet av en textsträng, dock ej i mitten. Fungerar likadant som excelfunktionen =rensa(), eller =trim() på engelska.

Sedan finns det även en funktion som heter split. Denna delar upp en text i flera delar baserat på en avgränsare, då mellanslag är default så behövs ingen avgränsare i ditt fall:

Dim vnt as variant

vnt = split(str)

Om du då har lena karlsson , Så kommer arrayen att se ut som nedan:

vnt(0), "lena"

vnt(1), "karlsson"

vnt(2), ""

Mvh

Christian