Laatste gedeelte tekst in cel verwijderen

[Tonkaboon]

Hallo iedereen,

Het is al behoorlijk warm vandaag...maar de temperatuur hier stijgt tot ongekende hoogte omdat ik er niet uitkom met Excel :-(
Ik probeer dus het laatste gedeelte tekst in een cel te verwijderen en had hier eerder op het forum al een aantal mooie oplossingen voor gekregen. Waaronder deze formule:

=LINKS(A1;VIND.ALLES("@";SUBSTITUEREN(A1;"/";"@";LENGTE(A1)-LENGTE(SUBSTITUEREN(A1;"/";"")));1))

Maar deze werkt helaas niet. Waarschijnlijk omdat de data in het laatste gedeelte is gescheiden met een -
Of misschien iets ander wat ik nu over het hoofd zie.

Hieronder uitgelegd wat ik graag zou willen:

Uitgangspunt in kolom A

/shop/winkel/broeken/bermudas/maat44-van-het-merk-adidas-kleur-groen/
/winkel/voorraad/jurken/maxidress/totdeknie/in-het-groen-maat-44-extra-large/
/producten/kleding/dames/broeken/pantalon/zwart-totdeknie-maat-36-extra-small/


Dit is hoe het moet worden in Kolom B

/shop/winkel/broeken/bermudas/
/winkel/voorraad/jurken/maxidress/totdeknie/
/producten/kleding/dames/broeken/pantalon/



Heeft iemand hier een goede oplossing voor?

Alvast heel erg bedankt voor het meedenken!



Groetjes en een fijne {verkoelende} avond toegewenst!

 

[HSV]

Naar formuleform niet gekeken.
Met Vba in module1.

Function weg(c As String)
 weg = Replace(c, Split(c, "/")(UBound(Split(c, "/")) - 1) & "/", "")
End Function

In een cel: =weg(A1)

 

[Tonkaboon]

Naar formuleform niet gekeken.
Met Vba in module1.

Function weg(c As String)
 weg = Replace(c, Split(c, "/")(UBound(Split(c, "/")) - 1) & "/", "")
End Function

In een cel: =weg(A1)

Dank je wel voor de input Harry!
Ik ga hier morgen even verder naar kijken.
Ben geen geleerde voor wat betreft Excel. Dus ik zal even moeten opzoeken hoe ik precies een VBA moet maken in Excel.

Maar voor nu, heel erg bedankt voor je hulp. Wanneer ik het heb uitgevonden zal ik je dit even laten weten!

Groetjes!

 

[emields]

of zo, met een macro

 

[AlexCEL]

Dan toch ook maar weer een formule-variant. Vorige keer (link: https://www.helpmij.nl/forum/showthread.php/947838-Laatste-gedeelte-tekst-in-een-cel-verwijderen) stond er geen "/" op het einde, een wezenlijk verschil, want de vorige formule ging op zoek naar de laatste "/" en haalde alles daarna weg. Dat kan hier dus niet.

Een nieuwe versie:

=SUBSTITUEREN(A1;"/"&SPATIES.WISSEN(RECHTS(SUBSTITUEREN(LINKS(A1;LENGTE(A1)-1);"/";HERHALING(" ";100));100))&"/";"")

 

[HSV]

of zo, met een macro

Die niet zo ingewikkeld hoeft te zijn.

Sub hsv()
Dim sv, i
With Cells(1).CurrentRegion.Resize(, 2)
   sv = .Value
    For i = 1 To UBound(sv)
      sv(i, 2) = Replace(sv(i, 1), Split(sv(i, 1), "/")(UBound(Split(sv(i, 1), "/")) - 1) & "/", "")
    Next i
  .Value = sv
 End With
End Sub

Bestandje maar bijgevoegd.