Tabellenblätter mit allen Formate kopieren geschlossen

[Lattenjup]

Ich möchte eine Monatsdatei anlegen, für jeden Tag ein Tabellenblatt
Tabellenblatt 01 habe ich fertig mit allen Inhalten und Formatierungen, ist der erste Tag.
jetzt sollen alle weiteren Tage fortlaufend mit allen Formatierungen bis Tag 31 so werden wie Tabellenblatt 01
wie kann man das am besten und schnellste kopieren

 

[Sampson]

...Du kannst doch in der Unteren Leiste "Tabelle1" kopieren
"Rechte Maustaste" -> Verschieben/Kopieren
Jetzt (ans Ende stellen) auswählen, und ein Häkchen bei "Kopie erstellen" machen. Anschließen OK

 

[Lattenjup]

das weis ich ja
da muss ich das 30 mal machen und 30 mal das Datum im jeweiligen Tabellenblatt ändern

 

[yuhu]

das weis ich ja

Fein, dann sag doch zu Beginn, das du dies nicht moechtest .

Ist halt der einzige einfache Weg.
Makros wuerde ich da nicht als einfacher bezeichnen, wobei hier ja die Arbeit beim Makroautor laege...

Gruss
yuhu

 

[totsch]

Hallo

lege zuerst die 31 Tabellenblätter an.
Wähle dann >> Einfügen >> Namen >> Festlegen und vergebe folgende Namen:

Name: Tabellen
bezieht sich auf: =ARBEITSMAPPE.ZUORDNEN(1)

Name:Tab
bezieht sich auf: =TEIL(ZELLE("Dateiname";INDIREKT("A1"));FINDEN("[';ZELLE('Dateiname';INDIREKT('A1')));999)

Name:Nr
bezieht sich auf:=VERGLEICH(Tab;Tabellen;0)


wähle nun alle 31 Tabellenblätter aus und schreibe in A1 (oder eine beliebge andere Zelle) =Nr
Dadurch erhältst du in A1 der Tabellenblätter die Ausgabe der Position des aktuellen Tabellenblattes innerhalb der Arbeitsmappe (1 bis 31 jeweils in A1)
Du kannst aber auch ohne Namensfestlegungen manuell in A1 der Tabellenblätter die Zahlen 1 bis 31 eingeben.


nun mit ALT + F11 >> einfügen >> Modul und dann den folgenden Code einfügen und ausführen:

Sub BlattNameausA1()
Dim wks As Worksheet
For Each wks In Worksheets
wks.Name = wks.Range("A1").Value
Next
End Sub

durch das Ausführen des Makros werden nun alle Tabellenblätter umbenannt und erhälten die Bezeichnung jeweils von A1 (1 bis 31).

Kopieren/übertragen deiner fertigen Tabelle 1 in die Tabellen 2 bis 31 sollte nun kein Problem für dich sein.

Gruss Totsch