Arbeitsmappe in VBA umbenennen
Schritt-für-Schritt-Anleitung
Um den Namen einer Excel-Arbeitsmappe in VBA zu ändern, ohne sie zu speichern, kannst du den Namen der Arbeitsmappe nicht direkt über ActiveWorkbook.Name ändern, da dies schreibgeschützt ist. Stattdessen kannst du die Titelzeile des Fensters ändern oder ein neues Workbook erstellen und diesen Namen zuweisen. Hier ist eine einfache Anleitung:
-
Öffne den Visual Basic for Applications (VBA) Editor in Excel durch Drücken von ALT + F11.
-
Füge ein neues Modul ein: Rechtsklick im Projekt-Explorer auf "VBAProject (DeineDatei.xls)", dann "Einfügen" > "Modul".
-
Füge den folgenden Code ein:
Sub ArbeitsmappeUmbenennen()
Dim neuerName As String
neuerName = "NeuerName" ' Hier den gewünschten Namen eingeben
ActiveWindow.Caption = neuerName ' Ändert den Titel der Arbeitsmappe
End Sub
-
Führe das Makro aus, um die Änderungen zu sehen.
Häufige Fehler und Lösungen
Alternative Methoden
Eine alternative Methode besteht darin, ein neues Workbook zu erstellen und dabei den gewünschten Namen zu verwenden:
Sub NeuesWorkbookErstellen()
Dim wb As Workbook
Set wb = Workbooks.Add
wb.SaveAs FileName:="D:\Eigene Dateien\" & "NeuerName" & ".xls"
End Sub
Mit dieser Methode wird eine neue Excel-Arbeitsmappe erstellt und sofort gespeichert.
Praktische Beispiele
-
Ändern des Titels einer bestehenden Arbeitsmappe:
Sub TitelAendern()
ActiveWindow.Caption = "Mein neuer Titel"
End Sub
-
Erstellen und Speichern eines neuen Workbooks mit einem benutzerdefinierten Namen:
Sub SpeichereNeuesWorkbook()
Dim wb As Workbook
Set wb = Workbooks.Add
Dim benutzername As String
benutzername = Environ("Username") ' Holt den Benutzernamen
wb.SaveAs FileName:="D:\Eigene Dateien\" & benutzername & "_" & Format(Now(), "yyyy-mm-dd_hh-mm-ss") & ".xls"
End Sub
Tipps für Profis
- Nutze
ThisWorkbook anstelle von ActiveWorkbook, um sicherzustellen, dass du immer auf die Arbeitsmappe zugreifst, in der das Makro gespeichert ist.
- Überlege, wie du mit
vba worksheet umbenennen arbeitest, um die Blätter innerhalb deiner Arbeitsmappe besser zu organisieren.
- Experimentiere mit
vba workbook.name, um weitere Eigenschaften der Arbeitsmappe zu nutzen.
FAQ: Häufige Fragen
1. Kann ich den Namen der Arbeitsmappe ohne Speichern ändern?
Leider nicht. Du kannst nur den Titel der Arbeitsmappe ändern, nicht den tatsächlichen Dateinamen.
2. Wie kann ich den Namen beim Speichern vorschlagen?
Verwende Application.Dialogs(xlDialogSaveAs).Show, um dem Benutzer ein Dialogfeld zum Speichern der Datei anzuzeigen und einen Namen vorzuschlagen.
3. Ist es möglich, mehrere Blätter gleichzeitig umzubenennen?
Ja, du kannst eine Schleife verwenden, um alle Blätter in einer Arbeitsmappe umzubenennen.