Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1320to1324
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
Inhaltsverzeichnis

Variable MsgBox bzgl. gefundener Dateien

Variable MsgBox bzgl. gefundener Dateien
22.07.2013 10:22:25
Markus
Guten Morgen zusammen,
ich habe ein Makro geschrieben, was in einem definierten Pfad nach bestimmten Dateien sucht. Als Ergbnis soll eine Msgbox erscheinen, die angibt welche Dateien nicht gefunden worden sind bzw. fehlen.
Die unterschiedlichen Msgbox Meldungen möchte ich allerdings nicht alle von Hand erstellen. Bei 5 Dateien kämen nach Fakultät 120 mögliche Msgbox Meldungen zustande. das würde ich gerne umgehen wollen. Vielleicht hat da jemand einen Tipp.
Anbei mein Code mit der ersten Msgbox, wenn alle Dateien fehlen, bzw. vorhadnen sind.
Sub Test
Dim Datei As String
Dim Datei2 As String
Dim Datei3 As String
Dim Datei4 As String
Dim Datei5 As String
Dim Pfad As String
Dim Suchen As String
Dim Suchen2 As String
Dim Suchen3 As String
Dim Suchen4 As String
Dim Suchen5 As String
Datei = "Test" 'Dateinamen nach dem gesucht worden soll
Datei2 = "Test2"
Datei3 = "Test3"
Datei4 = "Test4"
Datei5 = "Test5"
Pfad = "C:\Test"   'Dateipfad in dem gesucht werden soll
Suchen = Pfad & Datei & ".xls"  'Zusammenführung von Pfad mit Dateinamen und Dateiendung
Suchen2 = Pfad & Datei2 & ".xls"
Suchen3 = Pfad & Datei3 & ".xls"
Suchen4 = Pfad & Datei4 & ".xls"
Suchen5 = Pfad & Datei5 & ".xls"
If Dir(Suchen) = "" And Dir(Suchen2) = "" And Dir(Suchen3) = "" And Dir(Suchen4) = "" And Dir(  _
_
Suchen5) = "" Then   'Datei suchen und öffnen wenn im Pfad vorhanden
MsgBox "Test-Reports:" & vbCrLf & "" & vbCrLf & _
"Test" & vbCrLf & _
"Test2" & vbCrLf & _
"Test3" & vbCrLf & _
"Test4" & vbCrLf & _
"Test5" & vbCrLf & _
"" & vbCrLf & "are missing." & vbCrLf & "" & vbCrLf & "Please generate the reports."
Else
MsgBox " All Reports found"
End If
End Sub

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

Betreff
Datum
Anwender
Anzeige
AW: Variable MsgBox bzgl. gefundener Dateien
22.07.2013 10:46:43
Rudi
Hallo,
Sub Test()
Dim Datei(1 To 5) As String
Dim Suchen(1 To 5) As String
Dim Pfad As String
Dim i As Integer, strMissing As String
Datei(1) = "Test1" 'Dateinamen nach dem gesucht worden soll
Datei(2) = "Test2"
Datei(3) = "Test3"
Datei(4) = "Test4"
Datei(5) = "Test5"
Pfad = "C:\Test\"   'Dateipfad in dem gesucht werden soll
For i = 1 To 5
Suchen(i) = Pfad & Datei(i) & ".xls"  'Zusammenführung von Pfad mit Dateinamen und  _
Dateiendung
Next
For i = 1 To 5
If Dir(Suchen(i)) = "" Then
strMissing = strMissing & Datei(i) & vbLf
End If
Next
strMissing = Left(strMissing, Len(strMissing) - 1)
If Len(strMissing) Then
MsgBox "Test-Reports:" & vbCrLf & "" & vbCrLf & _
strMissing & vbCrLf & vbCrLf & "are missing." _
& vbCrLf & "" & vbCrLf & "Please generate the reports."
Else
MsgBox " All Reports found"
End If
End Sub

Gruß
Rudi

Anzeige
AW: Variable MsgBox bzgl. gefundener Dateien
23.07.2013 07:12:46
Markus
Guten Morgen Rudi,
hatte gestern leider keine Zeit mehr ins Forum zu schauen und konnte deinen Code daher erst heute morgen ausprobieren.
Vielen Dank dafür, er tut genau das was er soll.
Einen Schönen Tag noch.
Gruß Markus

AW: Variable MsgBox bzgl. gefundener Dateien
23.07.2013 15:07:22
Markus
Hallo Rudi,
ich habe in der Zeile:
strMissing = Left(strMissing, Len(strMissing) - 1)
das -1 herausgenommen, da es sonst immer zu einer Fehlermeldung kommen würde, wenn keine Datei fehlt.
Dein Code läuft aber ansonsten.
Gruß Markus

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige