Sub SplitFilenamefromFullPath()
'
' SplitFilenamefromFullPath Macro
' Macro recorded 19.05.2011 by Frick
'
Dim a() As String
'MsgBox "The selection object type is " & TypeName(Selection)
If TypeName(Selection) = "Range" Then
' only do if it is a range
For Each rngZelle In Selection
' MsgBox rngZelle.Value
' MsgBox TypeName(rngZelle)
a = Split(rngZelle.Value, "/")
If UBound(a) > 0 Then
rngZelle.Value = a(UBound(a))
End If
' MsgBox rngZelle.Value
Next
End If
End Sub