Neue Tabellenblätter auf Basis Liste

Ich habe in meiner Excel-Datei zwei Sheets: "Vorlage" und "Administration". Das Sheet "Vorlage" soll gemäss Angaben im Sheet "Administration" kopiert und umbenennt werden. Zusätzlich sollen Formelteile mit Suchen/Ersetzen angepasst werden. Alle Vorgaben befinden sich im Sheet "Administration":
-------------------------------------
Sheet Administration:
-------------------------------------
Monat | Default | Ersatz
Januar | Vorlage_ | Apfel_
Februar | Vorlage_ | Birne_
März | Vorlage_ | Orange_
Das Kopieren und umbenennen gemäss Vorgabe funktioniert. Nun habe ich aber ein Problem mit dem Suchen/Ersetzen. Wie kann ich die entsprechende Zeile abfragen?
Hier mein bisheriger Makrobefehl:


Sub NeueBlaetterErzeugen()
For Each NeueTabelle In Worksheets("Administration").Range("tb_Administration[Monat]").Value
Sheets("Vorlage").Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = NeueTabelle
Cells.Select
Cells.Replace What:="tb_Administration[Default]", Replacement:="tb_Administration[Ersatz]"
Next
MsgBox "Fertig."
End Sub

Ziel wären drei zusätzliche Sheets "Januar", "Februar", "März". Im Januar-Sheet sollen die Formelelemente "Vorlage_" ersetzt sein mit "Apfel_". Im Februar-Sheet "Vorlage_" mit "Birne_" usw.
Besten Dank für hilfreiche Tipps.

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Nepumuk
Leider generiert dein Skript einen Laufzeitfehler 424 "Objekt erforderlich". Ich habe anschliessend mehr per "Trial and Error" meine tb_Administration geändert - aber ohne Erfolg. z.B. habe ich die Spalte "Default" gelöscht. Eigentlich wollte ich das Ganze aber dynamisch halten.
Mein Hauptproblem ist der VBA-Code für das Generieren eines Array der tb_Administration. 1. Spalte = Name für das neue Tabellenblatt, 2. Spalte = Suchtext, 3. Spalte = NeuerText. Das Array soll nachher Zeile für Zeile durchlaufen und pro Zeile ein neues Tabellenblatt generieren. Der Name für das neue Blatt ist der Text in der 1. Spalte. Beim Generieren des neuen Blattes soll die Vorlage auf den Suchtext (= 2. Spalte) geprüft und dieser durch NeuerText (=3. Spalte) ersetzt werden.
Vielleicht habe ich zuvor die Aufgabenstellung zu wenig klar formuliert. Hättest du nochmals einen Input? Danke dir bestens im voraus.

Sub BlattErzeugen() Dim myArray() As Variant myArray() = Worksheets("Administration").Range("tb_Administration").Value For I = LBound(myArray) To UBound(myArray) Sheets("Vorlage").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = myArray(I, 1) Cells.Select Cells.Replace What:=myArray(I, 2), Replacement:=myArray(I, 3) Next I MsgBox "Blätter sind erzeugt und die Texte ersetzt!" End Sub

Beliebteste Forumthreads (12 Monate)

Neue Tabellenblätter auf Basis Liste

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

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread