Sub remove_text_after_char()
Dim rng As Range
Dim cell As Range
Set rng = Application.Selection
For Each cell In rng
cell.Offset(0, 1).Value = Left(cell, InStr(cell, “T”) - 1)
Next cell
End Sub
Dit haalt alles weg na de T in de range die je zelf selecteert en plaatst het in de kolom ernaast.




