Tabellenblätter automatisch anlegen

Bild

Betrifft: Tabellenblätter automatisch anlegen von: zeh06
Geschrieben am: 06.04.2005 16:14:31

Hallo,

ich möchte aus einer Liste mit ca. 40 Zahlen (20000-20080) eine Datei erstellen, bei der automatisch ca. 40 Tabellenblätter angelegt/erstellt werden welche als Bezeichnung den Zahlenwert erhalten (Zahlen sind aber nicht fortlaufend, sondern müssen der Liste entnommen werden).

Sheet1 sollte dann '20000' heissen, Sheet2 '20001', etc...

Kann mir da evtl. jemand einen Tipp geben?

Vielen Dank.

Gruss
Frank

Bild


Betrifft: AW: Tabellenblätter automatisch anlegen von: ransi
Geschrieben am: 06.04.2005 16:45:48

hallo
versuchs mal als ansatz so:
Public

Sub t()
Dim L As Long
For L = 1 To 40'schleife wird 40X durchlaufen
Worksheets.Add after:=Worksheets(Worksheets.Count)'am ende ein blatt drangehängt
Worksheets(Worksheets.Count).Name = Cells(L, 1).Value'hier wird der name vergeben
Next'zähler "L" um 1 erhöhen
End Sub

ransi


Bild


Betrifft: AW: Tabellenblätter automatisch anlegen von: zeh06
Geschrieben am: 07.04.2005 09:14:19

Hallo ransi,

Danke für den Tipp. Sieht eigentlich ganz gut aus, aber bei der Durchführung erscheint Laufzeitfehler 1004: Anwendungs- oder objektdefinierter Fehler.
Der Fehler entsteht beim Benennen des neuen Arbeitsblattes. Das Makro versucht aus dem neu erstellten Blatt die Info für die Bezeichnung abzugreifen, und scheitert, weil an der Stelle ja kein Eintrag vorhanden ist.

Hast Du noch 'ne Idee?

Gruss
zeh06


Bild


Betrifft: AW: Tabellenblätter automatisch anlegen von: Frank
Geschrieben am: 07.04.2005 10:36:02

Hallo ransi,

geschafft ;O)
Durch Einfügen von Worksheets("Sheet1"). wird die Bezeichnung immer aus Sheet1 gezogen...
Sieht so einfach aus, bin aber erst nach einigem Probieren dahintergekommen...


Sub neu()
Dim L As Long
For L = 1 To 60 'schleife wird 60X durchlaufen
Worksheets.Add after:=Worksheets(Worksheets.Count) 'am ende ein blatt drangehängt
Worksheets(Worksheets.Count).Name = Worksheets("Sheet1").Cells(L, 1).Value 'hier wird der name vergeben
Next 'zähler "L" um 1 erhöhen
End Sub


Vielen Dank für die Hilfe.

Gruss
Frank


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Tabellenblätter automatisch anlegen"