• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Drie reeksen van nummers in 1 cel samenvoegen in dezelfde cel

Status
Niet open voor verdere reacties.
A

ArthurvL

Gebruiker
Lid geworden
6 apr 2020
Berichten
8
Beste allemaal,

Ik wil jullie graag vragen om mee te denken met het volgende. Ik ben bezig met data en het aangeleverde bestaat uit drie reeksen van nummers in 1 cel. Ik wil graag deze drie reeksen in dezelfde cel in een reeks hebben.

Voorbeeld:

1234 5678 9012

Ik wil graag dit makkelijk samen laten voegen, zodat je het volgende krijgt:

123456789012

Ik heb al zitten zoeken met oa concatonate, textjoin en dergelijke, maar ik heb de oplossing niet kunnen vinden. Wellicht denk je dan altijd te moeilijk, weten jullie de oplossing?

Alvast ontzettend bedankt voor het meedenken!

Groetjes Arthur
 
Wat dacht je van deze

Code: 
=SUBSTITUEREN(A1;" ";"")
 
Of gebruik een macro. Dan heb je geen extra kolom nodig.

Code: 
Sub RemoveSpatie()

Dim r As Range
Dim LastRow As Long
LastRow = Range("A:A").SpecialCells(xlCellTypeLastCell).Row
    For Each r In Range("A1:A" & LastRow)
        r.Value = Replace(r, " ", "")
        r.Value = Left$(r, 12)
    Next
End Sub

Wel even je celeigenschappen aanpassen naar
Code: 
0
 
Geen probleem. De macro doet hetzelfde en scheelt je een hulpkolom:thumb:
 
Of, als je geen macro wilt hebben, en geen extra kolom: selecteer de kolom, kies >Zoeken en Vervangen> en vervang de spatie door niks. Dan ben je net zo snel klaar zonder gedoe :).
 
Code: 
sub removespace()
columns(1).replace " ",""
end sub
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan