Das Archiv des Excel-Forums

Geöffnete Dateien??

Bild

Betrifft: Geöffnete Dateien??
von: Ralf

Geschrieben am: 27.09.2003 13:13:12

Hallo,
ich möchte gerne alle geöffneten Workbooks mit 15 im Dateinamen in einer Tabellenblatt aufgelistet bekommen.
Vielen Dank im voraus
Ralf
Bild


Betrifft: AW: Geöffnete Dateien??
von: Nepumuk
Geschrieben am: 27.09.2003 13:45:02

Hallo Ralf,
so geht's:

Option Explicit
Public Sub alle_mit_15()
Dim Mappe As Workbook, zeile As Integer
For Each Mappe In Workbooks
If InStr(1, Mappe.Name, "15") Then
zeile = zeile + 1
Cells(zeile, 1) = Mappe.Name
End If
Next
End Sub


Code eingefügt mit: Excel Code Jeanie

Gruß
Nepumuk


Bild


Betrifft: AW: Geöffnete Dateien?? Korrektur
von: Nepumuk
Geschrieben am: 27.09.2003 15:20:19

Hallo Ralf,
habe gerade einen Fehler von mit entdeckt. Die Zeile müsste so lauten:

If InStr(1, Mappe.Name, "15")<>0 Then

Gruß
Nepumuk


Bild


Betrifft: Danke o.T.
von: Ralf
Geschrieben am: 28.09.2003 12:03:33

o.T.


 Bild

Excel-Beispiele zum Thema " Geöffnete Dateien??"

Alle Dateien im Verzeichnis öffnen download Dateien listen download
400 leere Textdateien anlegen download XL-Dateien in UserForm listen download
XL5/7-Dateien nach XL8 konvertieren download Dateien aus Listbox auslesen und öffnen download
Excel-Dateien eines Ordners listen download Alle Dateien ab einem bestimmten Datum listen download
Alle Dateien eines Verzeichnisses drucken download Textdateien verbinden download
Serie von Dateien in das XL5/7-Format konvertieren download Verzeichnisbaum aufrufen und Dateien in ListBox auflisten download
Dateien einer Ordnerliste in einer Tabelle zusammenstellen download Daten aus allen Dateien eines Verzeichnisses zusammenführen download
Hyperlinks zu allen Excel-Dateien eines Verzeichnisses erstellen download Dateien in einem Verzeichnis und Unterverzeichnissen suchen download
XL-Dateien aus Haupt- und Unterverzeichnissen einlesen download Die Eigenschaft "Stichwort" in allen Dateien eines Ordners ändern download
Textdateien vergleichen und Unterschiede dokumentieren download Löschen von Dateien beim Schließen einer Arbeitsmappe download
Grafikdateien suchen download Erste Blätter aus allen Dateien eines Verzeichnisses sammeln download
Von allen Arbeitsblättern der Mappe HTML-Dateien anlegen download Textdateien auslesen und in Werte in Zellen eintragen download
Werte nach Gruppen aufteilen und in gesonderten Dateien speichern download Fragen aus Textdateien in UserForm-Label einlesen download
Text in Textdateien suchen und Fundzeilen in Tabelle ausgeben download Alle Dateien löschen, die älter als 30 Tage sind download
Dateien mit Angabe des Dateidatums mit Hyperlink listen download Dateien listen und gekennzeichnete öffnen download
UserForm-TextBoxes-Texte in Textdateien speichern download Tabellenblattinhalte in getrennten Textdateien speichern download
Dateien listen und Blätter in neue Arbeitsmappe kopieren download Bei Doppelklick Textdateien in Editor öffnen download
Dateiliste mit allen xl-Dateien und Hyperlinks erstellen download Aufruf von Textdateien protokollieren download
Textdateien mit einer Zeile in Tabelle einlesen download Alle Textdateien eines Verzeichnisses importieren download
Dateien öffnen, Verknüpfungen aktualisieren, speichern, schießen download Dateien suchen download
Dateien mit bestimmtem Inhalt suchen download