Hallo Leute,
Ich möchte ein Blatt nach Monatstage mehrfach kopieren, das erstellen der Blätter mit Datum, klappt ganz gut, aber das reinkopieren des gewünschten Blattes funktioniert irgendwie nicht. Kann mir da jemant helfen?
VBA-Script:
Sub BlätterErstellen()
Dim Zelle, Bereich As Range
Dim i As Integer
Dim nWS As Worksheet
Dim Bool As Boolean
Dim ersterTag
Set Bereich = Range("A1:A" & Range("A65536").End(xlUp).Row)
For Each Zelle In Bereich
For i = 2 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))
ActiveWorkbook.Sheets("Stundennachweis").Copy After:=ActiveWorkbook.Sheets(Worksheets.Count)
nWS.Name = Zelle.Value
End If
Next Zelle
End Sub
|