Getal uit naam tabblad halen

[Ron001]

Allen,

 

In bijlage mijn PO planlijst (testfile) RON.xlsm

 

In cel B3 zou steeds het getal dat in de naam staat van het tabblad moeten komen.

Ik heb onderstaande macro voor "geschreven" en deze werkt.

 

 

Sub tabblad()

ron = ActiveSheet.Name
Range("B3") = Replace(ron, "WEEK ", "")
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

 

 

Mijn probleem is dat deze werkt bv via een knop en deze dan uitvoeren, maar dit zou automatisch moeten gebeuren bij het aanmaken van een nieuw tabblad;

bv WEEK 52

 

Alle hulp welgekomen

[Gast]

Zoiets?

Private Sub Workbook_NewSheet(ByVal Sh As Object)
ThisWorkbook.Worksheets(Worksheets.Count).Name = "WEEK " & Sheets("ron").[B3]
End Sub

Code in de ThisWorkbook

Met in het tabblad ron in cel B3 01 of 02 of 03.........

Cel B3 cel eigenschappen op tekst zetten, wegens de voorloop nul.

 

[Ron001]

Beste Grote Woef,

 

Code neemt ook de naam "WEEK" over, moet enkel getal zijn.

Deze dan replace door ""?

 

Nu gaat deze ook bij verwisselen tussen tabbladen elke keer dit uitvoeren precies, het lijkt of bij springen tussen de tabbladen de cursor een drietal seconden blijft "lopen".

 

mvg

 

ron

 

[Gast]

In cell B3 van het tabblad alleen de maandnummer zetten. bv 03

Als in cel B3 ook week staat  bv: WEEK 03

dan is de code

ThisWorkbook.Worksheets(Worksheets.Count).Name = Sheets("ron").[B3]

in Private Sub Workbook_NewSheet(ByVal Sh As Object)

De macro werkt alleen bij het toevoegen van een nieuw werkblad of je hebt iets verkeerd gedaan.

 

[Ron001]

Mmmmmmmmm

 

Gisteren werkte het in mijn testfile, nu doet hij niks meer...

Waarom moet er eigenlijk een teller in het tabblad 'ron' staan?

[Gast]

Wat bedoel je?

Quote

Waarom moet er eigenlijk een teller in het tabblad 'ron' staan?

 

[Ron001]

Code in de ThisWorkbook

Met in het tabblad ron in cel B3 01 of 02 of 03.........

 

en

 

Worksheets.Count

 

Ik ben precies ff helemaal in de war...

15 december 2017 aangepast door Ron001

[Gast]

Nu ben je in de war, waarschijnlijk nog niet genoeg koffie

Hiermee bedoelde ik wil je een tabblad Week 01 dan 01 in cel B3, Wil je een tabblad Week 02 dan 02 in cel B3 ect.

[Ron001]

Nu ben ik mee...

 

Maar ik zou eigenlijk willlen dat ik een nieuw tabblad aanmaak (bv tabblad1), dan pas ik de naam aan naar Bv WEEK 12, dit getal 12 (variabel) moet dan in cel B3 komen te staan.

In cel B3 zit een code dat hij automatisch adhv de weeknummer de weekdagen (ma-vrij) en datums gaat aanpassen.

Als je in mijn testfile de week van getal gaat veranderen zie je dat de weekdagen/datums gaan veranderen..

[Ron001]

Als ik onderstaande code onder Workbook "Changesheets" plaats, werkt deze..

 

ron = ActiveSheet.Name
Range("B3") = Replace(ron, "WEEK ", "")
    With Selection
        .HorizontalAlignment = xlLeft
        .VerticalAlignment = xlBottom
        .WrapText = False
        .Orientation = 0
        .AddIndent = False
        .IndentLevel = 0
        .ShrinkToFit = False
        .ReadingOrder = xlContext
        .MergeCells = False
    End With
End Sub

Maar elke keer als ik dan van blad wissel, moet de file 2 seconden "nadenken, macro's ophalen"...

 

De bovenstaande codes voor "Newsheet" werken niet..

 

alvast bedankt!

 

ron