Ergebnis auf einem anderen Sheet

• Ergebnis auf einem anderen Sheet von Andreas vom 21.02.2005 12:43:41
• AW: Ergebnis auf einem anderen Sheet - von Udo am 21.02.2005 12:49:47

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

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