Das Archiv des Excel-Forums

Datei suchen

Bild

Betrifft: Datei suchen
von: Klaus Sawitzky

Geschrieben am: 15.10.2003 14:24:16

Hallo,
Ich habe einen Ordner "Dateien" erstellt.
In diesen Ordner sind .xls Dateien abgelegt. Fortlaufend Nummeriert (0001.xls, 0002.xls, 0003.xls usw.)

Nun möchte ich in einer Exceltabelle z.B. in Zelle A1 0001 eingeben und Excel soll die Datei 0001.xls im Ordner "Dateien" finden, eine Meldung Ausgeben z.B."habe Datei gefunden".
Dann möchte ich den OK Button betätigen und und es soll ein Macro ausgeführt werden.

Geht denn so etwas?

Daaaanke Klaus
Bild


Betrifft: AW: Datei suchen
von: ANdreas
Geschrieben am: 15.10.2003 15:29:39

Hallo Klaus,

folgenden Code zu dem Klassenmodul des entsprechenden Tabellenblatts (rechte Maustaste auf das Blattregister -> Code anzeigen)


Private Sub Worksheet_Change(ByVal Target As Range)
Const Pfad As String = "C:\Temp"
If Target.Column = 1 And Target.Value <> "" Then 'Bsp: Nur bei Eingaben in Spalte A
On Error GoTo ErrorHandler
With Application.FileSearch
.LookIn = Pfad
.SearchSubFolders = False
.Filename = Target.Value & ".xls"
.MatchTextExactly = True
If .Execute() > 0 Then
MsgBox .FoundFiles(1) & " gefunden...", , "Bestätigung"
Call MakroBla 'Hier Dein Makro
Else
MsgBox Target.Value & ".xls nicht gefunden."
End If
End With
On Error GoTo 0
End If
Exit Sub
ErrorHandler:
MsgBox "Bei der Suche nach " & Target.Value & " trat ein Fehler auf.", , Target.Address
End Sub


Im Beispiel werden Eingaben in Spalte geprüft. Wenn Du 0001 eingibst, sollte Spalte A als Text formatiert sein. Nur noch den Pfad und Makronamen (das Maksop welches bei Dateifund ausgeführt werden soll) anpassen.

Hoffe das hilft weiter,
Andreas


 Bild

Excel-Beispiele zum Thema " Datei suchen"

Zellinhalt suchen und Zelle auswählen download Suchbegriff über mehrere Tabellenblätter suchen. download
Suchen und weitersuchen download Zahl +/- 1 suchen download
Ein Zeichen in einer Formel suchen download Datum suchen und Wert eintragen download
Wert in Tabelle suchen und in UserForm ausgeben download Letzte Zelle mit Inhalt suchen download
Textdatei nach Begriff durchsuchen und Fundzeile importieren download Wert in Array suchen, ohne jedes Datenfeld abzufragen download
Wert in Tabellenblatt suchen und alle Fundwerte in zweite Tabelle download Begriffe in ausgeblendeter Spalte suchen und Fundzeile markieren download
Wert aus UserForm-TextBox in Tabelle suchen und in ListBox listen download Suchbegriff aus einer UserForm-Textbox in Tabelle suchen und melden download
Suchwert in zweiter Tabelle suchen und Fundzeile eintragen download Suchen von Nachnamen in Zeichenfolgen download
Dateien in einem Verzeichnis und Unterverzeichnissen suchen download Datum suchen und Adresse der Fundzelle ausgeben download
Begriffe in zweiter Tabelle suchen und Werte anfügen download Text aus UserForm-TextBox in Tabelle suchen download
Zweidimensionale Matrix mit der SVERWEIS-Funktion durchsuchen download Suchbegriff in vorhergehenden Tabellen suchen download
Werte aus UserForm-ComboBox suchen und Fundstelle kopieren download Neueste Textdatei eines Verzeichnisses suchen und umbenennen download
Artikelnummern suchen und jeweils letzte Fundstelle listen download Wörter eines Satzes in Indizliste suchen download
Wert aus UserForm-TextBox suchen und Fundstelle kopieren download Zellwert nach Doppelklick in Tabelle suchen download
Suchen in 2. Tabelle und Ersetzen der Quelldaten download Wert in Tabelle 2 suchen und Fundstellen übertragen download
Suchbegriff in Tabelle suchen und Fundzeilen auswählen download Suchbegriffe aus Tabelle im Excel-WebArchiv suchen download
Wert aus ComboBox in TextBox, dann in Tabelle suchen download Artikelnummer über InputBox suchen und eintragen download
Anwendung auf Fesplatte suchen download Tabelle nach ComboBox-Auswahl durchsuchen download
Werte suchen, eintragen und löschen download Zeile 1 nach Wert der aktiven Zelle durchsuchen download
Suchbegriff in Tabelle suchen und Fundzeilenindex zurückgeben download Wert in zweiter Tabelle suchen und als Kommentar ausgeben download
Wert in externer Mappe suchen und mit Format übernehmen. download Artikelnummern nach Kriterien suchen und Datensätze kopieren download
Wert in ComboBox einlesen, suchen, editieren, ausgeben download Grafikdateien suchen download
Suchen der Nachbarzelle der Zelle mit dem Maximalwert download Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download
Begriff suchen und Fundzeilen in anderes Blatt kopieren download Zahl suchen und an den Fundstellen Zeile einfügen download
Name und Vorname suchen, Werte und Fundstellen importieren download Begriff in der ersten Spalte einer ListBox suchen download