Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
192to196
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
192to196
192to196
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Bialog Box

Bialog Box
20.12.2002 13:34:59
moerkens
Hallo Forum,

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)


1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
keine chance? nur umweg listbox
20.12.2002 17:28:05
andre
hallo moerkens,
meines wissens keine chance. von der logik her müsste es mit beim filter stehen - satt des zweiten *.xls, aber das geht hier nicht.
es gäbe höchstens den umweg über einen eigenen dialog - wo du in eine listbox die entsprechenden namen einliest und dann hier auswählst (siehe auch recherche)
gruss andre

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige