sheet kopieren en naam celwaarde meegeven

[MarkF]

In een workbook heb ik een weeknummer (welke met de tijd automatisch mee veranderd) nu wil ik deze celwaarde (weeknummer) koppelen aan een sheetnaam.

Ik heb een button gemaakt waaraan ik de macro koppel, deze moet het "orgineel" dan kopieren naar een nieuwe sheet. Deze nieuwe sheet moet dan de naam mee krijgen van de celwaarde (weeknummer) Maar als deze al bestaat moet er een msgbox verschijnen waarin wordt verteld dat deze al bestaat.

wie kan mij helpen. In de bijlage mijn bestand.

 

[Wigi]

Sub nieuwe_week()
    
    On Error Resume Next
    i = Len(Sheets([origineel!C4]).Name) = 0
    
    If Err.Number <> 0 Then
        Sheets("origineel").Copy after:=Sheets(3)
        Sheets(4).Name = [origineel!C4]
    End If

End Sub

Wigi

 

[MarkF]

Hallo WIGI

bedankt voor je meedenken.
alleen ben ik er nog niet, ik wil graag dat er een melding verschijnt in het venster als de waarde in cel C4 al vookomt. dmv een msgbox en dat vervolgens de macro stopt.
want je kan maar één sheet per week kopieren.

Sub nieuwe_week()

Sheets("orgineel").Select
Sheets("orgineel").Copy after:=Sheets(3)

On Error Resume Next
i = Len(Sheets([origineel!C4]).Name) = 0

Sheets("orgineel (2)").Name = Range("C4")

If Err.Number <> 0 Then

Worksheets("origineel").Copy after:=Sheets(3)
Sheets(4).Name = [origineel!C4]
End If

Range("C4").Copy
Range("C4").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Application.CutCopyMode = False
Sheets("orgineel").Select
End Sub

 

[MarkF]

opgelost

zie "formule kopieren, alleen waarde behouden" van mij voor de oplossing