Tekst vervangen door laatste teken te verwijderen

[Robert Smidt]

Beste formumleden,

Ik heb een excel document waar ik persoonsgegevens in plaats vanuit een pdf-document. In dat pdf-document staan alle adressen gevolgd door een komma. Nu ben ik op zoek naar een vba-code die het adres laat staan, maar de komma laat verwijderen. Voorbeeld: Steenstraat 4, wordt Steenstraat 4

Nu ben ik al een eind op weg maar ontbreekt het laatste stukje.

Dim cell As Range
If cell.Offset(, -5) = "Bezoekadres" Then
    For Each cell In Range("H45:H150")
        If cell.Value Like "*," Then
        cell = [COLOR="#FF0000"]???[/COLOR]
    End If
    Next
End If

Wie kan mij helpen om de vraagtekens te beantwoorden?

Alvast heel erg bedankt.

Robert

 

[HSV]

Onderstaande regel kan nooit boven de for each lus staan.

If cell.Offset(, -5) = "Bezoekadres" Then

bv.

cell.replace ",",""

of:

cell = mid(cell,1,len(cell)-1)

of:

cell = split(cell,",")(0)

 

[Robert Smidt]

Klopt, ik was ook wat te voorbarig en heb de code later gewijzigd in:

Dim cell As Range
For Each cell In Range("H10:H470")
    If cell.Offset(, -5) Like "*adres" And cell.Value Like "*," Then [COLOR="#FF0000"]cell.Replace ",", ""[/COLOR]
Next

Het werkt nu prima, ontzettend bedankt voor het snelle antwoorden.

 

[HSV]

Zou dit ook passen?

sub verwijderkomma()
columns(8).replace ",",""
end sub

Of:

sub verwijderkomma()
range("h10:h470").replace ",",""
end sub

 

[Robert Smidt]

Bedankt Harry voor de aanvulling.

Helaas gaat dit niet lukken omdat dan altijd een woord dat eindigt op een komma de komma wordt gewist. In mijn geval moet het altijd om een adres gaan waar de komma gewist moet worden.

Wellicht dat ik jouw suggesties kan gebruiken in een andere situatie en heb deze daarom toegevoegd aan mijn handleiding voor Dummy's (lees ondergetekende) :d