Tabellen kopieren

Bild

Betrifft: Tabellen kopieren
von: Mario
Geschrieben am: 30.10.2003 20:05:42

Hallo zusammen

habe folgendes Problem.
Ich möchte mit folgenden Makros das Tabellenblatt2 400 mal
kopieren.
Copy Methode erzeugt einen Fehler bei 255.


Sub Kopieren_Tabellenblatt()
   Dim wks As Worksheet
   Dim iCounter As Integer
   Application.ScreenUpdating = False
   Set wks = ActiveSheet
   For iCounter = 2 To 401
      wks.Copy after:=Worksheets(Worksheets.Count)
      ActiveSheet.Name = iCounter
   Next iCounter
   Worksheets(1).Select
   Application.ScreenUpdating = True
End Sub


Funktioniert nicht!


Sub NeueTabellen()
   Dim iCounter, T, S As Integer
   'For T = 1 To 12
   For iCounter = DateSerial(2004, 1, 1) To DateSerial(2004, 12, 31)
      Worksheets.Copy after:=Worksheets(Worksheets.Count)
       ActiveSheet.Name = iCounter
    Next
End Sub


Funktioniert auch nicht

Vielen Dank für eure Hilfe.

Gruss Mario
Bild


Betrifft: AW: Tabellen kopieren
von: Peter
Geschrieben am: 30.10.2003 20:11:19

Hallo,

Du kannst nur 255 Sheets in eine Mappe packen!

Gruss Peter


Bild


Betrifft: AW: Tabellen kopieren
von: Mario
Geschrieben am: 30.10.2003 20:19:21

Hallo

Etwas verstehe ich nicht.
Mit folgendem Makro kann ich mehr
als 255 neue Blätter einfügen.
Warum ?


Sub Neue_Tabellen()
   Dim iCounter, T, S As Integer
   'For T = 1 To 12
   For iCounter = DateSerial(2004, 1, 1) To DateSerial(2004, 12, 31)
      Worksheets.Add.Move after:=Worksheets(Worksheets.Count)
       ActiveSheet.Name = iCounter
    Next
End Sub


Gruss Mario


Bild


Betrifft: Maximale Anzahl Blätter in einer Mappe
von: Boris
Geschrieben am: 30.10.2003 21:45:53

Hi Mario,

die Blattanzahl ist NUR durch den zur Verfügung stehenden Speicher begrenzt. Eine offizielle Begrenzung gibt es nicht.

Grüße Boris


 Bild

Beiträge aus den Excel-Beispielen zum Thema " Tabellen kopieren"