Office: (Office 2013) Tabellenblatt kopieren und automatisch umbennen

Guten Morgen alle miteinander,

ich habe folgendes Problem:

Ich habe eine Excelfile in welchem ich Tabellenblätter habe, welche wiefolgt benannt sind:

start,...,CW12, CW11, CW 09,...,CW01, end, Cw-Vorlage

Nun möchte ich durch ein Makro automatisch das Tabellenblatt "CW-Vorlage" vor CW 12 usw kopieren und automatisch umbennen zu CW13, CW14 usw.

Wenn es machbar ist sogar durch autoamtisches auslesen der aktuellen Kalenderwoche.

Ist das möglich, hat jemand eine Idee?

Grüße

:)

 

Hallo,

Hier der Code:

Code:

Das mit dem automatisch die Kalenderwoche auslesen hab ich noch nicht gemacht.
Und zwar weil ich dazu noch eine Frage hab.
Willst du da die aktuelle Kalenderwoche, oder die letzte?

Momentan benennt er einfach fortlaufend. Sprich es gibt die Tabellenblätter "start" - "CW02" - "CW01" - "end" - "Cw-Vorlage" also sollte die Kopie wenn du das Makro ausführst "CW03" heißen.
Im Endeffekt sieht dass dann so aus:
"start" - "CW03" - "CW02" - "CW01" - "end" - "Cw-Vorlage"

Bitte um Rückmeldung.

LG
BrunMi

 

Geht alles

Kalenderwoche: (Hier als Funktion)

Code:

Kopieren incl Reihenfolge (in dem Fall After, für deinen Fall Before)

Code:

Grüße

 

So wäre der Code für die jetzige KW (nicht getestet)

Code:

LG
BrunMi

 

Hallo ihr beiden vielen vielen Dank für eure Hilfe,

bin noch ein absolut blutiger Anfänger in VBA und versuchte eure Codes zu lesen und zu verstehen was diese genau machen. Ich habe mich nun entschieden, nicht das automatische auslesen der aktuellen Kalenderwoche einzubauen, sondern einfach nur CWxx+1 zu. Habe eure beiden Codes zusammengefügt und es funktioniert nun einwandfrei.

Der Code sieht jetzt wie folgt aus:


Code:

Vielen Dank nochmal, ihr seid super!! *grins *grins

 

Hallo zusammen

Ich habe ein ähnliches Problem und da ich mich mit den Makros so gar nicht auskenne, hoffe ich auf eure Hilfe.

Ich habe ein Tabellenblatt namens Vorlage mit einem Tagesplan (quasi ein täglicher Stundenplan) und ich möchte für jeden Tag ein neues Tabellenblatt erstellen mit meinem Tagesplan. Daher kopiere ich momentan einfach die Vorlage und benenne diese um. Dabei soll in einer Zelle (C1) das Datum des jeweiligen Tages stehen und zusätzlich (wie erwähnt) müsste das Tabellenblatt ebenfalls das Datum des jeweiligen Tages tragen.

Könnt Ihr mir da helfen mit dem Code? Ich habe versucht eine Tabelle mit den Daten zu machen aber bin dann irgendwo stecken geblieben... *frown.gif* Einfach pro Befehl nur ein neues Blatt würde ebenfalls reichen, je nachdem was einfacher ist.

Ich danke euch und Gruss
Sacha