Herbers Excel-Forum - das Archiv
Ergebnis auf einem anderen Sheet
Betrifft: Ergebnis auf einem anderen Sheet
von: Andreas
Geschrieben am: 21.02.2005 12:43:41
Hallo Spezialisten,
ich möchte das Ergebnis meiner Datei-Suche auf einem anderen Sheet unter die Überschrift (erste Zeile) umleiten.
Ich könnte dann mehrere Suchen auf verschiedene Sheets verteilen.
Für Eure Hilfe danke ich schon jetzt,
Ciao,
Andreas
Hier mein bisheriger Code:
Option Explicit
Sub datei_finden()
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = Range("C1").Value
.SearchSubFolders = True
.Filename = Range("B1").Value
.Execute
For i = 1 To .FoundFiles.Count
Cells(i, 1) = cutter(.FoundFiles(i))
Next
End With
Columns.AutoFit
End Sub
Private Function cutter(Pfad As String) As String
Dim l As Integer
l = InStrRev(Pfad, "\") + 1
cutter = Mid(Pfad, l, 100)
End Function
Betrifft: AW: Ergebnis auf einem anderen Sheet
von: Udo
Geschrieben am: 21.02.2005 12:49:47
Sub datei_finden()
Dim i As Long
With Application.FileSearch
.NewSearch
.LookIn = Range("C1").Value
.SearchSubFolders = True
.Filename = Range("B1").Value
.Execute
For i = 1 To .FoundFiles.Count
'-------------------------------------------------------------
sheets("DeineTabelle").Cells(i+1, 1) = cutter(.FoundFiles(i))
'-------------------------------------------------------------
Next
End With
Columns.AutoFit
End Sub
Private Function cutter(Pfad As String) As String
Dim l As Integer
l = InStrRev(Pfad, "\") + 1
cutter = Mid(Pfad, l, 100)
End Function