Kopieren van bladen in excel : Vba

[Agent]

Deze code doet het niet helemaal :

Dim teller As Integer
teller = 1
For i = 1 To 53
teller = teller + 1
Sheets("W").Select
Sheets("W").Copy Before:=Sheets(2)
Sheets("W").Select
Sheets("W").Name = "W" & teller
Next i
End Sub

Iemand die mij kan helpen.

 

[tilpi]

Deze code als je van 53 tot 1 wilt kopieren

Sub BladenKopieren()
Dim i As Integer
For i = 1 To 53
Sheets("W").Copy Before:=Sheets(2)
Sheets("W (2)").Activate
ActiveSheet.Name = "W" & i
Next i
End Sub

en deze doet het andersom dus van 1 tot 53

Sub Bladen_Kopieren()
Dim i As Integer
For i = 1 To 53
Sheets("W").Copy After:=Sheets(Sheets.Count)
Sheets("W (2)").Activate
ActiveSheet.Name = "W" & i
Next i
End Sub

Mvg

Piet

 

[Agent]

Deze code als je van 53 tot 1 wilt kopieren

Sub BladenKopieren()
Dim i As Integer
For i = 1 To 53
Sheets("W").Copy Before:=Sheets(2)
Sheets("W (2)").Activate
ActiveSheet.Name = "W" & i
Next i
End Sub

en deze doet het andersom dus van 1 tot 53

Sub Bladen_Kopieren()
Dim i As Integer
For i = 1 To 53
Sheets("W").Copy After:=Sheets(Sheets.Count)
Sheets("W (2)").Activate
ActiveSheet.Name = "W" & i
Next i
End Sub

Mvg

Piet

Even proberen. Alvast bedankt voor de moeite Piet :thumb:

 

[Agent]

Het subscript valt buiten bereik

 

[Agent]

Het subscript valt buiten bereik

Heb het in orde gekregen :

Sub BladenKopieren()
Dim i As Integer
For i = 2 To 53
Sheets("W1").Copy Before:=Sheets(2)
Sheets("W1 (2)").Select
ActiveSheet.Name = "W" & i
Next i
End Sub
:thumb:

 

[tilpi]

Er moet wel een blad met de naam W aanwezig zijn. Net zoals er in jouw versie een Blad met de naam W1 aanwezig moet zijn.


Mvg

Piet