Live-Forum - Die aktuellen Beiträge
Datum
Titel
16.10.2025 09:40:53
Mehrere Konferenzen ohne Personenüberschneidung terminieren
16.10.2025 00:15:51
Passwort im Herbersforum ändern
15.10.2025 16:22:17
Datum ist nicht Datum :(
15.10.2025 15:02:20
Blockpfeile mit Makro gehen nicht mehr nach freigabe
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
1656to1660
1656to1660
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter mit Datum als Name erzeugen

Forumthread: Tabellenblätter mit Datum als Name erzeugen

Tabellenblätter mit Datum als Name erzeugen
26.11.2018 15:15:13
stormlamp
Hallo,
jeden Monat benötige ich eine Datei, in der soviele Tabellenblätter vorhanden sind, wie es Tage in diesem Monat gibt.
Die Basisdatei hat nur ein Tabellenblatt mit dem Namen "Vorlage". Wenn ich ein Makro starte, soll der 1. Tag des Monats abgefragt werden, wo ich bspw. "1.12.2018" eingebe. Dann soll das Makro hintereinander 31 Tabellenblätter als Kopie des Tabellenblatts Vorlage richtig sortiert hintereinander erzeugen mit den Namen "1.12.2018", "2.12.2018",...
Hat jemand dazu eine Idee?
Viele Grüße
Hans
Anzeige

13
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter mit Datum als Name erzeugen
26.11.2018 15:55:48
stormlamp
Hallo,
ich habe mir ein paar Codes zusammengestrickt, die natürlich nicht funktionieren, weil ich VBA nicht kann. Es soll nur den gewünschten Ablauf skizzieren.
Es wär prima, wenn jemand dann eine Lauffähiger Version daraus erstellen könnte
Sub NeuesTabBlatt()
Sheets("Vorlage").Select
Dim NewName As String
Dim MaxName As String ' Variable für die maximale Tageszahl des angegebenen Monats definieren
NewName = InputBox("Geben Sie den ersten Monatstag ein bspw. 1.11.2018")
' letzten Tag des Monats ermitteln:MaxName = 32 - Tag(NewName - Tag(NewName) + 32)
'Start Schleife von 1 bis MaxName
ActiveSheet.Copy After:=ActiveSheet
ActiveSheet.Name = MaxName
' MaxName = MaxName + 1
' Ende der Schleife
End Sub
Viele Grüße
Hans
Anzeige
AW: Tabellenblätter mit Datum als Name erzeugen
26.11.2018 16:06:44
Michael
Hallo stormlamp, So?

Sub Erzeuge_Sheets()
Application.Cursor = xlWait
On Error GoTo Fehler
Dim strDatum As String
Dim dStart, dEnde As Date
Dim iD As Date
strDatum = InputBox("Bitte das Beginndatum eingeben!", "Datum eingeben ...")
dStart = CDate(strDatum)
dEnde = DateAdd("m", 1, dStart) - 1
For iD = dStart To dEnde
ActiveWorkbook.Sheets.Add After:=Sheets(Sheets.Count)
ActiveWorkbook.Sheets(ActiveWorkbook.Sheets.Count).Name = Format(iD, "DD.MM.YYYY")
Next iD
GoTo isEnde
Fehler:
MsgBox "Fehler: " & Err.Description, vbCritical + vbOKOnly, "Fehler ..."
Err.Clear
isEnde:
Application.Cursor = xlDefault
End Sub

Anzeige
AW: Tabellenblätter mit Datum als Name erzeugen
26.11.2018 16:14:36
Werner
Hallo,
hier meine Version auch noch: 
Option Explicit
Public Sub Neue_Blätter()
Dim daDatum As Date, i As Long, Z As Long, loBlätter As Long
Application.ScreenUpdating = False
daDatum = InputBox("Bitte Datum eingeben!", "Datum", Format(Date, "dd.mm.yyyy"))
If IsDate(daDatum) Then
i = Left(daDatum, 2)
loBlätter = DateSerial(Year(daDatum), Month(daDatum) + 1, 0) - daDatum + 1
For Z = 1 To loBlätter
Worksheets("Vorlage").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = DateSerial(Year(daDatum), Month(daDatum), Day(i + 1))
i = i + 1
Next Z
End If
End Sub
Gruß Werner
Anzeige
AW: Tabellenblätter mit Datum als Name erzeugen
26.11.2018 16:19:35
Michael
Sorry, wer lesen kann ..., gefragt war die Kopie von Tabelle Vorlage, also Werner seine Version nehmen
AW: Tabellenblätter mit Datum als Name erzeugen
26.11.2018 16:43:26
Piet
Hallo
schöne Version von Werner. Man kann sie zum Schluss noch ergaenzen durch:
Worksheets(1).Delete 'Vorlage löschen
'Dialog: unter neuem Namen speichern
Application.Dialogs(xlDialogSaveAs).Show
mfg Piet
Anzeige
Danke für die Blumen.... o.w.T.
26.11.2018 16:56:59
Werner
AW: Tabellenblätter mit Datum als Name erzeugen
26.11.2018 17:37:57
stormlamp
Hallo,
doch noch eine Rückfrage:
Wie vermeide ich bei der Zeile
Worksheets("Vorlage").Delete
die Nachfrage "Das Tabellenblatt könnte Daten enthalten, bitte Löschen bestätigen"?
Das Blatt soll ohne Rückfrage gelöscht werden.
Gruß
Hans
AW: Tabellenblätter mit Datum als Name erzeugen
26.11.2018 17:57:31
Werner
Hallo,
Application.DisplayAlerts = False
Worksheets("Vorlage").Delete
Application.DisplayAlerts = True
Gruß Werner
Anzeige
AW: Tabellenblätter mit Datum als Name erzeugen
26.11.2018 17:58:29
stormlamp
Danke sehr
Bitte sehr. o.w.T.
26.11.2018 17:59:45
Werner
und um einer Rückfrage vorzubeugen...
26.11.2018 16:41:22
Werner
Hallo,
...da du ja vermutlich eine Schaltfläche auf deinem Vorlagenblatt hast, die dann aber in den einzelnen "Tagesblättern" vermutlich nicht vorhanden sein soll: 
Option Explicit
Public Sub Neue_Blätter()
Dim daDatum As Date, i As Long, Z As Long, loBlätter As Long
Dim sh As Shape
Application.ScreenUpdating = False
daDatum = InputBox("Bitte Datum eingeben!", "Datum", Format(Date, "dd.mm.yyyy"))
If IsDate(daDatum) Then
i = Left(daDatum, 2)
loBlätter = DateSerial(Year(daDatum), Month(daDatum) + 1, 0) - daDatum + 1
For Z = 1 To loBlätter
Worksheets("Vorlage").Copy After:=Worksheets(Sheets.Count)
ActiveSheet.Name = DateSerial(Year(daDatum), Month(daDatum), Day(i + 1))
For Each sh In ActiveSheet.Shapes
sh.Delete
Next sh
i = i + 1
Next Z
End If
End Sub
Gruß Werner
Anzeige
Vielen Dank!!!
26.11.2018 17:16:16
stormlamp
Hallo Zusammen,
ganz herzlichen Dank für die Super-Vorschläge.
Die Scripte laufen perfekt und schnell.
Damit erspart Ihr mir richtig viel Arbeit
Viele Grüße
Hans
Gerne u. Danke für die Rückmeldung. o.w.T.
26.11.2018 17:34:48
Werner
;

Forumthreads zu verwandten Themen

Liste mit verschiedenen Datumsformaten
Mike

Hi Ihr,
hoffe, Ihr könnt mir auch hierbei helfen... ? ;-)
Situation:
Ich erhalte momentan täglich eine Liste mit unterschiedlichen Zeit / Datumsformaten in Spalte E (aufgrund der Daten aus verschiedenen Ländern).
Die Liste enthält aktuell folgende Formate:
- MM/TT/JJJJ h...
19.04.2010 21:46:53
Thread-ID: 1152690
4 Beiträge
Einzeldaten aus Liste mit Anfangs- und Enddatum
Mathias

Hallo zusammen,
ich habe eine Liste mit mehreren Tausend Einträgen, bei denen jeweils ein Anfangs- und Enddatum vorliegt. Ich benötige nun eine neue Liste, in der jedes Datum einzeln ausgegeben wird. Am Besten ich beschreibe es mal anhand eines Beispiels:
Der Eintrag
Kunde A; 1.1.20...
04.05.2010 09:42:37
Thread-ID: 1155253
4 Beiträge
Daten in zweiter Tabelle mit Datum sichern
Fritz_W


Hallo Forumsbesucher,
per Makroaufzeichnung habe ich bisher Daten aus der 'Tabelle1' in die Tabelle 'Ergebnisse' übertragen (kopiert und unformatiert in Tabelle 'Ergebnisse' eingefügt).
Inhalt aus 'Tabelle1 O3' nach 'Ergebnisse B3'
Zellinhalt aus 'Tabelle B4:D19 ' nach 'Ergebni...
22.02.2012 06:50:10
Thread-ID: 1251789
29 Beiträge
Tabellenblatt per Makro in CSV mit Datum
Luca-Darius

Hallo, ein Tabellenblatt per Makro als CSV-Datei abzuspeichern habe ich noch hinbekommen. Ich möchte aber hinter dem Dateinamen noch das aktuelle Datum abspeichern und bekomme es leider nicht hin. Die richtige Syntax dafür fehlt mir leider!
Könnt ihr helfen - Danke!
21.01.2013 11:17:30
Thread-ID: 1295190
3 Beiträge
Tabelleblatt mit Datum
Kai

Hi,
ich habe mehrere Tabellenblätter (Mo, Di, Mi, Do, Fr, Sa, So), wo geplant wird. Wann, welches Fahrzeug wohin fährt.
In einem Tabellenblatt (Tarif (12.05.2015)) habe ich den Tarif stehen. Jetzt kann es sein das der Tarif sich in der Woche ändert.
Wie kann ich aus dem Tabellenblat...
13.05.2015 14:11:11
Thread-ID: 1426159
2 Beiträge
Anzeige
Topt 10 Liste mit Details nach wählbarem Datum
Stephan

Guten Tag,
ich bin mir sicher, dass es eine Lösung für mein Problem gibt.
Folgendes; ich habe eine Tabelle (siehe Anhang), die ein Teil einer riesen Erfassungsdatenbank ist.
Aufgrund derer möchte ich eine Grafik generieren, respektive zuerst eine Tabelle, die mir vom Datum heute das...
08.07.2015 14:12:03
Thread-ID: 1435285
8 Beiträge
Tabellenblatt kopieren mit weiterer Datumsfunktion
Stefan

Hallo!
Ich habe folgendes Problem.
Ich habe eine Tabelle diese soll 52 Tabellenblätter haben mit KW1 und KW2 usw.
Das hätte ich bereits durch ein Makro gelöst und funktioniert super. KW steht für _ Kalenderwoche Sub KW() Dim i For i = 2 To 53 Sheets(1).Copy After:=Sheets(Sheets....
11.10.2015 23:16:17
Thread-ID: 1451803
3 Beiträge
Tabellenblatt kopieren mit weiterer Datumsfunktion
Stefan

Hallo!
Ich habe bereits einen Beitrag geschrieben, aber auf diesen kann ich leider nicht mehr antworten siehe Link darunter und ich hoffe es kann mir die Funktion jemand noch weiter anpassen.
https://www.herber.de/forum/archiv/1448to1452/t1451803.htm
Das Problem ist das es von Sepp...
18.10.2015 15:28:16
Thread-ID: 1452909
7 Beiträge
Änderungsdatum zusätzlich mit auflisten...
Florian

Hi Zusammen,
folgendes Problem:
Ich habe hier ein Makro, das mir aus dem Ordner ("Z:\ablage\AV\....") alle Namen der Excel Dateien und der jeweiligen Arbeitsblätter auflistet. Jetzt würde ich aber gerne das Makro so erweitern, das es mir noch zusätzlich das letzte Änderungsdatum der Exc...
12.01.2017 16:54:27
Thread-ID: 1534707
5 Beiträge
indirekt Zugriff auf Tabellen mit Datum
olga

Hallo,
ich habe Tabellen mit Datum angelegt.
z.B. 14.11.2016; 15.11.2016
Wie kann ich auf die einzelen Tabellen zugreifen?
=INDIREKT("'"&A$3&"'!B1") Fehler, Bezug
https://www.herber.de/bbs/user/111395.xlsm
Danke!
Gruß
Olga
12.02.2017 12:20:11
Thread-ID: 1540962
3 Beiträge
Tabelle mit festen Namen+Speicherdatum abspeichern
Andi


Hallo, habe ein kleines Problem mit dem Code. Wollte ihn erweitern, so das noch ein weiteres Sheets zusätzlich mit dem Speicherdatum als .xlsx gleich mit in dem ausgewählten Ordner gespeichert wird. Das Blatt befindet sich mit in der geöffneten Arbeitsmappe.
Sub Speichern_in_PDF_XLSX...
14.03.2017 20:59:29
Thread-ID: 1547436
2 Beiträge
ListenFeld mit Datum, Userform aktualisieren
Lea

Hi ,
ich habe ein Problem: bei Auswahl des Listenfeldes mit Datum füllen sich die Textboxen korrekt, aber die USERFORM aktualisiert sich nicht bei erneuten Datumsauswahl, so dass "alte", vorangegangene Daten sichtbar bleiben. Bei Speichern ist es dann fatal....
Ich möchte alserreiche...
13.10.2017 10:48:45
Thread-ID: 1585690
3 Beiträge
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

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