Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 14:05:48
Makro in aktueller Zelle ausführen mit Doppelklick
25.04.2024 12:56:25
Werte von Kunden und Artikel stehen untereinander
25.04.2024 12:55:42
Funktionsparameter auslesen
25.04.2024 11:49:37
Array verwenden
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1528to1532
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
1528to1532
1528to1532
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblatt kopieren und umbenennen

Tabellenblatt kopieren und umbenennen
28.12.2016 09:57:13
Carsten
Hallo,
ich habe folgendes Problem.
Ich habe ein Standard-Tabellenblatt mit Namen "Tag_Muster". Dieses Tabellenblatt soll kopiert und rechts angefügt werden.
Ich muss dieses Blatt für ein Jahr anlegen. Also vom So., 01.01.2017 bis Mo., 01.01.2018.
Das Blatt soll kopiert und gleichzeitig umgenannt werden.
Ich benötige jedoch nur die Wochentage Montag bis Freitag.
Ich habe zwar schon ein Makro gefunden, das hilft mir jedoch nur bedingt weiter, da es nur eine Tabelle anlegt und umbenennt.
Mir fehlen in dem Makro folgende Schritte:
das Kopieren meiner Mustertabelle und
ich benötige nicht alle sieben Wochentage, sondern nur Montag bis Freitag.
Vielen Dank für Eure Hilfe!
Gruss Carsten

10
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 10:23:16
guenni
Hallo Carsten,
Du hast vergessen, die Mustertabelle beizulegen
Gruß,
Günther
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 11:18:31
Carsten
Jetzt habe ich Sie beigefügt.
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 10:29:08
Tino
Hallo,
verstehe ich dich richtig,
Du möchtest für jeden Wochentag diese Mustertabelle kopieren?
Dann hast Du in der Datei ca. 260 Tabellen?!
Gruß Tino
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 11:19:23
Carsten
Ja, das ist korrekt. Das ganze Jahr in einer Tabelle.
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 13:48:29
Tino
Hallo,
ok. hier eine Version zum testen!
Sub Makro1()
Dim oMuster As Worksheet
Dim tmpDate As Date
Dim DateVon As Date, DateBis As Date

DateVon = DateSerial(2017, 1, 1)
DateBis = DateSerial(2017, 12, 31)

Set oMuster = Worksheets("Tag_Muster")

For tmpDate = DateVon To DateBis
    If Weekday(tmpDate, vbMonday) < 6 Then
        If Not CheckTabelle(Format(tmpDate, "ddd/, dd/mm/yyyy")) Then
            oMuster.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            With Worksheets(ThisWorkbook.Sheets.Count)
                .Name = Format(tmpDate, "ddd/, dd/mm/yyyy")
            End With
        End If
    End If
Next

End Sub
Function CheckTabelle(strTabName$) As Boolean
On Error Resume Next
CheckTabelle = ThisWorkbook.Sheets(strTabName).Index <> 0
On Error GoTo 0
End Function
Gruß Tino
Anzeige
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 14:28:02
Carsten
Hallo Tino,
das ist absolut perfekt! Vielen, vielen Dank!
Das hat mir echt viel Mühen erspart!
Dir einen guten Rutsch ins neue Jahr!
Viele Grüße
Carsten
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 10:31:16
Christian
Hallo Carsten,
ich kann nicht empfehlen, ca. 260 Tabellenblätter mit gleichem Aufbau anzulegen.
Wenn du später etwas am Aufbau änderst, musst du das dann x mal ändern.
Besser:
Daten gleicher Struktur in eine Tabelle schreiben.
Hier kannst du filtern, sortieren, etc.
Ebenso kannst du die Daten eines Tages in dein "Muster-Tab" per Formel übertragen, und das Datum kannst du im "Muster-Tab" wählen.
Aber - Wille, Himmelreich und alles - hier ein Bsp für deine x Tabs: 
Option Explicit
Sub TestIt()
Dim i As Long
Dim datBgn As Date
Dim datEnd As Date
datBgn = "01.01.2017"
datEnd = "10.01.2017"
Application.ScreenUpdating = False
For i = datBgn To datEnd
If Weekday(i, 2)
Gruß
Christian
Anzeige
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 11:21:35
Carsten
Hi, danke für Deine Hilfe. Ich habe natürlich das Kontrollhäckchen nicht genutzt und zudem nicht direkt auf Deinen Tip geantwortet. Sorry. Das erste mal tut noch weh.
Meine Anmerkungen findest Du in einem weiteren Beitrag von mir.
Gruss
Carsten
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 10:41:23
Carsten
Hi,
vielen Dank für Eure schnellen Antworten.
Hier ist zunächst die Tabelle.
https://www.herber.de/bbs/user/110215.xlsm
Ich gebe Euch recht, dass eine Tabelle mit 260 blättern wirklich müßig ist. ;-)
In dieser Tabelle werden die Tagesstände eingetragen. Mein Chef möchte es halt so.
Wenn ich die Lösung von Christian richtig verstanden habe, muss ich das Enddatum lediglich auf den 01.01.2018 setzen und dann sollte es klappen.
Ich werde es gleich probieren.
Gruss
Carsten
Anzeige
AW: Tabellenblatt kopieren und umbenennen
28.12.2016 10:44:30
Carsten
Hallo Christian,
das sieht schon ganz klasse aus.
Jetzt benötige ich vor dem Datum noch den entsprechenden Wochentag.
Mo, 02.01.2017 Di, 03.01.2017 usw.
Dann wäre es perfekt! ;-)

58 Forumthreads zu ähnlichen Themen

Beim Kopieren eines Tabellenblattes den VBA-Code e
Alfi

Hallo Excel-Gemeinde!
ich habe eine mehrblättrige Datei, per Makro kopiere ich ein Blatt und speichere dieses unter neuem Namen ab.
Dieses Blatt soll aber nicht mehr den VBA-Code der ursprübglichen Datei enthalten, sprich ein Blatt ohne Makros.
Wer kann mir helfen?
So sieht der...
09.09.2008 09:58:00
Thread-ID: 1008333
8 Beiträge
Anzeige
Blatt in selber Mappe kopieren und umbenennen
SteffenS

Hallo Zusammen,
ich habe ein Blatt M1 und möchte dieses per Makro gern in der gleichen Mappe noch 11x kopieren und gleichzeitig umbennenn (M2.....M12).
Wie stelle ich dies am Besten an?
Danke im Voraus.
MFG
Steffen Schmerler
14.04.2009 22:30:25
Thread-ID: 1068755
3 Beiträge
Makro Tabellenblatt kopieren als Datei speichern
Milan

Hallo liebe Excel Helfer,
habe folgendes Problem:
Möchte aus eine Datei ein Tabellenblatt kopieren,
Tabellenblatt umbenennen und als neue Datei speichern.
Folgende Aufgabenstellung:
Dateiname: Wareneingang
Tabellenname: Auftrag
Tabellenblatt (Name: Auftrag) kopieren...
22.12.2010 18:02:21
Thread-ID: 1192575
8 Beiträge
Anzeige
VBA - Blatt x mal kopieren, umbenennen, ausfüllen
Wurstmensch

Hallo zusammen,
ich habe folgendes Problem:
In meinem Blatt "!!Steuerung!" befindet sich von C26 bis C36 (also max. 10 Einträge) eine Liste (keine Listbox, einfache, normale Zellen) mit Namen für neu anzulegende Arbeitsblätter. Ich möchte nun, dass für jeden Eintrag in der Liste eine Ko...
16.09.2011 12:36:40
Thread-ID: 1230158
4 Beiträge
VBA Zelle auf anderes Tabellenblatt kopieren
Timonski

Servus...
ich hätte gern beim aktivieren einer Tabelle einen bestimmten Teil eines Zellenwert auf einer anderen Tabelle stehen.
Quellezelle auf Tabellenblatt ABRECHNUNG H6
Ziel auf Tabellenblatt INDEX AY1
meine nicht funktionierende Formel :-)
Sheets("Index").Cells(1, 51) =...
20.03.2012 08:03:41
Thread-ID: 1255689
3 Beiträge
Makro: Shape in beliebiges Tabellenblatt kopieren
Elke

Liebe Experten,
ich habe folgendes Problem: Ich möchte mir aus einem Tabellenblatt "Vorlage" einzelne Shapes in ein beliebiges anderes Tabellenblatt kopieren. Ich habe nun sowohl das Shape als auch die Zelle benannt und das Shape mit der Zelle verbunden, damit habe ich es geschafft das Shap...
25.09.2013 09:43:18
Thread-ID: 1332125
6 Beiträge
VBA Tabellenblatt erkennen und kopieren
Tanja
Hallo Zusammen,
für mich das erste Mal in einem Forum zu schreiben, normal lese ich immer nur und ich tue mein Bestes mein Problem richtig zu erklären ;-)
Ich habe eine Datei, deren erstes Tabellenblatt aus mehreren Hundert Zeilen besteht. Jede Zeile gehört zu einem bestimmten Teilkonzern v...
06.10.2014 18:12:30
Thread-ID: 1385152
6 Beiträge
Tabellenblätter automatisch erstellen und benennen
Bonduca

Hallo,
ich habe folgendes Problem:
In Tabelle 1 sind in der Spalte B (ab B4) Bezeichnungen. Die Anzahl dieser kann variieren. Mit diesen Bezeichnungen sollen neue Tabellenblätter automatisch erstellt werden.
In der Beispieldatei habe ich bereits die Tabellenblätter angelegt.
Auß...
24.02.2015 19:51:33
Thread-ID: 1411292
5 Beiträge
Anzeige

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
7
4
2
7
2
3
2
5
5
4
6
4
1
3
11
2
1
2
3
7
2
12
1
8
5