ich würde mich freuen, wenn mir jemand helfen könnte, aus einem Pfad: z. B. E:\ABC\DEF\ghj.doc die Datei "ghj" mit einem VBA-Code heraus zu filtern.
Vielen Dank
Christian
Option Explicit
Public Sub HerausFiltern()
Dim iPosit As Integer
With Worksheets("Tabelle1")
iPosit = InStrRev(.Range("A1").Value, "\")
If iPosit > 0 Then
.Range("B1").Value = Mid(.Range("A1").Value, iPosit + 1, _
Len(.Range("A1").Value) - iPosit - 4)
End If
End With
End Sub
Public Sub heraus_filtern()
Dim aTmp As Variant
Dim iIndex As Integer
With Worksheets("Tabelle1")
aTmp = Split(.Range("A1").Value, "\")
.Range("C1").Value = Left(aTmp(UBound(aTmp)), Len(aTmp(UBound(aTmp))) - 4)
End With
End Sub
Gruß Peter