Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
696to700
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
696to700
696to700
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

geöffneten Mappen in Liste

geöffneten Mappen in Liste
21.11.2005 18:31:22
Frank
Moin, moin,
kann man in einem Tabellenblatt (Mappe 1) eine automatische Liste der geöffneten Ecxel-Tabellen erzeugen, so dass wenn Mappe 2 geöffnet wird, der Dateiname in Mappe 1 in eine Zelle geschrieben wird?
Danke

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: geöffneten Mappen in Liste
21.11.2005 19:27:38
Erich
Hallo Frank,
wieder eine Funktion dafür: Option Explicit Public Function ExtMappeNr(nr As Integer) If Application.Windows.Count < nr Then ExtMappeNr = "" Else ExtMappeNr = Application.Windows(nr).Caption End If End Function
Beispiel:
 
 E
2528582.xls
26Subs_vb.xls
27 
28 
Formeln der Tabelle
E25 : =ExtMappeNr(1)
E26 : =ExtMappeNr(2)
E27 : =ExtMappeNr(3)
E28 : =ExtMappeNr(4)
 
Diagramm - Grafik - Excel Tabellen einfach im Web darstellen    Excel Jeanie HTML  3.0    Download  
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: geöffneten Mappen in Liste
21.11.2005 20:06:15
Frank
Habe die Funktion in ein Modul eingefügt, aber wenn man eine weitere Mappe öffnet, wird die trotz F9 nicht angezeigt. Es funktionier aber, wenn ich die Datei mit deiner Funktion als letztes öffen...... Oder mache ich da noch einen Fehler?
Danke!!
Frank
AW: geöffneten Mappen in Liste
21.11.2005 20:42:02
Erich
Hallo Frank,
der Fehler lag bei mir. Man kann mit "Volatile" die Neuberechnung erzwingen.
Neue Version: Public Function ExtMappeNr(nr As Integer) Application.Volatile If nr < 1 Or Application.Windows.Count < nr Then ExtMappeNr = "" Else ExtMappeNr = Application.Windows(nr).Caption End If End Function
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: geöffneten Mappen in Liste
21.11.2005 20:55:54
Frank
Klappt supi!!!
Vielen Dank!!!
Frank

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige