Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
196to200
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
196to200
196to200
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Tabellenblatt nach Vorlage automatisch erstellen.

Tabellenblatt nach Vorlage automatisch erstellen.
27.12.2002 08:50:34
Gerold Dornbusch
Hallo,

Ich will anhand einer Namensliste für jeden Eintrag ein eigenes
Tabellenblatt anlegen.
Ich habe für dass Problem in diesem Forum folgenden Code bekommen.

Sub tabneu()
Dim i, z As Double
ActiveSheet.Range("A:A").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z
Sheets(2).Select
Sheets.Add
ActiveSheet.Name = Sheets(1).Cells(z, 1).Value
z = z - 1
Next i

End Sub

Diese Lösung funktioniert perfekt.

Ich habe jetzt aber ein weiteres Problem.
Die so erstellten Tabellenblätter sind nicht formatiert.

Nun meine Frage.
Gibt es die Möglichkeit ein innerhalb einer Arbeitsmappe
vorliegendes Musterblatt zu kopieren und damit, nach
einer Namensliste Tabellenblätter anzulegen?

Im voraus schon mal besten Dank.

Gruß
Gerold




7
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Tabellenblatt nach Vorlage automatisch erstellen.
27.12.2002 08:53:28
Hajo_ZI
Hallo Gerold

falls Su das Blatt öfters braucht lege doch eine Mustervorlage an und füge es wie folgt ein
Sheets.Add Type:="C:\Programme\Microsoft Office\Vorlagen\Preisliste\Belader.xlt"

Gruß Hajo

Re: Tabellenblatt nach Vorlage automatisch erstellen.
27.12.2002 08:58:02
andreas e
Hallo gerold ,
das geht etwa so:

Sub tabneu()
Dim i, z As Double
ActiveSheet.Range("A:A").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z

Sheets(1).Copy after:=Sheets(1)

ActiveSheet.Name = Sheets(1).Cells(z, 1).Value
z = z - 1
Next i

End Sub

gruß
andreas e

Re: Tabellenblatt nach Vorlage automatisch erstellen.
27.12.2002 09:13:40
andre
hallo gerold,
wenn ich blätter mit gleichen formaten öfters brauche zeichne ich zuweilen die ganze arbeit beim formatieren auf, optimiere das und erzeuge damit die neuen blätter. das hat auch den vorteil, dass damit größenprobleme minimiert werden. ein kollege von mir hat mit dem ganzen hin und her - kopieren und spalten einfügen ... mal eine datei auf 17 mb gebracht. ich habe die datei inkl. formate mit makro neu erzeugt, die werte! aus der großen übernomen, und hatte dann ca. 350 kB.
gruss andre
Anzeige
Re: Tabellenblatt nach Vorlage automatisch erstellen.
27.12.2002 09:16:44
Gerold Dornbusch
Danke für die prompte Hilfe,
ich komme aber noch nicht weiter.

Wenn ich folgenden Code benutze:

Sub tabneu()
Dim i, z As Double
ActiveSheet.Range("A:A").End(xlDown).Offset(1, 0).Select
z = ActiveCell.Row
z = z - 1
For i = 1 To z

Sheets(1).Copy after:=Sheets(1)

ActiveSheet.Name = Gerold.Cells(z, 1).Value
z = z - 1
Next i

End Sub

kopiere ich nur das Tabellenblatt mit dem Inhalt meiner
Namensliste.Ich möchte aber als Vorlage ein anderes
Tabellenblatt nehmen.

Gruß
Gerold

Re: Tabellenblatt nach Vorlage automatisch erstellen.
27.12.2002 09:18:32
Gerold Dornbusch
Hallo Hajo,
vielen Dank für den Vorschlag.

Gruß
Gerold

Anzeige
Re: Tabellenblatt nach Vorlage automatisch erstellen.
27.12.2002 09:19:13
andreas e
Hallo gerold,
dann ersetze sheets(1).copy.after
die (1) durch die nummer des zu kopierenden sheets oder durch sheets("DEIN_Tabellenname")
das müsste gehen
gruß
andreas e
Re: Tabellenblatt nach Vorlage automatisch erstellen.
27.12.2002 09:59:30
Gerold Dornbusch
Danke Andreas,
so funktioniert es perfekt.

Ich wünsche Dir einen guten Rutsch ins neue Jahr.

Gruß
Gerold D

125 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige