Office: Tabellen vervielfätigen!

Hallo Ihr Lieben!
Nachdem mir Krino so toll mit dem Sparkasten geholfen hat,habe ich noch ein kleines Problem.Ich möchte die Seiten gerne 70 mal kopieren bzw.vervielfätigen. Im alten Programm war es unter den Seiten so gelöst worden:Tabelle 1(1),Tabelle 1(2) usw. bis Tabelle 1(70).weiß hier jemand wie man das macht?Im Thema "Sparkasten"(im Forum) ist eine Tabelle zum runterladen oder zum ansehen.Ich danke im vorraus für Eure Hilfe und wünsche allen ein frohes und gesundes neues Jahr 2008.
Mit freundlichen grüßen Detlef. :lol: :-) :-D

 

Hallo!

Entweder machst du das 70x manuell (Rechtsklick auf den Tabellenreiter > Verschieben/kopieren), oder du lässt das ein Makro für dich übernehmen:
Rechtsklicke den Tabellenreiter und wähle "Code anzeigen"
Kopiere diesen Code ins Codefenster rechts, setze den Cursor irgendwo in den Code und drücke F5. (Danach kannst du den Code wieder löschen falls du ihn nicht mehr brauchst.)

Code:

Sub Kopieren()
Dim i As Integer
For i = 1 To 69
Sheets(1).Copy After:=Sheets(i)
Next i
End Sub

 

Tabellen vervielfältigen!

Mal ganz nett Danke gesagt für die Hilfe.Es hat gut geklappt und nun läuft alles so wie ich mir das so vorstelle. Danke und mit Freundlichen Gruß
Detlef