noch ein kleines Problemchen. Ich habe in diesem super Forum folgenden Code gefunden, mit dessen Hilfe ich mein Blatt "vorlage" kopiere und benenne. Außerdem wird der Zellinhalt aus dem Blatt Steuerung jeweils in die Zelle C1 geschrieben.
Sub BlatterAnlegen()
Dim rngC As Range
Application.ScreenUpdating = False
For Each rngC In Sheets("Steuerung").Range("c1:c5")
If rngC "" Then
Sheets("vorlage").Copy after:=Sheets(Sheets.Count)
With ActiveSheet
.Name = rngC
.Range("C1") = rngC
End With
End If
Next
End Sub
Jetzt soll aber nicht der jeweilige Zellinhalt aus C1:C5 in C1 der Kopie eingetragen werden sonder der Inhalt von A1:A5.Danke fürs Lesen und die Hilfe!
mfg, Andreas