Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
260to264
260to264
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Dateinamen in Ordner vergleichen

Dateinamen in Ordner vergleichen
28.05.2003 10:21:10
christian
Hallo

ich habe eine Exceltabelle in der Plannamen stehen (gleich Dateinamen). Ich möchte nun in verschiedenen Ordnern überprüfen, welche Dateien sich in diesem Befinden und dann entsprechend beim vorhandensein in diesem Ordner soll in der Splate neben dem Dateinamen ein -X- eingetragen werden.
Wie kann ich einen Ordner ansteuen, so dass mit die Dateinamen mit den Namen in meiner Tabelle verglichen werden???

Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateinamen in Ordner vergleichen
28.05.2003 10:27:32
Nike

Hi,
mit dir mal ansteuern...
sub test()
'in A1 steht c:\verzeichnis\
Pfad=Range("A1")
if dir(Pfad & "Test.xls")<>"" then
msgbox "Datei vorhanden"
end if

End sub

Bye

Nike

Re: Dateinamen in Ordner vergleichen
28.05.2003 11:07:18
christian

Hi
habe es mal mit Deinem Vorschlag versucht. Mein Code läuft durch, aber ohne das gewünscht Ergebniss.
Vielleicht entdeckst Du ja etwas, was falsch im Code ist.

Sub Vergleich()
Dim LZ
Dim ws As Worksheet
Dim Datei
Dim i

Set ws = ActiveSheet


LZ = ws.Cells(Rows.Count, 2).End(xlUp).Row

'in A1 steht c:\verzeichnis\
Pfad = "p:\Ausschreibung\Planung\Pläne\Los Fenster" 'Range("A1").Value

For i = 10 To LZ Step 1
If Cells(i, 3).Value <> "" Then
Datei = Cells(i, 3).Value & ".plt"
If Datei = Dir(Pfad & Datei) Then
'Cells(i, 7).Interior.ColorIndex = 15
Cells(i, 7).Value = x
End If
End If
Next i

Set ws = Nothing
End Sub


Anzeige
Re: Dateinamen in Ordner vergleichen
28.05.2003 11:16:31
Nike

Hi,
es fehlt der abschließende \ im Pfad!

ich hab extra geschrieben:
'in A1 steht c:\verzeichnis\
und du hast in deinem Pfad
Pfad = "p:\Ausschreibung\Planung\Pläne\Los Fenster"
ohne "\"

Bye

Nike

Re: Dateinamen in Ordner vergleichen
28.05.2003 11:39:01
Christian

Jaja

die Schusselfehler.

Dank Dir

307 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige