Office: (Office 2013) VBA Tabellenblatt kopieren und fortlaufend benennen

Hallo ich brauche mal Hilfe zu einer Programmierung.
Ich benötige jeden Monat eine Datei mit mehreren Tabellenblättern - je nach Monat 29-31 mit jeweils der gleichen Tabelle zum ausfüllen. Benannt werden sollen die Blätter fortlaufend mit dem jeweiligen Datum jedoch in folgender Schreibweise 20160301 bis 20160331.
Ich hoffe es kann mit jemand weiter helfen.

 

Hallo!
Mal grob so:
<pre style='border:thin solid #000000; padding:12px 24px; margin-left:12px; color:#000000'><span style='color:#0000EE'>Sub</span> Daten()
<span style='color:#0000EE'>Dim</span> cnt <span style='color:#0000EE'>As</span> <span style='color:#0000EE'>Long</span>
<span style='color:#0000EE'>For</span> cnt = <span style='color:#FF0080'>1</span> <span style='color:#0000EE'>To</span> Worksheets.Count
Worksheets(cnt).Name = Format(DateSerial(<span style='color:#FF0080'>2016</span>, <span style='color:#FF0080'>2</span>, cnt), <span style='color:#FF0000'>&quot;yyyymmdd&quot;</span>)
<span style='color:#0000EE'>Next</span>
<span style='color:#0000EE'>End</span> <span style='color:#0000EE'>Sub</span></pre>
Jahr und Monat kannst Du natürlich auch per Variable übergeben.

Gruß Ralf

 

Hi,

ich nehme an, du hast in der Arbeitsmappe ein Tabellenblatt, welches als Vorlage dient und entsprechend oft kopiert und benannt werden soll?

Code:

Sub TabsErstellen()
    Dim intZaehler As Integer
    For intZaehler = 1 To Day(Application.EoMonth(Date, 0))
        Worksheets("Vorlage").Copy after:=Worksheets(Worksheets.Count)
        Worksheets(Worksheets.Count).Name = Format(DateSerial(Year(Date), Month(Date), intZaehler), "yyyymmdd")
    Next intZaehler
End Sub

Der Code geht vom aktuellen Datum aus, um den Monat und das Jahr zu bestimmen. Falls das anders sein soll, musst du anstelle Date etwas anderes als Bezug nehmen.

Bis später,
Karin

 

Danke für die schnellen Antworten leider funktioniert es irgendwie nicht. Es kommt immer Laufzeitfehler.
Kann man in die Programmierung noch eine Abfrage einbauen wie viele Kopien benötigt werden?

 

Und was für eine Laufzeitfehler - also was sagt der Debugger genau?

Was meinst du mit "wie viele Kopien" - Kopien von was? Der Code erstellt doch so viele Kopien vom Tabellenblatt Vorlage wie es Tage im Monat gibt...

Bis später,
Karin

 

Laufzeitfehler 438.

 

Die Nummer nützt niemandem etwas, da sich darunter verschiedene Fehler verbergen - deshalb hatte ich geschrieben: "was sagt der Debugger genau?"
Und in welcher Zeile kommt der Fehler?

Bis später,
Karin

 

Fehlerzeile: For intZaehler = 1 To Day(Application.EoMonth(Date, 0))
Es wird intZaehler = 0 angezeigt

 

Schön, du möchtest nicht sagen, was der Debugger genau ausgibt und ohne das zu wissen kann ich dir leider nicht weiterhelfen, denn ich erhalte keinen Fehler.

Bis später,
Karin

 

ansonsten wird nur noch "Objekt unterstützt diese Eigenschaft oder Methode nicht"

 

ansonsten wird nur noch "Objekt unterstützt diese Eigenschaft oder Methode nicht"

 

Du benutzt Excel2013? Dann dürfte die Funktion MONATSENDE() bzw. Application.EoMonth() keinen Fehler auslösen, da sie bereits seit Excel2007 standardmäßig integriert ist.
Falls es eine Excel-Version vor 2007 ist, verwende stattdessen Day(DateSerial(Year(Date), Month(Date) + 1, 0))

Bis später,
Karin