Macro tabbladen

[pmblom]

Hallo,

Ik ben opzoek naar een macro die het laatste tabblad te kopieert en vervolgens het nummer (naam) van het het vorige tabblad verhoogd met 1.

Bijv. tab 1
macro uitvoeren wordt tab 1 gekopieerd naar het het einde en wordt tab 2.

Alvast bedankt.

 

[VenA]

Als het zo simpel is als je in de vraag hebt staan zal dit je wel op weg helpen.

Sub VenA()
With Sheets(Sheets.Count)
  .Copy , Sheets(Sheets.Count)
  ActiveSheet.Name = Split(.Name)(0) & " " & Val(Split(.Name)(1) + 1)
End With
End Sub

 

[pmblom]

Hoi VenA,

Bedankt voor jou snelle reactie. Ik krijg bij het uitvoeren van jouw macro een foutmelding.

Vervolgens maakt ie de macro niet af en blijft de naam tab1(2)

 

[VenA]

Er staat geen spatie tussen Blad en 1

 

[pmblom]

:thumb: Werkt perfect. Hier was ik naar opzoek. Dankjewel.