Andere Mappe per VBA als Kopie öffnen
Schritt-für-Schritt-Anleitung
Um eine andere Arbeitsmappe per VBA als Kopie zu öffnen, folge diesen Schritten:
-
Öffne Excel und drücke Alt + F11, um den VBA-Editor zu starten.
-
Klicke im Projekt-Explorer auf die Arbeitsmappe, in der du das Makro erstellen möchtest.
-
Wähle Einfügen > Modul, um ein neues Modul hinzuzufügen.
-
Kopiere den folgenden Code in das Modul:
Private Sub Workbook_Open()
Dim strPathAndFileName As String
strPathAndFileName = "\\Test.xlsm"
Workbooks.Add Template:=strPathAndFileName
End Sub
-
Speichere die Änderungen und schließe den VBA-Editor.
-
Schließe die Arbeitsmappe und öffne sie erneut. Die Arbeitsmappe Test.xlsm sollte jetzt als Kopie geöffnet werden.
Häufige Fehler und Lösungen
Alternative Methoden
Wenn das oben beschriebene Makro nicht funktioniert, kannst du auch folgende Methode ausprobieren:
-
Kopieren und Einfügen: Du kannst die Arbeitsmappe manuell kopieren und dann über VBA ein neues Workbook erstellen, indem du den Inhalt der kopierten Datei einfügst.
Beispiel:
Sub KopiereUndOeffne()
Dim wb As Workbook
Dim strPath As String
strPath = "\\Test.xlsm"
FileCopy strPath, "C:\Temp\Test_Kopie.xlsm"
Set wb = Workbooks.Open("C:\Temp\Test_Kopie.xlsm")
End Sub
Praktische Beispiele
Hier ist ein Beispiel, wie du die Kopie auch direkt speichern kannst, um die "Müll"-Dateien zu vermeiden:
Private Sub Workbook_Open()
Dim strPathAndFileName As String
Dim newWorkbook As Workbook
strPathAndFileName = "\\Test.xlsm"
Set newWorkbook = Workbooks.Add Template:=strPathAndFileName
newWorkbook.SaveAs Filename:="C:\Temp\Test_Kopie_" & Format(Now, "yyyymmdd_hhmmss") & ".xlsm"
End Sub
In diesem Beispiel wird die Kopie der Datei automatisch mit einem Zeitstempel gespeichert.
Tipps für Profis
-
Verwende Fehlerbehandlung: Füge Fehlerbehandlungsroutinen hinzu, um unerwartete Probleme zu vermeiden. Beispiel:
On Error GoTo ErrorHandler
' Dein Code
Exit Sub
ErrorHandler:
MsgBox "Ein Fehler ist aufgetreten: " & Err.Description
-
Variablen für Pfade: Nutze Variablen für die Dateipfade, um den Code flexibler zu gestalten.
-
Makros sicher speichern: Denke daran, deine Arbeitsmappe als xlsm zu speichern, um die Makros zu behalten.
FAQ: Häufige Fragen
1. Frage
Wie kann ich sicherstellen, dass die Datei immer als Kopie gespeichert wird?
Antwort: Nutze den SaveAs-Befehl im Makro, um die Datei unter einem neuen Namen zu speichern, wie im praktischen Beispiel gezeigt.
2. Frage
Kann ich das Makro automatisiert zu einer bestimmten Zeit ausführen lassen?
Antwort: Ja, du kannst das Makro über die Windows Aufgabenplanung automatisieren, indem du es in eine Excel-Datei einfügst und die Datei zur gewünschten Zeit öffnest.