Tekst links verwijderen tot eerste "_"

[Tweety1]

Ben opzoek naar een VBA die tekst tot het eerste "_" inclusief streepje verwijderd.

"FBE/IBS/FT/IBMS_6516BHF_TS" veranderen in "6516BHF_TS"
Gegevens staan in Kolom B

mvg
Kasper

 

[gast0660]

=rechts(b2;10)

 

[OctaFish]

Of, als de lengte van de string wisselt, deze:

=RECHTS(B1;LENGTE(B1)-VIND.SPEC("_";B1;1))

 

[OctaFish]

Maar ik zie nu pas dat je een VBA oplossing wilt .

    For i = 1 To 20
        Cells(i, 3).Value = Right(Cells(i, 2), Len(Cells(i, 2)) - InStr(1, Cells(i, 2), "_"))
    Next i

 

[Tweety1]

Werkt goed alleen graag nog aanpassen tot de laatste gevulde rij

 

[OctaFish]

Dat kun je zelf toch? Kwestie van het getal aanpassen. Of een dynamisch functie gebruiken die de laatste rij opzoekt.

 

[OctaFish]

Zoiets bijvoorbeeld:

Dim LastRow As Long
    With ActiveSheet
        LastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
    End With
    For i = 1 To LastRow
        Cells(i, 3).Value = Right(Cells(i, 2), Len(Cells(i, 2)) - InStr(1, Cells(i, 2), "_"))
    Next i

 

[Tweety1]

Perfect