Arbeitsmappen speichern Arbeitsmappen ab. Diese werden Ihnen über das Auflistungsobjekt Workbooks zur Verfügung gestellt. Speichern Sie die Namen der Arbeitsmappen mithilfe der Eigenschaft Name in der String-Variablen s . Nach jedem ermittelten Namen erzeu- gen Sie über die Anweisung Chr(13) eine neue Zeile. Nach dem Verlassen der Schleife geben Sie die ermittelten Namen der geöffneten Arbeitsmappen am Bild- schirm aus. Abbildung 4.3: Diese Arbeitsmappen sind derzeit geöffnet. Bei dieser Lösung werden auch ausgeblendete Arbeitsmappen wie die Mappe PERSONL.XLSB aufgelistet. Die Mappe PERSONL.XLSB ist die zentrale Makroarbeitsmappe, in der Sie Makros ablegen können, die Sie auch für alle anderen Arbeitsmappen gebrauchen können. 4.2 Arbeitsmappen speichern Beim Speichern einer Arbeitsmappe müssen Sie wissen, wo Sie die Mappe spei- chern möchten. Dazu verwenden Sie die ChDrive -Anweisung, um das Laufwerk zu bestimmen, sowie die Anweisung ChDir , um das richtige Verzeichnis einzustellen. Jetzt fehlt nur noch der Name. Im folgenden Beispiel speichern Sie eine Arbeitsmappe. Listing 4.5: Eine Arbeitsmappe speichern Sub ArbeitsmappeSpeichern() Dim strName As String Const Pfad = "c:\Daten" strName = ActiveWorkbook.Name ActiveWorkbook.SaveAs Filename:=Pfad & strName, FileFormat:= _ 181