Bepaalde tekst uit cel verwijderen

[raymondh1974]

Goedemiddag,

Ik moet uit een excel bestand van 26000 regels bepaalde tekst uit cellen hallen. Zie bijlage. Heeft iemand een formule hier voor. Het is dus wel bekend welke tekst ik uit de cellen moet verwijderen en dit zou via tekst naar kolommen kunnen, echter de ene keer is het 1 woord en de andere keer 3 woorden.

Ik hoor graag of iemand mij heel veel werk kan besparen
Bekijk bijlage Merk uit omschrijving verwijderen.xlsBekijk bijlage Merk uit omschrijving verwijderen.xls

 

[VenA]

Probeer het zo eens.

=SUBSTITUEREN(B2;A2& " ";"")

 

[raymondh1974]

Super

Bedankt voor de snelle hulp!!!

 

[snb]

Sub M_snb()
  sn=columns(1).specialcells(2)

  for j=1 to ubound(sn)
     columns(2).replace sn(j,1),""
  next
end sub

 

[Warme bakkertje]

Zal eerder iets als dit worden.

Sub M_snb()
  sn = Cells(1).CurrentRegion.Resize(, 3).Value
  For j = 2 To UBound(sn)
     sn(j, 3) = Replace(sn(j, 2), sn(j, 1), "")
  Next
  Cells(1).Resize(UBound(sn), 3) = sn
End Sub

 

[VenA]

Beide codes zijn incorrect. Tenzij je van voorloop spaties houdt

 

[Warme bakkertje]

Zo goed dan ?

Sub M_snb()
  sn = Cells(1).CurrentRegion.Resize(, 3).Value
  For j = 2 To UBound(sn)
     sn(j, 3) = Trim(Replace(sn(j, 2), sn(j, 1), ""))
  Next
  Cells(1).Resize(UBound(sn), 3) = sn
End Sub

 

[VenA]

Gezien de merken en de Standaard omschrijving volstaat cells.clear:d