Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
312to316
312to316
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Geöffnete Dateien??

Forumthread: Geöffnete Dateien??

Geöffnete Dateien??
27.09.2003 13:13:12
Ralf
Hallo,
ich möchte gerne alle geöffneten Workbooks mit 15 im Dateinamen in einer Tabellenblatt aufgelistet bekommen.
Vielen Dank im voraus
Ralf
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Geöffnete Dateien??
27.09.2003 13:45:02
Nepumuk
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
Anzeige
AW: Geöffnete Dateien?? Korrektur
27.09.2003 15:20:19
Nepumuk
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
Danke o.T.
28.09.2003 12:03:33
Ralf
o.T.
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige