Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
868to872
868to872
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Datei aus Pfad filtern

Forumthread: Datei aus Pfad filtern

Datei aus Pfad filtern
13.05.2007 12:07:00
Christian
Hallo,
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

Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Datei aus Pfad filtern
13.05.2007 12:24:00
Peter
Hallo Christian,
versuche es so:


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 


Gruß Peter
Anzeige
AW: Datei aus Pfad filtern
13.05.2007 12:52:56
Christian
Hallo Peter,
so geht's!
Herzlichen Dank und Gruß
Christian

AW: Datei aus Pfad filtern
13.05.2007 21:36:00
Peter
Hallo Christian,
es geht auch so - etwas kürzer

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

Anzeige
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige