bestehenden Code anpassen
13.11.2013 14:00:18
Andreas
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
Danke fürs Lesen und die Hilfe!
mfg, Andreas
Anzeige