Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 14:07:03
Alternative Summewenn für Verlinkung closed Workbook
23.04.2024 13:44:37
Datum in Excelformel anzeigen
23.04.2024 13:31:41
alle Tabellblätter als csv exportieren - Verzeichnis wählen
23.04.2024 13:19:18
Daten aus externer Datei als Bereich übernehmen... ?
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1656to1660
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
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 Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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
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
Anzeige
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
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

41 Forumthreads zu ähnlichen Themen

Tabellenblattname mit Datum und Uhrzeit
Klaus

Hallo, meine großen Gurus!
Ich hab da wieder mal eine kurze Frage?
In einer VBA-Prozedur verwende ich den Befehl ActiveSheet.Name = Format(Date, "dd/mm/yy"), um eine Kopie der Originaltabelle mit dem aktuellen Datum wegzusichern.
Wenn ich dies, was zwar sehr selten vorkommt, 2 x täg...
07.07.2009 10:08:55
Thread-ID: 1086880
6 Beiträge
Anzeige
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
Anzeige
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
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
Anzeige

Links zu Excel-Dialogen

InputBox

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
5
5
3
3
28
2
1
7
2
6
10
4
2
1
6
2
1
8
5
2
5
5
2
5
2