Hallo Zusammen
Ich möchte auf Basis einer Liste neue Blätter in einer Arbeitsmappe erstellen lassen. Das klappt gut mit diesem Code:
Sub AddSheets()
'Updateby Extendoffice
Dim xRg As Excel.Range
Dim wSh As Excel.Worksheet
Dim wBk As Excel.Workbook
Set wSh = ActiveSheet
Set wBk = ActiveWorkbook
Application.ScreenUpdating = False
For Each xRg In wSh.Range("A1:A7")
With wBk
.Sheets.Add after:=.Sheets(.Sheets.Count)
On Error Resume Next
ActiveSheet.Name = xRg.Value
If Err.Number = 1004 Then
Debug.Print xRg.Value & " already used as a sheet name"
End If
On Error GoTo 0
End With
Next xRg
Application.ScreenUpdating = True
End Sub
Nun sollen die neuen Blätter ein bestehendes Sheet als Vorlage verwenden. Leider konnte ich nicht rausfinden was und wo genau ich etwas einfügen muss, damit die neuen Blätter die Formeln und die Formatierung aus der Vorlage verwenden.
Danke für eure Hilfe
Liebe Grüsse
Lisa