Excel: 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