Spaties

[ABO01]

Ik krijg spaties niet weg wat ik ook doe. Trim functie geprobeerd, zoeken en vervangen (spatie) geprobeerd, text to columns geprobeerd..... Kan iemand helpen aub, zie bijgevoegde voorbeeld

 

[xbox360]

@AB001
zet 1 van dit in D2
en trek dit door naar beneden
=SUBSTITUTE(A2;" ";"")
=SUBSTITUEREN(A2;" ";"")

 

[ABO01]

@xbox360 met eerste formule blijft nog spatie als ik knippen plakken ga doen. tweede formule ken excel niet...

 

[SjonR]

probeer:

=LINKS(A2;LENGTE(A2)-1)

Engelse versie:

=Left(A2,LEN(A2)-1)

Het is geen reguliere spatie die Excel herkent zo te zien. Een reguliere spatie heeft ASCII-code 32 en die in jouw bestand heeft code 160.

 

[ABO01]

@SjonR dit werkt, dank je wel

 

[SjonR]

mooi!

 

[peter59]

Of nog een mogelijkheid met power query.

 

[AHulpje]

En als je het met SUBSTITUEREN wilt doen en er direct numerieke waarden van wil maken kan het ook zo:

 

[Verwijderd lid 501906]

@ABO01


VBA wel eerst gebied selecteren
A1: H24 daarna VBA runnen.
dit haalt alle spaties ASCII-code 160 weg uit het geselecteerde gebied.
daarna werken je bestaande formules wel.

 

[AlexCEL]

Voor C2, Excel 365:

=TEKST.VOOR(A2;TEKEN(160))-TEKST.VOOR(B2;TEKEN(160))

 

[Verwijderd lid 501906]

Voor C2, Excel 365:

=TEKST.VOOR(A2;TEKEN(160))-TEKST.VOOR(B2;TEKEN(160))

In jouw geval moeten alle regels aangepast worden. Ik pas een selectie in één keer aan.
Beide is goed, het is wat je handiger vindt.

 

[JEC.]

Cells(1).CurrentRegion.Replace Chr(160), ""

ook nog een formule optie

=MMULT(REGEXEXTRACT(A2:B5;"[^\xA0]+")+0;{1;-1})

 

[AlexCEL]

In jouw geval moeten alle regels aangepast worden.

Zo dan?

=TEKST.VOOR(A2:A5;TEKEN(160))-TEKST.VOOR(B2:B5;TEKEN(160))

Maar goed, is maar één van de mogelijkheden.

 

[Verwijderd lid 501906]

@JEC. @AlexCEL

Er zijn inderdaad heel veel mogelijkheden!

In code =MMULT(REGEXEXTRACT(A2:B5;"[^\xA0]+")+0;{1;-1})
en de code
=TEKST.VOOR(A2:A5;TEKEN(160))-TEKST.VOOR(B2:B5;TEKEN(160))
ligt de range vast A2:B5


Ik blijf de voorkeur geven aan mijn VBA-script

Sub ReplaceNonBreakingSpacesAndCaret()
Dim cell As Range
Dim ws As Worksheet
Set ws = ActiveSheet
For Each cell In Selection
If Not IsEmpty(cell) Then
' Vervang niet-breekbare spaties door ^
cell.Value = Replace(cell.Value, Chr(160), "")
End If
Next cell
End Sub

 

[edmoor]

Ik blijf de voorkeur geven aan code in codetags en juiste inspringpunten.
Gebruik ook geen correct Engels woorden als naam voor een variabele.

 

[Verwijderd lid 501906]

@edmoor
leg uit
ik begrijp je niet helemaal

 

[JEC.]

als je dan toch voor vba kiest, waarom dan niet met een hele simpele oneliner?

 

[edmoor]

@edmoor
leg uit
ik begrijp je niet helemaal

Klik eens op de link in mijn handtekening.
Daarnaast kan het in VBA met 1 regel code en zijn die variabelen en loop overbodig.

 

[Verwijderd lid 501906]

@edmoor
bedankt voor de uitleg
codetags is/zijn inderdaad veel handiger
En inderdaad het kan zonder de variabelen.
Ik probeerde het uit in bestaand script en dat is niet handig