Re: Kniffliges Problem betreffend Suchfunktion?

Kniffliges Problem betreffend Suchfunktion? (15 Beiträge, 321 Mal gelesen)

Du bist nicht angemeldet. [ Login/Registrieren ]

Hallo!

Folgendes Problem:

Ich habe in einem Verzeichnis mehrere Excel-Dateien, welche aus mehreren Tabellenblättern bestehen.

Gibt es eine Möglichkeit, mit einer externen Suchroutine (Excel, Word, Batchdatei,...?) dieses Verzeichnis nach dem eingegeben Suchbegriff durchsuchen zu lassen, und alle Fundstellen in einer neuen Tabelle anzuzeigen??? Durchsucht sollen zwar alle vorhandenen Dateien werden, jedoch pro Datei nur ein immer gleich benanntest Tabellenblatt mit den Spalten A-CP.

Also wenn ich in die Suchroutine zB "Hannes" eingeben, listet das Programm alle Fundstellen im Suchverzeichnis in etwa so auf:

Es gibt insgesamt "xx" Fundstellen des Suchbegriffes "Suchbegriff".

1) Dateiname 1
2) Dateiname 1
3) Dateiname 3
4) Dateiname 6
...

Da diese Suchfunktion ua von noch unerfahreren PC-Nutzern benötigt wird, ersuche ich nicht um Lösungsvorschläge ala "Windows-Suchfunktion"

Danke,

SunnyHill.

Re: Kniffliges Problem betreffend Suchfunktion? (mike222 am 28.09.2006, 17:53:42)

Re(2): Kniffliges Problem betreffend Suchfunktion? (SunnyHill am 28.09.2006, 19:36:38)

Vielleicht hilft Dir folgendes VB-Skript. Die Excel-Dateien aus dem Verzeichnis C:\test werden im Hintergrund und damit unsichtbar geöffnet und durchsucht. Am Schluss wird das Ergebnis sichtbar gemacht. Je nach Menge und Grösse der Dateien kann das natürlich manchmal etwas dauern.

'Parameter zum anpassen
ExcelDateienPfad = "C:\Test"
SuchBlatt  = "Tabelle1"
SuchSpalten = "A:CP"

SuchBegriff = InputBox("Suchbegriff","Eingabe")

Set Fso = CreateObject("Scripting.FileSystemObject")
Set OXl = CreateObject("Excel.Application")
Set Wb = OXl.Workbooks.Add

Found = 0
For Each F In Fso.GetFolder(ExcelDateienPfad).Files
  If Right(UCase(F.Name),4) = ".XLS" Then
    Set WbHelp = OXl.Workbooks.Open(F.Path)
    Set Ce = WbHelp.Sheets(SuchBlatt).Range(SuchSpalten).Find(SuchBegriff)
    If Not Ce Is Nothing Then
      Found = Found + 1
      Wb.Sheets(1).Range("A" & (Found+2)) = Found & ") " & F.Path & " in Zelle " & Ce.Address
    End If
    Wb.Sheets(1).Range("A1") = "Es gibt insgesamt " & Found & " Fundstellen des Suchbegriffes <" & SuchBegriff & ">"
    WbHelp.Close
  End If
Next
OXl.Visible = True

Btw: Unerfahrenen Benutzern wöre imho aber trotzdem wesentlich mehr geholfen, wenn sie die grundlegenden Windows-Boardmittel (in diesem Fall die ganz normale Windows-Suche) erlernen würden. Ist ja nicht soo schwer und man kann dieses Wissen dann natürlich auch vielen anderen Situationen anwenden.

Re(2): Kniffliges Problem betreffend Suchfunktion? (SunnyHill am 30.09.2006, 12:29:00)

Re(3): Kniffliges Problem betreffend Suchfunktion? (Thing am 05.10.2006, 23:39:24)

Re(2): Kniffliges Problem betreffend Suchfunktion? (SunnyHill am 05.10.2006, 08:00:46)

Re(3): Kniffliges Problem betreffend Suchfunktion? (Thing am 05.10.2006, 23:46:04)

Re(4): Kniffliges Problem betreffend Suchfunktion? (SunnyHill am 06.10.2006, 07:47:16)

Re(5): Kniffliges Problem betreffend Suchfunktion? (Thing am 07.10.2006, 10:10:45)

Re: Kniffliges Problem betreffend Suchfunktion? (Schokokipfal am 29.09.2006, 06:40:59)

Re(2): Kniffliges Problem betreffend Suchfunktion? (RevX am 30.09.2006, 22:00:42)

Dieses Forum ist eine frei zugängliche Diskussionsplattform.
Der Betreiber übernimmt keine Verantwortung für den Inhalt der Beiträge und behält sich das Recht vor, Beiträge mit rechtswidrigem oder anstößigem Inhalt zu löschen.
Datenschutzerklärung