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

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

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

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige