01.02.2019, 13:07
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
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