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