Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.09.2025 10:29:46
Wert aus einer Zelle bei jeder Eingabe in neue Zelle
26.09.2025 08:51:00
Teilinhalt einer Zelle vergleichen
25.09.2025 23:04:12
Einen von drei möglichen Einträgen in einer Zeile suchen
25.09.2025 19:59:48
Lebenserleichternde Datei, im Bezug auf die Essensauswahl
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
164to168
164to168
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Vergleich Dateiliste

Forumthread: 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

Anzeige

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)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige