Dateien aus Ordner und Unterordner auflisten ?

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Selma,
ersetze diesen Code.
'Aufruf mit dem folgenden Makro
Sub Suchen()
Dim Laufwerk$, Dateien$
Dim strQ As String

strQ = Application.InputBox("Wie sollen die Dateien aufgelistet werden?" & vbLf & _
    "1 = Ab Zeile 2 (neue Liste)" & vbLf & _
    "2 = Am Listenende fortsetzen" & vbLf & _
    "3 = Ab aktiver Zelle", "Dateisuche", 1, Type:=1)

If strQ = "Falsch" Then Exit Sub
'Erste Zeile, in der eine Eintragung erfolgt
Select Case strQ
    Case "1"
        z = 2
    Case "2"
        z = Cells(Rows.Count, 1).End(xlUp).Row + 1
    Case Else
        z = ActiveCell.Row + 1
End Select
'Alte Eintragungen löschen
Range(Cells(z, 1), Cells(Rows.Count, 5)).ClearContents
'Den Variablen Laufwerk und Dateien kann auch ein Wert direkt zugewiesen werden.
Laufwerk = GetDirectory("Bitte einen Ordner wählen") 'Ersatz: ... = C:\Eigene Dateien"
If Laufwerk = "" Then Exit Sub
'Ersatz: Dateien = "*.*"
Dateien = InputBox("Nach welchen Dateien soll in" & Chr(10) & " " & Laufwerk & Chr(10) & "gesucht werden (z. B. *.xls)?", "Dateityp", "*.*")
If Dateien = "" Then Exit Sub
Dateisuche Laufwerk, Dateien
End Sub

Gruß Sepp

HI
du musst das Maro SUCHEN so ergänzen, bzw verändern (Orignial-Code, der nicht mehr benötigt wird, ist auskommentiert) geändert wurde nur den Anfang, bis zur Linie, danach ist der Code unverändert.
'Aufruf mit dem folgenden Makro


Sub Suchen()
Dim Laufwerk$, Dateien$
Dim A As String
A = InputBox("1 löschen / 2 am Ende weitermachen / 3 ab aktiver Zelle weitermachen")
Select Case A
Case "1"
z = 2
Range("A2:E65536").ClearContents
Case "2"
z = Cells(65536, 1).End(xlUp).Row + 1
Case "3"
z = ActiveCell.Row
Range(Cells(z, 1), Cells(655536, 5)).ClearContents
Case Else
MsgBox "Quatsch eingegeben"
Exit Sub
End Select
'Erste Zeile, in der eine Eintragung erfolgt
'Z=2
'Alte Eintragungen löschen
'[a2:e50000] = ""
'Den Variablen Laufwerk und Dateien kann auch ein Wert direkt zugewiesen werden.
Laufwerk = GetDirectory("Bitte einen Ordner wählen")    'Ersatz: ... = C:\Eigene Dateien"
If Laufwerk = "" Then Exit Sub
'Ersatz: Dateien = "*.*"
Dateien = InputBox("Nach welchen Dateien soll in" & Chr(10) & "      " & Laufwerk & Chr(10)  _
& "gesucht werden (z. B. *.xls)?", "Dateityp", "*.*")
If Dateien = "" Then Exit Sub
Dateisuche Laufwerk, Dateien
End Sub

Gruß, Daniel

Beliebteste Forumthreads (12 Monate)

Dateien aus Ordner und Unterordner auflisten ?

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

2 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Dateien aus Ordner und Unterordner auflisten ?

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

2 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread