Office: Tabellenblatt automatisch einfügen

Hallo,

folgendes Problem.

Ich habe ein Tabellenblatt 1 von dem ich immer den Namen aus Zeile C2 bis C243 haben will um damit automatisch ein neues Tabellenblatt erstellt wird mit diesem Namen als Bezeichnung.

Folgenden Code hab ich mir soweit mal überlegt aber der will nciht so recht ^^

Sub x()
Dim Zelle, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean

Set Bereich = Range("C2:C243" & Range("A65536").End(xlUp).Row)

For Each Zelle In Bereich

For i = 1 To Worksheets.Count
If Worksheets(i).Name = Zelle.Value Then
Bool = True
Exit For
Else
Bool = False
End If
Next i

If Bool = False Then
Set nWS = Worksheets.Add(after:=Worksheets(Worksheets.Count))
nWS.Name = Zelle.Value
End If

Next Zelle

End Sub

is das geschafft, will ich das aus dem vorhandenen Tabellenblatt 2 der Inhalt (ist ein Vorlagengerüst mit Bezeichnung der Zeilen etc.) in jedes dieser neuen Tabellenblätter eingefügt wird.

Wär nice wenn mir da jemand helfen könnte, da Prakitkant undsou ;) falls noch irgendwelche angaben für euch fehlen einfach kurz anmerken dann ergänz ich das noch.

 

Hi Damien,

vielleicht wäre das eine Möglichkeit:

Code:

Sub BlattErstellen()
   Dim lngZeile As Long
   Dim wksTab As Worksheet
   With Worksheets("Tabelle1")
      For lngZeile = 4 To IIf(IsEmpty(.Cells(.Rows.Count, 1)), .Cells(Rows.Count, 1).End(xlUp).Row, .Rows.Count)
         If .Cells(lngZeile, 3) <> "" Then
            On Error Resume Next
            Set wksTab = Worksheets(.Cells(lngZeile, 3))
            On Error GoTo 0
            If wksTab Is Nothing Then
               ActiveSheet.Copy after:=Worksheets(Worksheets.Count)
               Worksheets(Worksheets.Count).Name = .Cells(lngZeile, 3)
            End If
            Set wksTab = Nothing
         End If
      Next lngZeile
   End With
End Sub

Bis später,
Karin

 

ja danke passt erstmal ^^ jetzt versuch ich mich mal wieder bischen und meld mich wieder wenn ich ent weiter komm :P