Hallo Leute.
Ich stehe gerade vor folgendem Problem:
Bei uns in der Firma müssen unsere Registratoren oftmals bestimmte Mitgliedsnummern von Unternehmen suchen. Diese Mitgliedsnummern stehen in verschiedenen Excel-Dateien, die in verschiedenen Ordnern auf einem Laufwerk gespeichert sind. Diese Datensätze umfassen jeweils mehrere tausend Einträge. Zum Suchen soll die Windows-Suchfunktion verwendet werden, da ja mehrere Ordner auf einmal durchsucht werden sollen.
Wenn ich die Windows-Suchfunktion starte und eine Mitgliedsnummer zum Suchen eingebe (z.B. 22000003), kann keine Datei gefunden werden, obwohl diese Nummer auf jeden Fall vorhanden ist. Ich hab auch schon probiert, die Zahlen als Text zu formatieren, aber ohne Erfolg. Ich hab zwar auch gelesen, dass man vor die Zahl einen Apostroph ( ’ ) setzen soll, damit die Zahl gefunden wird. Das klappt auch wunderbar, aber bei zigtausend Mitgliedsnummern jeweils einen Apostroph davor zu setzen, kann man wirklich vergessen.
Hat jemand eine Idee, wie ich in der Suchfunktion von Windows zum gewünschten Ergebnis komme?
Vielen herzlichen Dank im Voraus für Eure Hilfe.
LG
Uwe
falsches Brett?
Hat jemand eine Idee, wie ich in der Suchfunktion von Windows
zum gewünschten Ergebnis komme?
Windows?
Davon abgesehen glaube ich nicht, dass die Suche von Microsoft da zufriedenstellend arbeitet.
Vielleicht ist es nur eine Sache der Bedienung.
Besser fährst Du jedenfalls, wenn Du ein Tool für die Desktop-Suche installierst, das das durchsuchen von Excel-Dateien beherrscht.
Die alternative wäre eine richtige Datenbank, die man natürlich auch pflegen muss…
Je nach Bedarf wäre das jedoch die bessere Lösung.
Grüße
Munich
Hallo Munich.
Ob ich im falschen Brett bin, weiß ich nicht, da es sich ja um Excel handelt.
Ein Tool für die Desktop-Suche kann ich nicht installieren, weil unsere Rechner im Netzwerk hängen und wir selbst nichts installieren können. Das mit der datenbank geht auch nicht, weil so viel Leute Zugriff auf die Dateien haben, dass man schnell den Überblick verliert.
LG
Uwe
Hi Uwe
Vergiss rasch alle von MS angebotenen Lösungen (bis und mit Win XP)
Schau dir an:
„FileLocator pro“ zu 30 $ mit gratis-Testversion
http://www.mythicsoft.com/Page.aspx?type=filelocator…
„Agent Ransack“ freeware, vom gleichen Anbieter, abgemagerte Gratisversion von FileLocator pro.
Ich benutze nur noch den Ransack. Ich weiss nicht, ob es diese Programme auch in deutsch gibt.
Viel Erfolg wünscht
Erich
Hallo Erich.
Die Idee mit der Software ist ganz gut. Aber weil unsere Rechner im Netz hängen, können wir nichts installieren, weil wir keine Adminrechte haben. Wir müssen uns also mit „Bordmitteln“ behelfen.
LG
Uwe
Bei uns in der Firma müssen unsere Registratoren oftmals
bestimmte Mitgliedsnummern von Unternehmen suchen. Diese
Mitgliedsnummern stehen in verschiedenen Excel-Dateien, die in
verschiedenen Ordnern auf einem Laufwerk gespeichert sind.
Diese Datensätze umfassen jeweils mehrere tausend Einträge.
Hallo Uwe,
man könnte mit einem makro alle dateien durchlaufen und die Abostrophe setzen.
Probier mal den nachfolgenden Code aus
22000003
findet der Code wenn die Zelle als Standard formatiert ist.
Unten in der Statuszeile siehst du den Fortschritt.
Code ist nicht ausgiebig getestet, habe ich mir vor kuruzem auf die Schnelle zusammengenagelt, XL2000.
Gruß
Reinhard
'Alt+F11, Einfügen--Modul, Code reinkopieren, LookIn anpassen, Editor schliessen
'Aufrufen mit Extras--Makro--Makro...
Sub Such()
Dim Zei As Long, wks As Worksheet, erg As Range, Wort As String, fs As FileSearch
Dim i As Long, Blatt As Worksheet, Vorh As Boolean
Application.DisplayAlerts = False
Application.ScreenUpdating = False
On Error Resume Next
Worksheets.Add After:=Worksheets(Worksheets.Count)
Set wks = ActiveSheet
Wort = InputBox("Suchwort")
Set fs = Application.FileSearch
With fs
.LookIn = "C:\test"
.FileName = "\*.xls"
.SearchSubFolders = True
.Execute
For i = 1 To .FoundFiles.Count
Application.StatusBar = i & " / " & .FoundFiles.Count
If .FoundFiles(i) ThisWorkbook.Name And Right(.FoundFiles(i), 4) = ".xls" Then
Workbooks.Open FileName:=.FoundFiles(i), updatelinks:=0
Vorh = False
For Each Blatt In Worksheets
.Activate
Set erg = Cells.Find(What:=CStr(Wort))
If Not erg Is Nothing Then
Vorh = True
Exit For
End If
Next Blatt
If Vorh = True Then
Zei = Zei + 1
wks.Cells(Zei, 2) = .FoundFiles(i)
wks.Cells(Zei, 1) = erg.Address
ThisWorkbook.Save
End If
Workbooks(ActiveWorkbook.Name).Close SaveChanges:=False
End If
Next i
End With
Application.StatusBar = ""
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub
Hallo Reinhard.
Vielen Dank für die schnelle Antwort.
Leider kenn´ ich mich selbst überhaupt nicht mit Makros aus. Ich hab´s zwar probiert, es hat aber nicht geklappt, weil sich Excel aufgehängt hat. Vielleicht gibr es ja noch eine andere Lösung.
LG
Uwe
Leider kenn´ ich mich selbst überhaupt nicht mit Makros aus.
Ich hab´s zwar probiert, es hat aber nicht geklappt, weil sich
Excel aufgehängt hat. Vielleicht gibr es ja noch eine andere
Lösung.
Hallo Uwe,
welche Excelversion hast du?
Setze mal eine Zeile unter
.Execute
den Befehl
Msgbox .FoundFiles.Count
rein und drücke F5, was wird angezeigt?
Was bedeutet „aufgehängt“?
Kommt der Debugger mit einer Fehlermeldung, mit welcher, welche Codezeile ist gelb unterlegt?
Hole dir in Excel über Ansicht–Symbolleisten—Formular die Formularsymbolleiste und ziehe" eine Schaltfläche auf, weise ihr das makro zu, dann klicke auf die Schaltfläche, was wird in der Statuszeile unten links angezeigt?
Gruß
Reinhard