Dateinamen mit Hilfe eines Makros aus einer Zelle entnehmen

Ich würde gerne beim Speichern einer Excel-Tabelle den Namen nicht immer über das Speichern unter-Formular eingeben müssen. Meine Tabellen enthalten nämlich in einer Zelle bereits den jeweiligen Dateinamen. Wie kann ich denInhalt der entsprechenden Zelle möglichst einfach als Dateinamen beim Speichern verwenden?

Der eleganteste Weg führt über ein Makro, das die normale Speichern-unter-Funktion durchführt. Der Dateiname wird dabei aber nicht abgefragt, sondern soll aus der von Ihnen gewünschten Zelle übernommen werden (die Datei wird in das aktuelle Verzeichnis geschrieben): Entscheidend ist die Funktion ZelleListe, die den Inhalt einer einzelnen Zelle liefert. Die gewünschte Zelle muß dabei als Parameter im Zeilen/ Spaltenformat angegeben werden. Im Beispiel wird die Zelle B1 verwendet (erste Zeile, zweite Spalte). Die Funktion AktVerz liefert den Pfad desaktuellen Ordners. Durch die beiden &-Operatoren werden noch ein Backslash und eben der Dateiname angehängt, so daß auf diese Weise eine vollständige Pfadangabe entsteht.Sie können das Makro direkt eingeben. Wesentlich leichter ist es jedoch, wenn Sie es zuvor aufzeichnen und dann nur den Teil mit dem Dateinamen von Hand nachbessern. Gehen Sie dazu folgendermaßen vor: Starten Sie zunächst die Makro-Aufzeichnung mit Extras - Makro aufzeichnen - Aufzeichnen. Anschließend rufen Sie einmal den Befehl Speichern unter auf. Geben Sie als Dateiname einen beliebigen Namen an. Direkt im Anschluß an das Speichern stoppen Sie die Makro-Aufzeichnung und schauen sich das Makro an (unter Extras - Makro den entsprechenden Makro-Namen auswählen und auf Bearbeiten klicken). Der von Ihnen gewählte Dateiname einschließlich des kompletten Pfads wird als Zeichenkette angezeigt. Wenn Sie nun diese Zeichenkette durch AktVerz() & "\" & ZelleListe(r; s) ersetzen (für r und s setzen Sie die Position der Tabellenzelle ein, die den Dateinamen enthält), erhalten Sie genau das oben aufgeführte Makro. Falls Sie auch den Pfad aus einer Zelle entnehmen wollen, verwenden Sie statt AktVerz einen zweiten ZelleListe-Befehl oder schreiben gleich den kompletten Pfad in die entsprechende Zelle.Der ZelleListe-Befehl bezieht sich immer auf das angezeigte Tabellenblatt. Falls Sie aber in einer Arbeitsmappe mit mehreren Tabellenblättern arbeiten, müßten Sie vor dem Speichern immer auf die Tabelle mit demDateinamen umschalten. Wenn Ihnen das zu anstrengend ist, können Sie dies auch umgehen, indem Sie dem ZelleListe-Befehl zusätzlich mitteilen, auf welchem Blatt der Dateiname steht. Dazu benötigen Sie den BlattListe-Befehl. Falls der Dateiname zum Beispiel immer auf dem erstenBlatt der Arbeitsmappe in Zelle A2 enthalten ist, schreiben Sie: BlattListe(1).ZelleListe(2; 1).Wenn Sie Ihr Makro schnell starten wollen, können Sie dafür auchein eigenes Symbol auf der Symbolleiste anlegen. Gehen Sie dazu folgendermaßen vor:1. Klicken Sie mit der rechten Maustaste auf eine Symbolleiste und wählen Sie den Befehl Anpassen. 2. Wählen Sie die Kategorie Benutzerdefiniert und ziehen Sie eines der dort angezeigten Symbole an die gewünschte Stelle in der Symbolleiste (zum Beispiel neben das normale Speichern-Symbol).3. Geben Sie im nun erscheinenden Zuweisen-Formular das neue Makro an und schließen Sie das Anpassen-Formular. Zum Löschen eines Symbols ziehen Sie es einfach bei geöffnetemAnpassen-Formular aus der Symbolleiste heraus.01/97