komma vervangen door Alt+Enter

[drukkertje]

Hallo allemaal,

Ik ben hier nieuw, mijn naam is Martin en ik heb me aangemeld omdat ik een vraag heb die ik met veel zoek werk nog niet heb weten te beantwoorden.

Ik heb een excelsheet met namen+adressen.
In de kolom adres staat in elke cel; postcode,woonplaats,afdeling.

De komma daar gaat het nu om, ik zou deze graag middels een zoek- en vervangfunctie wil vervangen door alt+enter of wel een regel return in dezelfde cel.

Wie helpt mij?

Groetjes Martin uit Boxtel

 

[Hans123]

Voeg de volgende code toe en voer deze uit.

Sub vervangen()
    For rij = 2 To 100
            Cells(rij, 1).Value = Replace(Cells(rij, 1).Value, ",", Chr(10))
    Next rij
End Sub

Deze code vervangt alle komma's in kolom 1 van rij 4 t/m 100

 

[drukkertje]

Opgelost

Beste Hans,

Ontzettend bedankt voor jou uitleg/voorbeeld.
Ik heb middels wat kleine aanpassingen een geweldige oplossing gevonden voor het bedoelde document wat wekelijks moet worden ontdaan van komma's.

Klasse,

Groeten uit Boxtel,

Martin

 

[Wigi]

Voeg de volgende code toe en voer deze uit.

Sub vervangen()
    For rij = 2 To 100
            Cells(rij, 1).Value = Replace(Cells(rij, 1).Value, ",", Chr(10))
    Next rij
End Sub

Deze code vervangt alle komma's in kolom 1 van rij 4 t/m 100

Hans

dit is vast en zeker beter indien het om vele cellen gaat.

Sub vervangen()
    Columns("A").SpecialCells(xlCellTypeConstants).Replace What:=",", Replacement:=Chr(10)
End Sub

Probeer m.a.w. loops te vermijden. Pas de Replace toe op het hele bereik, Excel zal zelf wel de cellen één voor één afgaan.

Wigi