Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Makro "Neues Tabellenblatt mit Datumswechsel"

Forumthread: Makro "Neues Tabellenblatt mit Datumswechsel"

Makro "Neues Tabellenblatt mit Datumswechsel"
03.12.2004 10:05:04
Volker
Hallo zusammen,
folgendes Problem: ich möchte gerne in einer Datei einen Button mit einem Makro erstellen. Button soll "neuer Bericht" heißen. Dazu soll dann das jeweils letzte Tabellenblatt kopiert werden und im Datum immer plus sieben Tage erfolgen. Dieses plus sieben Tage soll sowohl in der Kopfzeile als auch in der Tabellenblattbezeichnung erfolgen. Dabei sind Monatswechsel zu berücksichtigen.
Zur Info hänge ich eine Beispieldatei an. Mein Makro zu dem Bericht findet ihr im Makroeditor. Wenn ich das laufen lassen, gibt es einen Fehler w/ eines doppelten Names. Wer kann mir helfen?
Vielen Dank+Gruß
Volker
https://www.herber.de/bbs/user/14285.xls
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Makro "Neues Tabellenblatt mit Datumswechsel"
u_
Hallo,
Profi?
In der Zelle mit dem Datum sollte auch eins stehen. Jetzt ist ein Text drin.
Zelle einfach entsprechend formatieren. Benutzerdefiniert: TTT, TT.MM.JJJJ.
Wenn du jetzt einfach 6.1.05 reinschreibst, wird das als Do, 06.01.2005 angezeigt und du kannst das Datum auch vernünftig auswerten.
Code für Kopie:

Sub Statusbericht_neu()
Dim Datum As Date
Dim wksLast As Worksheet
Set wksLast = Worksheets(Worksheets.Count)
Datum = wksLast.Range("e2")
wksLast.Copy after:=wksLast
With ActiveSheet
.Name = Format(Datum + 7, "DD.MM.YYYY")
.Range("E2") = Datum + 7
End With
End Sub

Gruß
Anzeige
AW: Makro "Neues Tabellenblatt mit Datumswechsel"
03.12.2004 14:25:39
Volker
Hi Jan,hi Unbekannter
würde eines euren beiden Makros mit einer Befehlsschaltfläche in einen neuen Tabellenblatt (Name: "Neuer Bericht") einbinden. Folgendes Problem:
1) bei Mr. Unbekannt läuft das Makro zwar alleine, aber leider nicht in Verbindung mit einer ClickBox
2) Bei Jan läuft die ClickBox zwar im Beispiel - läßt sich leider aber nicht kopieren bzw. der Code läßt sich nicht anzeigen
Wer kann helfen?! Vielen Dank bereits im voraus
Gruß, Volker
Anzeige
AW: Makro "Neues Tabellenblatt mit Datumswechsel"
Jan
Hi Volker,
Welche Befehlsschaltfläche? Formular-Symbolleiste oder Steuerelemente-Toolbox?
Variante Formular-Symbolleiste:
1. In Deiner Arbeitsmappe ein Modul einfügen im Editor für VBA (ALT + F11) über Menü Einfügen - Menüpunkt Modul
2. Aus meiner Beispielmappe Code im Editor markieren und über Zwischelablage kopieren
3. In Deinem unter Punkt 1 erzeugtem Modul einfügen
4. Befehlsschaltfläche in einem Arbeitsblatt erstellen und über Kontextmenü Makro zuweisen
Probier es mal aus!
Jan
Anzeige
;
Anzeige
Anzeige

Infobox / Tutorial

Neues Tabellenblatt mit Datumswechsel in Excel erstellen


Schritt-für-Schritt-Anleitung

  1. Öffne Excel und lade die Datei, in der du das Makro verwenden möchtest.

  2. Füge ein Modul ein:

    • Drücke ALT + F11, um den VBA-Editor zu öffnen.
    • Klicke auf Einfügen und wähle Modul.
  3. Füge den folgenden Code ein:

    Sub Statusbericht_neu()
       Dim Datum As Date
       Dim wksLast As Worksheet
       Set wksLast = Worksheets(Worksheets.Count)
       Datum = wksLast.Range("E2")
       wksLast.Copy after:=wksLast
       With ActiveSheet
           .Name = Format(Datum + 7, "DD.MM.YYYY")
           .Range("E2") = Datum + 7
       End With
    End Sub
  4. Erstelle einen Button:

    • Gehe zurück zu Excel.
    • Wähle die Entwicklertools-Registerkarte.
    • Klicke auf Einfügen und wähle eine Befehlsschaltfläche aus.
  5. Weise das Makro zu:

    • Rechtsklicke auf die Schaltfläche und wähle Makro zuweisen.
    • Wähle Statusbericht_neu aus der Liste und klicke auf OK.
  6. Teste das Makro, indem du auf den Button klickst. Ein neues Tabellenblatt mit einem fortlaufenden Datum sollte erstellt werden.


Häufige Fehler und Lösungen

  • Fehler: Doppelte Namen: Dieser Fehler tritt auf, wenn ein bereits bestehendes Tabellenblatt den gleichen Namen hat. Stelle sicher, dass der Name des neuen Tabellenblatts einzigartig ist.

  • Datum wird nicht angezeigt: Überprüfe die Formatierung der Zelle, in der das Datum angezeigt wird. Stelle sicher, dass sie als Datum formatiert ist (z.B. TT.MM.JJJJ).


Alternative Methoden

Falls du keine VBA-Makros verwenden möchtest, kannst du auch die Funktion =HEUTE() in Kombination mit Formeln nutzen, um das Datum automatisch anzupassen. Diese Methode erfordert jedoch manuelle Anpassungen, wenn ein neues Tabellenblatt erstellt wird.


Praktische Beispiele

Angenommen, du hast ein Tabellenblatt mit dem Namen Bericht, in dem das aktuelle Datum in Zelle E2 steht. Wenn du das Makro ausführst, wird ein neues Tabellenblatt mit dem Namen DD.MM.YYYY (z.B. 01.01.2023) erstellt, das das Datum in E2 um sieben Tage erhöht.


Tipps für Profis

  • Automatisierung: Du kannst das Makro so anpassen, dass es automatisch beim Öffnen der Datei oder beim Ändern bestimmter Zellen ausgeführt wird.

  • Benutzerdefinierte Formate: Experimentiere mit verschiedenen benutzerdefinierten Datumsformaten in Excel, um die Darstellung der Daten gemäß deinen Anforderungen zu optimieren.


FAQ: Häufige Fragen

1. Wie kann ich das Makro anpassen, um mehr als sieben Tage hinzuzufügen? Du kannst die Zahl 7 im Code durch eine andere Zahl ersetzen, um den gewünschten Zeitraum anzupassen.

2. Was passiert bei Monatswechsel? Das Makro berücksichtigt Monatswechsel, da das Datum in Excel automatisch angepasst wird. Wenn das Datum auf den nächsten Monat wechselt, wird das neue Tabellenblatt entsprechend benannt.

3. Kann ich das Makro auf ein bereits bestehendes Tabellenblatt anwenden? Ja, das Makro kann auf ein bestehendes Tabellenblatt angewendet werden, solange du sicherstellst, dass der Name des neuen Blattes einzigartig ist.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige