Re(4): Kniffliges Problem betreffend Suchfunktion?

Kniffliges Problem betreffend Suchfunktion? (15 Beiträge, 308 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)

Re: Kniffliges Problem betreffend Suchfunktion? (Thing am 29.09.2006, 00:24:44)

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)

Hallo und vielen Dank für deine wirklich tolle Hilfe!

Gestern habe ich während der Bürostunden

mich nochmals an den Code gemacht, und bin aufgrund deines Erstvorschlages und meiner Modifizierung auf folgendes Ergebnis gekommen:

Sub Dateien_durchsuchen()
Dim Ce As Range

ExcelDateienPfad = "P:\Statistik-Kartei"
SuchBlatt = "Datensätze"
SuchSpalten = "A:F"

SuchBegriff = InputBox("Bitte Suchbegriff eingeben:", "Hallo Kollege " & _
    Application.UserName & "! Wieder mal auf der Suche?")
If SuchBegriff = "" Then Exit Sub

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)

    With WbHelp.Sheets(SuchBlatt).Range(SuchSpalten)
     Set Ce = .Find(SuchBegriff)
     If Ce Is Nothing Then
      Beep
      MsgBox "Leider Kollege " & Application.UserName & "...." + vbCr + vbCr + "Der Suchbegriff <" + sBegriff + "> konnte in keiner gespeicherten Datei gefunden werden!", vbCritical
      Exit Sub
     Else
      FirstHit = Ce.Address
      Do
       Found = Found + 1
       Set Ce = .FindNext(Ce)
       Wb.Sheets(1).Range("A" & (Found + 3)) = Found & ".) " & F & " in Zelle " & Ce.Address
       Wb.Sheets(1).Range("A1") = "Es gibt insgesamt " & Found & " Fundstellen des Suchbegriffes <" & SuchBegriff & ">"
       Wb.Sheets(1).Range("A3") = "Fundstellen:"
      Loop While Not Ce Is Nothing And Ce.Address <> FirstHit
     End If
    End With
   WbHelp.Close
  End If
Next
OXl.Visible = True

End Sub

Grundsätzlich hat dies dann auch so funktioniert wie ich es mir vorgestellt habe.

Jedoch richtig abgerundet wurde das Problem erst mit deinem zweiten geposteten Code und dem "ReadOnly"-Hinweis und dem False-Zusatz nach dem .Close Ereignis.

Was haltest du von meinem Ergebnis?
Ist zwar sicherlich nicht so schön gelöst wie dein Vorschlag, aber immerhin

Ich möchte mich trotzdem nochmals recht herzlich bei dir bedanken!!!!

lG aus Kärnten

SunnyHill.

06.10.2006, 10:02 Uhr - Editiert von SunnyHill, alte Version: hier

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