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

Mehrere Dateien auf Vorhandensein prüfen

Mehrere Dateien auf Vorhandensein prüfen
14.06.2004 13:22:26
franz
Hallo,
habe folgendes Problem recherchiert, aber nichts gefunden.
Folgendes: Wie kann ich über Makro folgendes veranlassen:
Suche einem Verzeichnis nach 7 verschiedenen Excel-Datein auf
Vorhandensein (z.B. Test1.xls, Text2.xls, Test3.xls, usw.).
Wenn eine oder mehere nicht vorhanden sind, schreibe eine
Msgbox über die fehlenden Dateien.
Gruss
franz

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

Betreff
Datum
Anwender
Anzeige
AW: Mehrere Dateien auf Vorhandensein prüfen
Ulf
if dir("C:\deinOrdner\test1.xls")= "" then msgbox "Test1.xls fehlt!"
usw.
Ulf
AW: Mehrere Dateien auf Vorhandensein prüfen
Veit
Moin, Moin,
ich habe es jetzt zwar nicht getestet...

Sub Makro8()
Dim Test1 As Integer, Test2 As Integer, Test3 As Integer, Test4 As Integer, Test5 As Integer, Test6 As Integer, Test7 As Integer
Pfad = "C:\test\"
Dateiname = Dir$(Pfad)
If Dateiname = "" Then
MsgBox "garnix vorhanden"
Exit Sub
End If
Test1 = 0
Test2 = 0
Test3 = 0
Test4 = 0
Test5 = 0
Test6 = 0
Test7 = 0
Do While Dateiname <> ""
Select Case Dateiname
Case "Test1.xls"
Test1 = 1
Case "Test2.xls"
Test2 = 1
Case "Test3.xls"
Test3 = 1
Case "Test4.xls"
Test4 = 1
Case "Test5.xls"
Test5 = 1
Case "Test6.xls"
Test6 = 1
Case "Test7.xls"
Test7 = 1
Case Else
End Select
Dateiname = Dir$()
Loop
nicht_gefunden = ""
If Test1 <> 1 Then nicht_gefunden = nicht_gefunden & "Test1.xls" & Chr(13)
If Test2 <> 1 Then nicht_gefunden = nicht_gefunden & "Test2.xls" & Chr(13)
If Test3 <> 1 Then nicht_gefunden = nicht_gefunden & "Test3.xls" & Chr(13)
If Test4 <> 1 Then nicht_gefunden = nicht_gefunden & "Test4.xls" & Chr(13)
If Test5 <> 1 Then nicht_gefunden = nicht_gefunden & "Test5.xls" & Chr(13)
If Test6 <> 1 Then nicht_gefunden = nicht_gefunden & "Test6.xls" & Chr(13)
If Test7 <> 1 Then nicht_gefunden = nicht_gefunden & "Test7.xls" & Chr(13)
MsgBox "Folgende Dateien fehlen:" & Chr(13) & nicht_gefunden
If nicht_gefunden <> "" Then Exit Sub
'ansonsten gehts weiter
End Sub

Gruß
Ein Veit
Anzeige
AW: Mehrere Dateien auf Vorhandensein prüfen
Uduuh
Hallo,
etwa so:

Sub testen()
Dim test, arrFile, strFile As String, F As Integer
arrFile = Array("Test1.xls", "Test2.xls", "Test3.xls")
For F = 0 To UBound(arrFile)
test = Dir("n:\test\" & arrFile(F))
If test = "" Then
If strFile = "" Then
strFile = arrFile(F)
Else
strFile = strFile & ", " & arrFile(F)
End If
End If
Next F
If strFile <> "" Then
MsgBox "Es fehlen: " & strFile
Else
MsgBox "Alle Dateien da."
End If
End Sub

Gruß aus'm Pott
Udo
AW: Mehrere Dateien auf Vorhandensein prüfen
14.06.2004 15:01:02
franz
Vielen herzlichen Dank !
Werde alle durchtesten.
Danke
franz
Anzeige

98 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige