Wijziging waarde

[SjonR]

Ik heb mijn best gedaan

Private Sub CommandButton2_Click()
Dim i As Long
 For i = [g4].Value To [I4].Value
  If Not IsError(Evaluate("'week " & i & "'!A1")) Then
  Sheets("week " & i).Unprotect Password:="Olifant"
  Sheets("week " & i).Range("b2:b6") = Range("b2:b6").Value
  Sheets("week " & i).Protect Password:="Olifant"
  End If
 Next i
End Sub

 

[HSV]

Bij herhalingen gebruik ik With, en wisselende bladen screenupdating=false

Private Sub CommandButton2_Click()
Dim i As Long
Application.ScreenUpdating = False
 For i = [g4].Value To [I4].Value
  If Not IsError(Evaluate("'week " & i & "'!A1")) Then
[COLOR=#0000ff]    With Sheets("week " & i)[/COLOR]
      .Unprotect "Olifant"
      .Range("b2:b6") = Range("b2:b6").Value
      .Protect "Olifant"
[COLOR=#0000ff]    End With[/COLOR]
  End If
 Next i