Live-Forum - Die aktuellen Beiträge
Datum
Titel
19.04.2024 10:59:29
Datei Auswählen und öffnen
19.04.2024 10:46:47
Bestimmte Zellen aus dynamischer Liste zurückgeben
19.04.2024 10:39:36
Schaltfläche auf einem Tabellenblatt NICHT mit abspeichern
19.04.2024 09:26:26
Median für Zeilen mit gleichen Zeitstempel
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
592to596
592to596
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Tabellenblätter automatisch anlegen

Tabellenblätter automatisch anlegen
06.04.2005 16:14:31
zeh06
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Tabellenblätter automatisch anlegen
06.04.2005 16:45:48
ransi
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
AW: Tabellenblätter automatisch anlegen
07.04.2005 09:14:19
zeh06
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
Anzeige
AW: Tabellenblätter automatisch anlegen
07.04.2005 10:36:02
Frank
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
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige