Datum in Zelle und in TabellenName

Forumthread: Datum in Zelle und in TabellenName

11.03.2015 16:50:15

Robert

Hallo,
leider habe ich im Netz nicht gefunden zu meiner Frage.
Ich möchte wie im Bild das Datum fortlaufend eingetragen haben.
In der Zelle G1 Wochentag und Datum und in der Tabelle als Name das Datum.
Userbild

Vielen Dank im vorraus für eure Hilfe

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

wozu benötigst Du das? ...

11.03.2015 17:35:17

neopa
AW: wozu benötigst Du das? ...

11.03.2015 17:50:13

Robert
AW: Datum in Zelle und in TabellenName

12.03.2015 06:53:52

haw

wozu benötigst Du das? ...

11.03.2015 17:35:17

neopa

Hallo Robert,
... willst Du etwa 365 Blätter anlegen? Doch sicherlich nicht, oder?
Wenn Du dem Tabellenblatt händisch als Namen ein Datum zuweist und in G1 dann die Formel:
=1*TEIL(ZELLE("Dateiname";$A$1);FINDEN("]";ZELLE("Dateiname";$A$1))+1;31) schreibst und dieser das benutzerdefinierte Zahlenformat: TTTT TT.MM.JJJJ zuweist, hast Du schon mal den Anfang. Nun kopiesrt Du das Tabellenblatt und änderst im Blattnamen den Datumseintrag entsprechend ab und so hast Du mit wenigen Klicks und Tastaturanschlägen das von Dir gewünschte wenn sich Dein Wunsch auf weniger z.B. als 10 Tabellenblätter beschränkt auch mE ausreichend.
Gruß Werner
.. , - ...

AW: wozu benötigst Du das? ...

11.03.2015 17:50:13

Robert

Hallo,
brauch diese Tabelle ca. im halben Jahr vorraus. Es geht um Mitarbeitereinsatz und Urlaubsplanung. Der Aktuelle Tag wird dann auch immer gedruckt.
Dachte da an eine VBA programmierung

AW: Datum in Zelle und in TabellenName

12.03.2015 06:53:52

haw

Hallo Robert,
hier ein Beispiel:

Sub BlätterAnlegen()
Dim wsV As Worksheet, ws As Worksheet, i%, Jahr%, Datum As Date
Application.ScreenUpdating = False
Set wsV = ThisWorkbook.Worksheets("Vorlage")
Jahr = InputBox("Für welches Jahr sollen die Tabellen angelegt werden?", "JAHR", Year( _
Date))
Datum = DateSerial(Jahr, 1, 1)
Do
wsV.Copy After:=wsV.Parent.Worksheets(wsV.Parent.Worksheets.Count)
Set ws = ActiveSheet
ws.Name = Format(Datum, "d.m.yyyy")
ws.Range("G1").Value = Datum
Datum = Datum + 1
Loop While Year(Datum) = Jahr
Application.ScreenUpdating = True
End Sub

Gruß Heinz

Infobox / Tutorial

Datum in Zelle und in TabellenName verwalten

Schritt-für-Schritt-Anleitung
Häufige Fehler und Lösungen
Alternative Methoden
Praktische Beispiele
Tipps für Profis
FAQ: Häufige Fragen

Schritt-für-Schritt-Anleitung

Tabellenblatt erstellen: Erstelle ein neues Tabellenblatt, das als Vorlage dienen soll. Nenne es beispielsweise "Vorlage".
VBA-Editor öffnen: Drücke ALT + F11, um den VBA-Editor zu öffnen.
Neues Modul hinzufügen: Klicke mit der rechten Maustaste auf "VBAProject (DeineDatei.xlsx)" und wähle Einfügen > Modul.

Code einfügen: Füge den folgenden VBA-Code in das Modul ein:

Sub BlätterAnlegen()
    Dim wsV As Worksheet, ws As Worksheet, i%, Jahr%, Datum As Date
    Application.ScreenUpdating = False
    Set wsV = ThisWorkbook.Worksheets("Vorlage")
    Jahr = InputBox("Für welches Jahr sollen die Tabellen angelegt werden?", "JAHR", Year(Date))
    Datum = DateSerial(Jahr, 1, 1)
    Do
        wsV.Copy After:=wsV.Parent.Worksheets(wsV.Parent.Worksheets.Count)
        Set ws = ActiveSheet
        ws.Name = Format(Datum, "d.m.yyyy")
        ws.Range("G1").Value = Datum
        Datum = Datum + 1
    Loop While Year(Datum) = Jahr
    Application.ScreenUpdating = True
End Sub

Makro ausführen: Schließe den VBA-Editor und führe das Makro über ALT + F8 aus. Wähle "BlätterAnlegen" und klicke auf Ausführen.
Tabellenname und Datum: Das Makro erstellt jetzt für jeden Tag des gewählten Jahres ein neues Tabellenblatt mit dem entsprechenden Datum als Tabellennamen und dem Datum in der Zelle G1.

Häufige Fehler und Lösungen

Fehler: "Blatt kann nicht umbenannt werden"
- Lösung: Stelle sicher, dass der Tabellennamen nicht bereits existiert. Excel erlaubt keine doppelten Tabellennamen.
Fehler: VBA läuft nicht
- Lösung: Überprüfe, ob Makros in Excel aktiviert sind. Gehe zu Datei > Optionen > Trust Center > Einstellungen für das Trust Center und aktiviere Makros.
Datum wird nicht korrekt angezeigt
- Lösung: Stelle sicher, dass das benutzerdefinierte Zahlenformat für die Zelle G1 korrekt eingestellt ist. Nutze TTTT TT.MM.JJJJ für die Anzeige von Wochentag und Datum.

Alternative Methoden

Eine einfache Methode, um das Datum fortlaufend in mehreren Zellen anzuzeigen, ist die Verwendung von Formeln.

Fortlaufendes Datum ohne VBA: In die Zelle G1 kannst du die Formel =HEUTE() verwenden, um das aktuelle Datum anzuzeigen.
Wochentag und Datum kombinieren: In G1 kannst du die folgende Formel nutzen, um den Wochentag und das Datum fortlaufend anzuzeigen:
```
=TEXT(HEUTE(); "TTTT") & " " & TEXT(HEUTE(); "TT.MM.JJJJ")
```
Tabellennamen manuell anpassen: Du kannst den Tabellennamen manuell umbenennen, indem du mit der rechten Maustaste auf das Tabellenblatt klickst und Umbenennen wählst.

Praktische Beispiele

Mitarbeitereinsatzplanung: Du kannst das oben beschriebene Makro verwenden, um für jeden Tag im Jahr ein separates Blatt zu erstellen. Jedes Blatt kann dann für einen Mitarbeitereinsatz genutzt werden.
Urlaubsplanung: Mit dieser Methode kannst du Urlaubsanträge für jeden Mitarbeiter auf einem eigenen Blatt festhalten. Der Tabellennamen hilft, die Übersichtlichkeit zu bewahren.

Tipps für Profis

Formeln in Tabellennamen verwenden: Du kannst dynamische Tabellennamen erstellen, indem du die INDIREKT-Funktion in Kombination mit dem Tabellennamen verwendest. So kannst du =INDIREKT("'"&A1&"'!A1") verwenden, um auf Zellen in anderen Blättern zuzugreifen.
Automatisierung durch VBA: Nutze VBA nicht nur für das Erstellen von Blättern, sondern auch für die Automatisierung von Datenanalysen und Berichten.

FAQ: Häufige Fragen

1. Wie kann ich die Tabellennamen automatisch anpassen?
Nutze die VBA-Methode, um die Tabellennamen dynamisch zu erstellen. Das Makro passt die Namen basierend auf dem Datum an.

2. Kann ich die Daten in G1 ändern?
Ja, du kannst das Datum in G1 manuell ändern oder eine Formel verwenden, die sich automatisch aktualisiert.

3. Funktioniert das auch in älteren Excel-Versionen?
Die beschriebenen VBA-Techniken und Formeln funktionieren in den meisten aktuellen und älteren Excel-Versionen (ab Excel 2007).

Beliebteste Forumthreads (12 Monate)

Datum in Zelle und in TabellenName

Forumthread: Datum in Zelle und in TabellenName

3 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Forumthreads zu verwandten Themen

Infobox / Tutorial

Datum in Zelle und in TabellenName verwalten

Schritt-für-Schritt-Anleitung

Häufige Fehler und Lösungen

Alternative Methoden

Praktische Beispiele

Tipps für Profis

FAQ: Häufige Fragen

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread