VBA - Blatt x mal kopieren, umbenennen, ausfüllen

Hallo zusammen,
ich habe folgendes Problem:
In meinem Blatt "!!Steuerung!" befindet sich von C26 bis C36 (also max. 10 Einträge) eine Liste (keine Listbox, einfache, normale Zellen) mit Namen für neu anzulegende Arbeitsblätter. Ich möchte nun, dass für jeden Eintrag in der Liste eine Kopie des Blattes "!Vorlage!" erstellen und diese Kopie soll dann den Namen aus der Liste erhalten. Außerdem soll der Name in der Kopie in die Zelle A11 geschrieben werden.
Beispiel:
In meiner Liste, die 5 Elemente hat, stehen die Einträge: Haus, Oma, Hund, Katze, Auto. Nun soll das Blatt "!Vorlage!" 5 x kopiert werden, wobei die erste Kopie den Blattnamen "Haus" hat und in Zelle A11 dieser Kopie auch "Haus" steht.
Ich habe mir ein bisschen Code zusammengekrebst, der mir neue Blätter mit von mir gewählten Namen erstellt, aber ein Blatt zu kopieren und A11 zu füllen, habe ich noch nicht hinbekommen.
Ich hoffe ihr könnt mir weiterhelfen.
Gruß

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Sub kopieren() Dim rngC As Range Application.ScreenUpdating = False For Each rngC In Sheets("Steuerung").Range("C26:C36") If rngC "" Then Sheets("vorlage").Copy after:=Sheets(Sheets.Count) With ActiveSheet .Name = rngC .Range("A11") = rngC End With End If Next End Sub

Hallo Rudi,
vielen Dank erst einmal für deine schnelle Hilfe. Habe deine Lösung meinen Bedürfnissen angepasst und sie funktioniert tadellos! Ich freue mich, dass ich dank dir endlich die Tabelle komplett automatisieren konnte.
Ein paar kleine Anmerkungen habe ich aber doch noch.

das sind 11!

In meinem aus div. Foren zusammengekrebsten Code war das so gelöst:


Set Bereich = Range("C26:C" & Range("C36").End(xlUp).Row)

Effektiv hat er also bei C35 aufgehört und ich habe einfach nicht dran gedacht, es fürs Forum hier umzuformulieren.

Ich hatte mich zuerst gewundert, dass die kopierten Tabellen nicht da waren und dachte, dein Code klappt nicht. Aber die so kopierten Tabellen sind -warum auch immer- standardmässig ausgeblendet. Erst dachte ich, das fehlende application.screenupdating = true wäre schuld, aber selbst nachdem ich das hinzugefügt hatte, ging es noch nicht. Ich habe mir dann beholfen, indem ich jede neu kopierte Tabelle per .Visible = xlsheetvisible sichtbar mache

Der Vollständigkeit (und evtl. Suchmaschinen-Crawler) halber hier der für mich einwandfrei funktionierende Code:


Sub kopieren()
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Sheets("!!Steuerung").Range("C26:C36")
If rngC  "" Then
Sheets("!vorlage!").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = rngC
.Range("A11") = rngC
.Visible = xlSheetVisible
End With
End If
Next
Application.ScreenUpdating = True
End Sub

Alleine hätte ich das aber trotzdem niemals hinbekommen, nochmal ein großes Dankeschön an dich, Rudi!

Beliebteste Forumthreads (12 Monate)

VBA - Blatt x mal kopieren, umbenennen, ausfüllen

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

307 Forumthreads zu ähnlichen Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

VBA - Blatt x mal kopieren, umbenennen, ausfüllen

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

307 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

3
Beiträge zum Forumthread

Beiträge zu diesem Forumthread