Excel-Arbeitsmappe anlegen und Tabellenblatt per Makro nach aktuellen Datum benennen

08. Juni 2011
Martin Althaus Von Martin Althaus, Excel, Office ...

Erzeugen Sie eine leere Arbeitsmappe per Makro, legen Sie darin ein Tabellenblatt an, das als Namen das aktuelle Datum erhält

Eine Arbeitsmappe, die nur ein Tabellenblatt mit dem aktuellen Datum enthält

Eine Arbeitsmappe, die nur ein Tabellenblatt mit dem aktuellen Datum enthält

Sie möchten eine Arbeitsmappe per Makro anlegen, die genau ein Tabellenblatt enthält, das als Namen das aktuelle Datum trägt?

Ein solches Makro ist praktisch, wenn Sie beispielweise bestimmte Daten regelmäßig erfassen müssen und sich den Aufwand de Anlegens der Arbeitsmappe sparen möchten. Verwenden Sie das folgende Excel-Makro für diese Aufgabe:

Sub ErzeugeAktuelleDatumstabelle()
Application.DisplayAlerts = False
With Workbooks.Add
 While .Worksheets.Count > 1
 .Worksheets(1).Delete
 Wend
.Worksheets(1).Name = Date
End With
Application.DisplayAlerts = True
End Sub

Nach dem Start erzeugt Excel eine neue, leere Arbeitsmappe. In dieser Mappe werden bis auf ein Tabellenblatt alle Blätter gelöscht. Anschließend gibt das Makro dem verbliebenen Tabellenblatt als Namen das aktuelle Datum.

Die folgende Abbildung zeigt, wie das Ergebnis aussehen kann:

Eine Arbeitsmappe, die nur ein Tabellenblatt mit dem aktuellen Datum enthält

Um das Makro einzugeben, drücken Sie in Excel die Tastenkombination ALT F11. Damit rufen Sie den VBA-Editor auf. Fügen Sie hier über das Kommando EINFÜGEN - MODUL ein leeres Modulblatt ein. Um das Makro zu starten, drücken Sie innerhalb von Excel die Tastenkombination ALT F8.

  • Excel Vorlagen zum Sofort-Download
  • Geprüfte Vorlagen zum Sofort-Einsatz
  • Gratis Makros & Add-Ins im Downloadcenter

DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Weitere Artikel zum Thema

Newsletter

Jetzt kostenlose Excel-Hilfe anfordern!

  • die besten Tipps
  • völlig kostenlos
  • jederzeit abbestellbar
DDV Ehrencodex E-Mail-Marketing
  • Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters.
  • Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter.
  • Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Datenschutzgarantie:

Wir benötigen Ihre E-Mail-Adresse für die Zusendung des Newsletters. Wir geben Ihre E-Mail-Adresse garantiert nicht an Dritte weiter. Jederzeit abbestellbar durch einen Link im Newsletter.

Unsere Experten

Rudolf Ring twittert für @Computerwissen

Die von Ihnen eingegebene E-Mail Adresse ist nicht korrekt. Bitte korrgieren Sie Ihre Eingabe und klicken Sie auf "OK":

Bitte wählen Sie mindestens einen Newsletter aus und klicken Sie auf "OK"