Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
164to168
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
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Vergleich Dateiliste

Vergleich Dateiliste
07.10.2002 18:42:16
Markus
Hallo VBAler,

vielleicht könnt Ihr mir gedanklich auf die Sprünge helfen.

Ich möchte eine Liste mit Dateinamen mit den auf einem Laufwerk vorhandenen Dateien vergleichen, d.h. fehlende bzw. überzählige Dateien ermitteln.

Sollte ich von der Vorgehensweise her zuerst die Dateiliste in ein Arbeitsblatt importieren und dann zellenweise vergleichen oder kann ich ohne diesen Umweg mit Dir() arbeiten?

Vielen Dank für Euren Rat,
Gruß, Markus

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Vergleich Dateiliste
07.10.2002 18:56:40
geri
anbei Ansatz mit VBA

kopier Code in VBA Modul --> Ctrl+F11 einfügen Modul
Code hinein kopieren und testen evtl. Quelle anpassen s. Code

Sub Dateiliste_Öffnen()

'lösche Bereich vor einfügen

Range("A1:a200").Select
Selection.Copy
Application.CutCopyMode = False
Selection.ClearContents


Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
Dim Aktuell_Datei As String
Dim Aktuell_Register As String

' Liste erstellen
Aktuell_Datei = ActiveWorkbook.Name
Aktuell_Register = ActiveSheet.Name
' von hier werden die Daten geholt
strVerzeichnis = "c:\DATEN\"
'StrTyp = "*.xls" oder was du möchtest in nächster Zeile SUFFIX-Wahl
StrTyp = "*.*"
Dateiname = Dir(strVerzeichnis & StrTyp)
I = 3
Do While Dateiname <> ""
'Cells(I, 1).Value = strVerzeichnis & Dateiname
Cells(I, 1).Value = Dateiname
I = I + 1
Dateiname = Dir
Loop

End Sub

gruss geri
Quelle Herbers Forum

Anzeige
Danke
07.10.2002 21:32:04
Markus
Danke Geri,

auf diese Art habe ich die gewünschte Dateiliste.

Vielen Dank für den Tipp.

Gruß, Markus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige