Möglicherweise müssen Sie eine Arbeitsmappe routinemäßig an mehrere Speicherorte auf Ihrem System kopieren. Beispielsweise muss die geöffnete Arbeitsmappe möglicherweise auf eine lokale Festplatte und auf mehrere zugeordnete Laufwerke kopiert werden, die sich tatsächlich in Ihrem Büronetzwerk befinden.

Excel verfügt nicht über eine integrierte Funktion, aber wenn die verschiedenen Speicherorte genau definiert sind, können Sie ein Makro erstellen, das das Speichern für Sie übernimmt. Das folgende Makro ist ein Beispiel für ein solches Tool:

Sub SaveToLocations()

Dim OrigName As String

OrigName = ActiveWorkbook.FullName     ActiveWorkbook.SaveAs "G:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "L:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "K:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs "S:\" + ActiveWorkbook.Name     ActiveWorkbook.SaveAs OrigName End Sub

Das spezielle Beispiel des Makros speichert die aktive Arbeitsmappe an fünf verschiedenen Speicherorten, die alle denselben Arbeitsmappennamen verwenden. Das Makro ermittelt den aktuellen Speicherort der Arbeitsmappe, damit es zuletzt am aktuellen Speicherort gespeichert werden kann. Der Grund dafür ist, dass Sie das reguläre Speichern-Tool weiterhin verwenden und die erwarteten Ergebnisse erhalten können.

Wenn Sie dieses Makro auf Ihrem eigenen System verwenden möchten, müssen Sie lediglich sicherstellen, dass Sie die Laufwerksbuchstaben ändern, in denen die einzelnen Arbeitsmappen gespeichert werden. Wenn eines der von Ihnen angegebenen Laufwerke für einen Speicherort bestimmt ist, an dem Wechselmedien verwendet werden und sich keine Medien im Laufwerk befinden, generiert das Makro einen Fehler und stoppt. Sie müssen dann herausfinden, wo die Arbeitsmappe ursprünglich gespeichert wurde, damit Sie sie dort manuell erneut speichern können (mithilfe von Speichern unter).

Eine weitere Besonderheit des Makros besteht darin, dass Excel nach der Verwendung der SaveAs-Methode fragt, ob die vorhandene Version der Arbeitsmappe überschrieben werden soll, wenn an jedem der Ziele bereits eine Arbeitsmappe mit demselben Namen wie die aktuelle Arbeitsmappe vorhanden ist. Dies ist beim letzten Speichern am ursprünglichen Speicherort immer der Fall.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (2774) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Speichern an mehreren Orten.