Office: Automatisch Blätter anlegen

Hallo,

ich habe eine Liste mit ca. 50 Namen. Für jeden dieser Namen soll ein extra Blatt in Excel angelegt werden. Das Blatt soll den jeweiligen Namen tragen. Der Inhalt des Blattes ist eine bereits erstellte Vorlage. Der Name soll außerdem in eine Zelle (z.B. C3) eingefügt werden. Ist so etwas möglich?

Danke :-D

Uwe

 

Hallo,

folgendes Makro in ein Modul kopieren:

Sub Tabellenblätter_einfügen()
For x = 1 To 50
ActiveCell.Offset(1, 0).Range("a1").Select
y = ActiveCell.Value
Sheets.Add
ActiveSheet.Name = y
Range("C3").Select
ActiveCell.Value = y
Sheets("Tabelle1").Select
Next x
End Sub

Trage in dem Blatt "Tabelle1" ab A2 bis A51 die Namen ein und wähle dann A1 aus. Nun Makro laufen lassen.

Gruß
J.

 

Hallo,

vielen Dank für die Antwort. Allerdings meldet sich EXCEL mit einer Fehlermeldung 400 ??? Da ich mich nicht mit der Programmierung auskenne, kann ich nicht sagen, warum die Meldung kommt. Ist vielleicht irgendwo noch ein Fehler oder so? Blätter werden angelegt, allerdings ohne den Namen zu ändern.

Danke

 

Hallo,

ist der Blattschutz auch deaktiviert? Ansonsten ist zu beachten, daß ein Tabellenblatt mit dem gleichen Namen wie das, was gerade erzeugt wird, nicht bereits existieren darf!

Gruß
J.

 

Hallo,

ja, der Blattschutz ist deaktiviert. Leider kann ich über diesen Fehler nichts finden. Gibt es irgendwo im Netz eine Übersicht über die verwendeten Befehle? Soll ich einen Screenshot schicken?

Danke

 

Ach so, noch was

Wenn ich in VisualBasic mit F8 debugge, kommt in der Zeile

Range("C3").Select

Laufzeitfehler '1004'

Hat das was zu sagen?

Danke

 

Hallo,

funktioniert das Beispiel bei Dir? Nach öffnen der Datei mit Strg+q starten.

Gruß
J.

 

Ja,

jetzt klappt es ohne Probleme. Die Zeile mit dem DIM hat beim ersten Mal gefehlt.

Nochmals vielen Dank für Hilfe. So spare ich eine Menge Arbeit.

Uwe

 

Muss leider schon wieder posten

Wie schaffe ich es, dass immer die gleiche Vorlage (Formblatt) für das neue Blatt verwendet wird?

Danke

 

Hallo,

das Beispiel wird Dir helfen.

Gruß
J.

 

Hi,

das Ergebnis ist das Gleiche wie vorher, also ohne Verwendung der Vorlage. Oder hab ich was übersehen.

Danke

Uwe

 

Halt STOP,

es geht doch. Aus irgend einem Grund war noch das alte Makro aktiv.

Nochmals danke.

Uwe

 

:?: Hallo nochmal,

noch eine Frage: Warum wird die Datei nun 12MB!!! groß. Im letzten Jahr hatte ich die Blätter manuell angelegt. Da war die gleiche Anzahl Blätter mit Werten ca. 300kB groß. Kommt das durch´s Makro? Kann ich das irgendwie ändern?

Danke

Uwe

 

Hallo,

wenn ich das Makro der Testdatei mit 50 neuen Tabellenblättern laufen lasse und dann abspeichere, ist die Datei 180 KB groß. Das Makro scheint also so weit in Ordnung zu sein, so daß das Aufblähen eine andere Ursache haben muß. Eine Lösung weiß ich leider momentan auch nicht. :-(

Gruß
J.