Deel Celinhoud verwijderen

[JusticeNL]

Ik heb het vermoeden dat het niet mogelijk is maar wil het alsnog vragen.
Hoop dat ik het ook duidelijk kan aangeven wat voor resultaat ik wil.
In kolom A staan diverse informatie over een product.
De meeste zijn overbodig en wil dus alle overbodige teksten verwijderen.
Het enigste wat moet blijven staan zijn regels waar dubbelpunt ) in voorkomt.
Zie bestand, Kolom A is wat het is en Kolom B moet het resultaat zijn.
Hoop dat iemand mij hiermee kan helpen.

 

[SjonR]

Hetgeen jij in Kolom B hebt neergezet als zijnde het resultaat, komt in bijna alle gevallen helemaal niet voor in Kolom A. Moet excel kunnen raden welk resultaat er moeten komen.

In Kolom A staat geen enkele dubbele punt.

 

[JusticeNL]

De rijhoogte is standaard op 15. Als u deze vergroot naar 270 dan denk ik dat u zult begrijpen wat ik bedoel.
Als u naar kolom A1 kijkt dan ziet u het volgende:

5stuks 150x60x25mm Aluminium Koellichaam Heatsink Cooling voor Chip IC LED Stroom Memory Transistor
Productomschrijving
Function van Deze Aluminium Koellichaam is naar cool down de board en make it operate safely.
De Aluminium Koellichaam can rooduce de risk van hardware failure because van oververwarmings.
Productomschrijving
Aantal blade:24
Materiaal:Aluminium
Kleur:Zilver
Blade Dikte:1mm
Bodemplaat Dikte:2mm
Afmeting:150 x 60 x 25mm
Geschikt voor:Various mini DC converter circuit board, LED, Stroom IC, Transistor etc.

Inhoud verpakking:5 x Aluminium Koellichaam 150 x 60 x 25mm

Dit moet worden:

Aantal blade:24
Materiaal:Aluminium
Kleur:Zilver
Blade Dikte:1mm
Bodemplaat Dikte:2mm
Afmeting:150 x 60 x 25mm
Geschikt voor:Various mini DC converter circuit board, LED, Stroom IC, Transistor etc.

Inhoud verpakking:5 x Aluminium Koellichaam 150 x 60 x 25mm

Dus de rijen met : moet blijven staan.

 

[SjonR]

Zoveel info zag ik niet. Excuus

 

[edmoor]

Zet deze functie in een module en gebruik deze eens in kolom C. Wel de cellen van kolom C op Terugloop zetten:

Public Function ColonOnly(cel As Range) As String
    Dim inh() As String
    inh = Split(cel, vbLf)
    For i = 0 To UBound(inh)
        If InStr(1, inh(i), ":") > 0 Then
            ColonOnly = ColonOnly & inh(i) & vbLf
        End If
    Next i
    ColonOnly = Left(ColonOnly, Len(ColonOnly) - 1)
End Function

Aanroep in C1:
=ColonOnly(A1)

Sla je document op als Excel-werkmap met Macro's (*.xlsm)

 

[snb]

Sub M_snb()
  sn = Sheet1.Cells(1).CurrentRegion
  
  For j = 1 To UBound(sn)
    sn(j, 1) = Join(Filter(Split(sn(j, 1), vbLf), ":"), vbLf)
  Next
  
  Sheet1.Cells(1).CurrentRegion.Offset(,1).Resize(, 1) = sn
End Sub