Sub removertf()
'
' removertf Makro
 
    Dim AnzahlZeilen As Long
    Dim Zeile As Long
    Dim str1 As String
    Dim strToFind As String
 
    AnzahlZeilen = ActiveSheet.UsedRange.Rows.Count
 
        For Zeile = 1 To AnzahlZeilen
 
            str1 = Cells(Zeile, 4).Value
            strToFind = "\fs"
            label1.Text = str1.IndexOf(strToFind, 2)
            TextBox2.Text = str1.Remove(0, CInt(label1.Text))
            Cells(Zeile, 5) = TextBox2.Text
 
        Next Zeile
 
End Sub