Makro automatisch Seiten erstellen und Inhalt einfügen

[jon]

Danke für den Code und für die Tipps. Ihr seid echt net. Hab jetzt doch ein code Komplet alleine geschrieben. 

Mein Code/ zwar nicht so schön wie die andere, aber es funktioniert ganz gut: 

Sub Vorlage()
  Dim rngC As Range
  Application.ScreenUpdating = False
  For Each rngC In Sheets("DATEN").Range("S5:S52")
    If rngC <> "" Then
      Sheets("Vorlage").Copy after:=Sheets(Sheets.Count)
      With ActiveSheet
        .Name = rngC
        .Range("L3") = rngC
      End With
    End If
  Next
End Sub