Opgelost VBA, Kopieren Werkblad en naam wijzigen

[gpiket7]

Ik heb een urenregistratie, als je op het werkblad "BLANCO" op de knop drukt "Aanmaken nieuwe week" werkt de knop prima.
Als ik dezelfde knop gebruik op een ander tabblad pakt hij de waarde van C4 op dat actieve tabblad en niet die op het tabblad "BLANCO".

Ik heb al geprobeerd door te wijzigen naar ActiveSheet.Name = "Week " & Sheets("BLANCO").Range("C4").Value
maar dat werkt helaas ook niet. Iemand wel een idee?

Private Sub CommandButton1_Click()
For a = 1 To 1
    'kopieer blad BLANCO en zet de copie achter blad Instructies
    Sheets("BLANCO").Copy After:=Sheets("Instructies")
    'hernoem het (nieuwe) actieve blad = naam & nummer
    ActiveSheet.Name = "Week " & Range("C4").Value
    ActiveSheet.Unprotect "Welkom123"
Next a
    'Weeknummer omzetten van formule naar vaste waarde
    ActiveSheet.Range("C4").Select
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
ActiveSheet.Range("B8").Select
 
End Sub

 

[edmoor]

Volgens mij is dit voldoende:

Private Sub CommandButton1_Click()
    Sheets("BLANCO").Copy After:=Sheets("Instructies")
    With ActiveSheet
        .Unprotect "Welkom123"
        .Name = "Week " & .Range("C4").Value
        .Range("C4") = .Range("C4")
        .Range("B8").Select
    End With
End Sub

 

[AD1957]

Waarom steeds in nieuwe week aanmaken.
Maak aan het begin van het jaar meteen alle weken aan.

Sub Weken()
Application.ScreenUpdating = False
For i = 1 To 52
   Sheets("BLANCO").Copy After:=Sheets("Instructies")
    ActiveSheet.Name = i
    ActiveSheet.Range("C4") = i
Next
Application.ScreenUpdating = True
Application.Goto Sheets("1").Range("B8")

End Sub

Of zet alles op 1 blad met toevoeging van het weeknr. in de tabel.
Dan kun je filteren op het weeknummer.

 

[gpiket7]

@edmoor dankjewel, dat werkt!

 

[snb]

En verwijder eerst alle samengevoegde cellen.