Ergebnis auf einem anderen Sheet

Bild

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

Bild


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



 Bild

Beiträge aus den Excel-Beispielen zum Thema "Ergebnis auf einem anderen Sheet"