Hoe kan ik snel opmaaktekens (<br> <p> uit de tekst in een Excel bestand verwijderen?

[marcovs]

In een Excel bestand dat ik gedownload heb uit een extern systeem, staan opmaak tekens. Deze opmaaktekens wil ik in een keer uit alle cellen verwijderen. Weet iemand hoe ik dit kan doen.

De inhoud van de cel ziet er bijvoorbeeld zo uit:

<p> Welke van onderstaande stellingen is/zijn onjuist? <br> </p> <ol type="I"> <li>

Alle <p> <br> etc. wil ik verwijderen uit de cellen. Weet iemand hoe ik dat kan doen.

 

[jkpieterse]

Kan je in dat externe systeem niet uit een ander formaat kiezen misschien?

 

[abevleeming]

alles selecteren en dan op zoeken - vervangen klikken. "Zoeken" naar bijvoorbeeld <p> en de "vervangen voor" leeg laten

 

[Gijsbert1]

"Zoeken" naar bijvoorbeeld <p>

Als je zoekt naar <*> dan pakt hij alles in 1 keer.

 

[Gijsbert1]

Het kan ook met Macro in vba:

Sub trim()
Cells.Replace What:="<*>", Replacement:=""
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
cell = WorksheetFunction.trim(cell)
Next cell
End Sub

Hiermee worden overbodige spaties ook gelijk weg gehaald!

 

[jolivanes]

@ Gijsbert1
In het voorbeeld is het eerste teken een "<" en het laatste teken een ">"
Met de code "<*>" gaat toch alles weg?

 

[Gijsbert1]

Heb je dat getest jolivanes?
Bij mij werkt het goed!

 

[jolivanes]

Hoi Gijs.
Ja, zo ben ik er achter gekomen.

Ik heb deze lijn gebruikt met jouw code.
<p> Welke van onderstaande stellingen is/zijn onjuist? <br> </p> <ol type="I"> <li>

Ik zal het nogmaals aanmaken en weer proberen.
Groetjes

 

[Gijsbert1]

Bij mij doet hij het prima.

Ik denk dat het probleem bij jou het volgende is:
Ga naar zoeken en vervangen ---> ga naar opties ---> haal het vinkje weg bij "Identieke celinhoud"

En anders vervang je de macro voor:

Sub trim_by_gijs()
    Cells.Replace What:="<*>", Replacement:="", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Dim cell As Range
For Each cell In ActiveSheet.UsedRange.SpecialCells(xlCellTypeConstants)
cell = WorksheetFunction.trim(cell)
Next cell
End Sub

 

[bowlingman]

Hallo Marcovs,

De snelste manier om dit te doen is zoals ABEVLEEMING aangeeft (dan hoef je geen macro te schrijven)
Als je niet precies weet hoe :
Gewoon in de betreffende sheet eerder welke cel selecteren vervolgens
Ctrl+F ==>> in "Zoeken naar" <*> ==>> Alt+V ==>> Alt+S

Grtjs.
Armand

 

[jolivanes]

Hoi Gijs.
Nee, er staat niets aangevinkt maar de nieuwe code werkt wel goed.
Bedankt

 

[jolivanes]

Hoi Gijs nogmaals
Nadat ik je tweede code had geprobeerd werkte de eerste wel zoals het moest.

 

[HSV]

sub hsv()
 columns(1).replace "<*>", ""
end sub

Lijkt mij voldoende.