Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.10.2025 18:10:41
vba pdf
24.10.2025 17:27:23
Mit Makro eine pdf erstellen mit Namen aus einer Zelle
24.10.2025 15:11:16
Differenz errechnen zum Vortag aus anderem Tabellenblatt
24.10.2025 11:47:33
Shape auf 1 cm und in Zelle zentriert. Code kürzen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1648to1652
1648to1652
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Auswahl Tabellenblattname aktuelles Datum

Forumthread: Auswahl Tabellenblattname aktuelles Datum

Auswahl Tabellenblattname aktuelles Datum
09.10.2018 11:07:20
Tommy
Hallo zusammen,
ich bin auf der Suche nach einem Makro, welches ein neues Tabellenblatt einfügt und diesem als Name das aktuelle Datum zuweist. Danach soll dieses Tabellenblatt ausgewählt und komplett als Text formatiert werden.
Vielen Dank für eure Hilfe im Voraus.
VG, Tommy
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Makrorekorder anwerfen! (owT)
09.10.2018 11:09:43
EtoPHG

AW: Makrorekorder anwerfen! (owT)
09.10.2018 11:14:28
Tommy
Das habe ich schon versucht und bringt mich nicht weiter
AW: mit Pruefung
09.10.2018 11:19:54
hary
Moin 
Sub Blatt_einfuegen()
If IsError(Evaluate(Date & "!A1")) Then '--pruefen ob Blatt schon vorhanden
Worksheets.Add after:=Worksheets(Worksheets.Count)
ActiveSheet.Name = Date
Cells.NumberFormat = "@"
End If
End Sub

gruss hary
Anzeige
AW: Auswahl Tabellenblattname aktuelles Datum
09.10.2018 11:14:32
ChrisL
Hi
Makrorekorder war auch mein erster Gedanke.
Sub t()
Dim WS As Worksheet
For Each WS In ThisWorkbook.Worksheets
If WS.Name = Format(Date, "DD.MM.YYYY") Then
MsgBox "bereits vorhanden"
Exit Sub
End If
Next WS
Sheets.Add Before:=Sheets(1)
ActiveSheet.Name = Format(Date, "DD.MM.YYYY")
Cells.NumberFormat = "@"
End Sub
cu
Chris
Anzeige
AW: Auswahl Tabellenblattname aktuelles Datum
09.10.2018 11:19:26
EtoPHG
Hallo Tommy,
Sub NeuesHeuteBlatt()
Dim ws As Worksheet, wsName As String
wsName = Format(Date, "DD.MM.YYYY")
On Error Resume Next
Set ws = Worksheets(wsName)
If Err.Number  0 Then
Set ws = Worksheets.add(After:=ActiveSheet)
ws.Name = Format(Date, "DD.MM.YYYY")
ws.Cells.NumberFormat = "@"
Else
MsgBox "Blatt " & wsName & " existiert bereits!", vbExclamation
End If
On Error GoTo 0
End Sub
Gruess Hansueli
Anzeige
AW: Auswahl Tabellenblattname aktuelles Datum
10.10.2018 09:51:27
Tommy
Hat geklappt! Vielen Dank für eure Hilfe :)
;
Anzeige
Anzeige

Infobox / Tutorial

Tabellenblatt mit aktuellem Datum in Excel erstellen

Schritt-für-Schritt-Anleitung

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu:

    • Klicke auf Einfügen > Modul.

  3. Kopiere den folgenden VBA-Code in das Modul:

    Sub NeuesHeuteBlatt()
   Dim ws As Worksheet, wsName As String
   wsName = Format(Date, "DD.MM.YYYY")
   On Error Resume Next
   Set ws = Worksheets(wsName)
   If Err.Number <> 0 Then
       Set ws = Worksheets.Add(After:=ActiveSheet)
       ws.Name = wsName
       ws.Cells.NumberFormat = "@"
   Else
       MsgBox "Blatt " & wsName & " existiert bereits!", vbExclamation
   End If
   On Error GoTo 0
End Sub

  4. Schließe den VBA-Editor und gehe zurück zu Excel.

  5. Führe das Makro aus:

    • Drücke ALT + F8, wähle NeuesHeuteBlatt und klicke auf Ausführen.

Das Makro erstellt ein neues Tabellenblatt mit dem heutigen Datum als Namen und formatiert es als Text.

Häufige Fehler und Lösungen

  • Fehler: "Blatt existiert bereits!"

    • Lösung: Stelle sicher, dass du das Datum im richtigen Format angibst. Das Skript prüft, ob ein Blatt mit dem aktuellen Datum bereits existiert.

  • Fehler beim Ausführen des Makros

    • Lösung: Überprüfe, ob Makros in deiner Excel-Version aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center > Makroeinstellungen.

Alternative Methoden

Falls du nicht mit VBA arbeiten möchtest, kannst du die Funktion =HEUTE() in eine Zelle einfügen, um das aktuelle Datum zu erhalten. Beachte jedoch, dass damit kein neues Tabellenblatt erstellt wird. In Google Sheets kannst du auch =HEUTE() verwenden, um das heutige Datum darzustellen.

Praktische Beispiele

  1. Erstelle mehrere Tabellenblätter für verschiedene Tage:

    • Du kannst das Makro anpassen, um mehrere Blätter für eine Woche zu erstellen, indem du eine Schleife hinzufügst, die die Tage iteriert.

  2. Verwende Initialen aus dem Namen:

    • Wenn du den Namen des Blatts basierend auf den Initialen des Benutzers und dem Datum erstellen möchtest, kannst du den Code entsprechend modifizieren.
    Dim userName As String
userName = "T.A." ' Beispiel: Tommy Adams
wsName = userName & "_" & Format(Date, "DD.MM.YYYY")

Tipps für Profis

  • Verwende Application.ScreenUpdating = False am Anfang des Makros, um das Flackern des Bildschirms zu reduzieren und die Ausführung zu beschleunigen.
  • Speichere deine Arbeit regelmäßig und teste den Code in einer Kopie deiner Datei, um unerwünschte Änderungen zu vermeiden.

FAQ: Häufige Fragen

1. Wie kann ich das heutige Datum in Google Sheets einfügen? In Google Sheets kannst du die Funktion =HEUTE() verwenden, um das aktuelle Datum automatisch einzufügen.

2. Kann ich das Makro anpassen, um ein bestimmtes Datum zu verwenden? Ja, du kannst das Datum im Code, z.B. wsName = "01.01.2023", manuell festlegen, um ein Blatt mit einem spezifischen Datum zu erstellen.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige