wie kann ich in einer, über ein Makro, geöffneten Dialog- Box die angezeigten Dateien definieren? Es sollen nur Dateien der Struktur V_Bom_V0*_All.xls angezeigt werden! Das Sternchen steht Dabei für einen Zähler 0 bis 9. Als Anlage das existierende Makro.
Danke und frohe Weihnachten Volker
Sub DialogDateiOeffnenMehrereDateien()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
strPfad = ActiveWorkbook.Path
ChDrive Left$(ActiveWorkbook.Path, 1)
ChDir ActiveWorkbook.Path
xlDateiName = Application.GetOpenFilename( _
FileFilter:="Microsoft Excel-Dateien (*.xls), *.xls", _
Title:="Eine oder mehrere Datei(en) zum Öffnen auswählen", _
MultiSelect:=True)
If TypeName(xlDateiName) = "Boolean" Then Exit Sub
For i = LBound(xlDateiName) To UBound(xlDateiName)
msg = msg & i & ". Datei: " & xlDateiName(i) & vbCrLf
Workbooks.Open xlDateiName(i)