Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
564to568
564to568
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

suchen von Pfaden

suchen von Pfaden
10.02.2005 15:11:34
Pfaden
Hallo!
Ich habe folgendes Problem und hoffe, dass ihr mir helfen könnt.
Ich habe zwei Programme, die miteinander verknüpft sind. Es werden Daten im- und exportiert. Bis jetzt waren diese Programme in einem Laufwerk abgespeichert, so dass ich einen festen Pfad angeben konnte (z.B. i:\test\Name.xls und i:\test\Name2.xls
Mittlerweile haben mehrere Personen auf die Programme zugriff. Der Pfad, bis auf die Laufwerksbezeichnung bleibt der gleiche. Die Laufwerksbezeichnung ist jedoch von Benutzer zu Benutzer unterschiedlich (1. User: i:\test\Name.xls und i:\test\Name2.xls ; 2. User: j:\test\Name.xls und j:\test\Name2.xls ; 3. User: k:\test\Name.xls und k:\test\Name2.xls ; u.s.w..
Inwiefern gibt es eine Möglichleit, bei Vorgabe des Pfades \test\Name.xls und \test\Name2.xls in allen Laufwerken nach diesem Pfad zu suchen und anschließend den Im- und Export durchzuführen (der Pfad ist bei jedem User nur 1x vorhanden).
Ich hoffe, ich könnt mir diesbezüglich helfen.
Vielen Dank.
Gruß
Uwe

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: suchen von Pfaden
Pfaden
Hallo
eine Möglichkeit wäre natürlich eine Handeingabe des Pfades.
könnte man mit application.getopenfilename machen
oder einfach eine Liste mit allen Laufwerksbuchstaben hinterlegen,
hab mal ein test makro geschrieben

Sub test()
Dim lauf(5) As String
'test laufwerksbuchstaben, müssen nicht auf allen rechnern sein
lauf(1) = "g"
lauf(2) = "r"
lauf(3) = "t"
lauf(4) = "h"
lauf(5) = "c"
pfad = ":\Test\"
dat = "Name.xls"
For i = 1 To 5
On Error GoTo marke
If Dir(lauf(i) & pfad & dat) <> "" Then MsgBox "Datei gefunden"
marke:
Next
End Sub

Anzeige
AW: suchen von Pfaden
10.02.2005 16:09:42
Pfaden
Hallo Alex,
vielen Dank für die rasche Antwort. Leider kann ich dir nicht so rasch eine Rückantwort geben, ob es in den Programmen funktioniert, da ich diese übers Wochenende erst anpassen kann.
Sobald ich es integriert habe, sag ich dir nochmal bescheid.
Trotzdem vielen Dank und ich lass was von mir hören.
Gruß
Uwe
AW: suchen von Pfaden
12.02.2005 23:53:13
Pfaden
Hallo Alex,
wollt nur bescheid geben, dass es geklappt hat.
Vielen Dank nochmal.
Gruß
Uwe

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige