Tabblad toevoegen en tegelijk naam veranderen van tabblad

[spaarie]

Helpers,

Ik probeer een knop te maken om een nieuw jaar toe te voegen, maar het tabblad naam moet automatisch "2013" (jaartal staat in cel A1) worden aangezien de knop op tabblad "2012" staat. Maar dit moet natuurlijk ook gebeuren van 2013 naar 2014...

Sub nieuw_jaar()
    Sheets("2012").Copy After:=Range("A1") + 1
    Range("B3:F14").Select
    Selection.ClearContents
End Sub

Anybody?

 

[Niels28]

Sub nieuw_jaar()
    Sheets("2012").Copy After:=Sheets(Trim(2012 + Sheets.Count - 1))
    Sheets("2012 (2)").Name = 2012 + Sheets.Count - 1
    Sheets(Trim(2012 + Sheets.Count - 1)).Range("B3:F14").ClearContents
End Sub

Niels

 

[spaarie]

Niels,

Wat zou ik toch zonder je moeten hahaha

Maar hoe past cel A1 zich automatisch aan waar het jaartal ook staat?

 

[spaarie]

Heb al iets. Is dit goed? Of gaat dit foutmeldingen geven

Sub nieuw_jaar()
    Sheets("2012").Copy After:=Sheets(Trim(2012 + Sheets.Count - 1))
    Sheets("2012 (2)").Name = 2012 + Sheets.Count - 1
    [COLOR="#FF0000"]Range("A1") = 2012 + Sheets.Count - 1[/COLOR]    
    Sheets(Trim(2012 + Sheets.Count - 1)).Range("B3:F14").ClearContents
    Range("B3").Select
End Sub

 

[Niels28]

Dat gaat niet werken want je geeft niet aan van welk blad je A1 wilt veranderen.

Zo gaat het wel.

Sub nieuw_jaar()
    Sheets("2012").Copy After:=Sheets(Trim(2012 + Sheets.Count - 1))
    Sheets("2012 (2)").Name = 2012 + Sheets.Count - 1
    With Sheets(Trim(2012 + Sheets.Count - 1))
    .Range("B3:F14").ClearContents
    .Range("A1").Value = 2012 + Sheets.Count - 1
    End With
End Sub

Niels

 

[spaarie]

Oke, ik zie het waar je het aangepast hebt. Maar ik boek vooruitgang

Bedankt Niels.