Free Trial

Safari Books Online is a digital library providing on-demand subscription access to thousands of learning resources.


Share this Page URL
Help

Kapitel 18: So bieten Sie wichtige Funkt... > 18.8 So lauten die einzelnen Tools i... - Pg. 399

So lauten die einzelnen Tools im Add-In TopTools 18.8 So lauten die einzelnen Tools im Add-In TopTools Auf den nachfolgenden Seiten werden die einzelnen VBA-Lösungen nacheinander vorgestellt. 18.8.1 So listen Sie alle Arbeitsmappen aus einem Ordner auf Das Makro aus Listing 18.10 zeigt einen Auswahldialog an, in dem der Anwender einen beliebigen Ordner in einem beliebigen Laufwerk auswählen kann. Nach Bestätigung mit OK wird eine neue Mappe geöffnet, und die Dateinamen aller Map- pen in diesem Ordner werden in der ersten neuen Tabelle untereinander aufgelistet (abgebildetes Listing ist lauffähig in Excel 97­2003). Listing 18.10: Alle Arbeitsmappen aus einem Verzeichnis auflisten Sub AlleMappenEinesVerzeichnissesAufListen() Dim s As String Dim i As Integer On Error GoTo fehler s = OrdnerAuswahl If s = "" Then Exit Sub 17 18 19 20 21 22 23