Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Ergebnis auf einem anderen Sheet"
Teilergebnisse in Zahlenreihe eintragen und löschen Fußballergebnisse in Tabelle eintragen und zu HTML konvertieren
Über InputBoxes Zeile und Spalte auswählen und Ergebnis nennen Teilergebnisse einer Serie von Tabellen in anderes Blatt kopieren
Filtern und Ergebnisse in Tabellen übertragen Msg- und InputBoxes kombinieren und nach Ergebnis verzweigen
Werte vergleichen und Ergebnis in Tabelle eintragen Werte in Monats/Namen-Ergebnismatrix übernehmen
Ergebnisse in Fussballtabelle eintragen und diese aktualisieren Fußballergebnisse eingeben und Tabelle sortieren