Herbers Excel-Forum - das Archiv
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
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
| |