Sub test()
Dim Pfad As String
Dim sArray() As String
Dim Dateiname as String
 
Pfad = "C:\test\1234_t1_10.0"
Pfad = StrReverse(Pfad)
sArray = Split(Pfad, "\")
 
Dateiname=sArray(0)
 
ActiveCell = StrReverse(Dateiname)
 
End Sub