formule excel tekst

[AKLeksie]

i

ik heb een vraag ik probeer een formule te vinden om de onderstaande tekst in kolommen te krijgen. Ze moeten gesplitst worden op <br>

ik kan dit wel handmatig lopen doen maar ik heb in totaal 13031 cellen en om dit een voor een handmatig te doen dan ben ik nog niet morgen klaar. ik heb van alles geprobeerd, ALS formule, VIND.ALLES, tekst naar kolommen etc etc.

"<br>AlarmSeverity changed from MAJOR to MINOR<br>Alarm causes has changed. <br><b>Modems impacted:</b> 17<br>1 issues of type [US Spectral Response]<br>8 issues of type [DS Rel RxPower Avg]<br> <b>Inspection Points:</b> HM01.0000M67A.031.00D HM01.0000M67A.031.00D.01 HM01.0000M67A.031.00E.01"

Is er een manier om dit soort informatie met een formule in kolommen te krijgen?

Hoor het graag! Mijn dank is groot!

Alexandra

 

[edwin13387]

Hallo,

Wat is de bron hiervan?
Als je bijv. een textbestand opent kun je schrijden op verschillende tekens.
Daarin zou de uitkomst kunnen liggen.

mvg
Edwin

 

[roeljongman]

probeer het volgende eens.

1. gebruik zoeken en vervangen om alle <br> te vervangen door puntkomma ";"

2. daarna kun je via tekst naar kolommen functie de puntkomma als scheidingsteken gebruiken en wordt alles in aparte kolommen gezet.

 

[AlexCEL]

Hierbij een versie met formule.

Bekijk bijlage tekst splitsen (AC).xlsx

Het betreft wel een draak van een formule (VBA wellicht beter). Ik kan zonder verdere voorbeelden ook nog niet garanderen dat alles helemaal correct wordt omgezet...

 

[VenA]

Met een beetje code

Sub VenA()
For Each cl In Columns(1).SpecialCells(2)
    cl.Offset(, 1).Resize(, UBound(Split(cl, "<br>")) + 1) = Split(cl, "<br>")
Next cl
End Sub

 

[Gijsbert1]

Mijn duit in't zakje:

Sub split()
    Selection.Replace What:="<br>", Replacement:="~"
    Selection.TextToColumns Destination:=ActiveCell.Offset(0, -1), DataType:=xlDelimited, OtherChar:="~"
End Sub

 

[gast0660]

Code van Vena met mijn duit in het zakje

Dim sht As Worksheet
Dim fnd1 As Variant
Dim fnd2 As Variant
Dim rplc As Variant
fnd1 = "<b>"
fnd2 = "</b>"
rplc = ""
For Each cl In Columns(1).SpecialCells(2)
    cl.Offset(, 1).Resize(, UBound(Split(cl, "<br>")) + 1) = Split(cl, "<br>")
    Columns.AutoFit
Next cl
For Each sht In ActiveWorkbook.Worksheets
  sht.Cells.Replace what:=fnd1, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
Next sht
For Each sht In ActiveWorkbook.Worksheets
  sht.Cells.Replace what:=fnd2, Replacement:=rplc, _
    LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
    SearchFormat:=False, ReplaceFormat:=False
Next sht
End Sub

Ben je gelijk van <b> en </b> vanaf.

 

[AKLeksie]

SUPER!!! mijn dank is mega mega groot! heb hier heel veel aan