Tabellenblatt kopieren

02/12/2008 - 16:03 von Berthold Erfkämper | Report spam
Hallo NG-Gemeinde.

Ich wollte gerne ein Tabellenblatt welches eine KW abbildet nun gleich
51 mal kopieren und gleich so umbenennen das es KW xx heisst.

Hier mein erster Ansatz (der ordentlich in die Hose ging ;-()

Sub neueTabellenblàtter()
For i = 1 To 51
Worksheets.Copy After:=Sheets("KW")
ActiveSheet.Name = "KW " & i
Next i
End Sub

Sicherlich kennt Ihr eine elegantere Lösung für dieses Problem. Ich habe
leider noch keine gefunden.
Darum bitte ich um Eure Mithilfe.

Danke.

Berthold
 

Lesen sie die antworten

#1 Claus Busch
02/12/2008 - 16:19 | Warnen spam
Hallo Berthold,

Am Tue, 02 Dec 2008 16:03:10 +0100 schrieb Berthold Erfkàmper:

Ich wollte gerne ein Tabellenblatt welches eine KW abbildet nun gleich
51 mal kopieren und gleich so umbenennen das es KW xx heisst.

Hier mein erster Ansatz (der ordentlich in die Hose ging ;-()

Sub neueTabellenblàtter()
For i = 1 To 51
Worksheets.Copy After:=Sheets("KW")
ActiveSheet.Name = "KW " & i
Next i
End Sub



der Ansatz war schon ganz richtig. Du hàttest nur das zu kopierende
Worksheet referenzieren sollen.
Allerdings haben dann alle Blàtter doch die gleichen Eintràge der
Kalenderwoche. Wenn du in den neuen Blàttern auch die jeweilige
Kalenderwoche drin haben möchtest, solltest du mal schreiben, wie deine
Tabelle aufgebaut ist und vor allem wo deine Daumswerte stehen.
Nur zum Kopieren benenne dein erstes Blatt mit KW 1 und probiere es mal
so:
Sub BlattKopieren()

Dim i As Integer

For i = 2 To 52
Worksheets("KW 1").Copy after:=Sheets(Sheets.Count)
ActiveSheet.Name = "KW " & i
Next

End Sub


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP3 / Vista Ultimate
Office 2003 SP3 / 2007 Ultimate SP1

Ähnliche fragen