Clever-Excel-Forum

Diesen Code habe ich bereits geschrieben/kopiert:

Code:
Sub VorlageKopiernnachDatum()                                                 

  Dim rngC As Range

  Application.ScreenUpdating = False

  For Each rngC In Sheets("DATEN").Range("R5:R52")

    If rngC <> "" Then

      Sheets("Vorlage").Copy after:=Sheets(Sheets.Count)

      With ActiveSheet

        .Name = rngC

        .Range("L3") = rngC

      End With

    End If

  Next

End Sub

Ich möchte diesen nun Code Erweitern.
Generell Gibt es das Blatt "DATEN" in dem alle benötigten werte eingetragen werden. Das Blatt "Vorlagen" wird Kopiert und nach dem Wertebereich "DATEN R5:R52" benannt.

Nun sollten such noch die Werte im bereicht ("U5:U52" des Arbeitsblatt "DATEN") in das jeweils passende Arbeitsblatt in Feld $A$12 eingesetzt werden.

Heißt in
Arbeitsblatt mit dem Namen =R5 soll in Feld A12 der Wert =U5 aus "DATEN" eingesetzt werden
Arbeitsblatt mit dem Namen =R6 soll in Feld A12 der Wert =U6 aus "DATEN" eingesetzt werden
Arbeitsblatt mit dem Namen =R7 soll in Feld A12 der Wert =U7 aus "DATEN" eingesetzt werden
...

Problem hat sich gelöst.

jon

jon