naam tabblad

[Rudi Rombouts]

In een excel werkmap maak ik een planning voor het werk per week, ik heb een 6 werkbladen in deze werkmap ("week1"; "week2"; "week3";.....) + nog een aantal werkblad waaruit ik gegevens haal.
Als "week1" voorbij is dan hernoem ik dit naar "week 7", "week2" voorbij dan wordt dit "week 8" enz. Waarschijnlijk niet de juist werkwijze maar het werk, alleen moet ik wel in de makro's die naar het werkblad "week1" dat vervangen is door "week7" aanpassen en ook de formules die naar "week1" gaan zien ook aanpassen ( geen probleem) , alleen hebben mijn collega's hier problemen mee .
Kan iemand hier een voorstel doen hoe ik dit kan doen via een makro?
Kan ik via een inputbox (via een drukknop) vragen welk werkblad er moet worden veranderd en in welke naam?
En hoe moet ik verder met de rest

Moeilijk he

Rudi

 

[Jan van Asseldonk]

Je zou het gehele vervangwerk een keer op kunnen nemen in een macro. Deze macro plaats je dan onder een knop (met extra vraag of alles zeker vervangen moet worden om per ongeluk wijzigen te voorkomen).

Als je de 2e keer verandert wordt week 7 dan week 13, en week 1 weer week 7? Zo ja dan heb een nog complexer probleem.

Je kunt i.p.v. met de naam van het werkblad eventueel ook met de index van het tabblad werken.

Met onderstaande macro laat je sheetgegevens zien.
Kijk ook eens bij de help van VBA onder sheets.

Sub SheetGegevens()

Range("A2").Select
Range("A2").Formula = "Aantal sheets = " & Sheets.Count
Range("A3").Formula = "Sheetnummer"
Range("B3").Formula = "Sheetnaam"
For i = 1 To Sheets.Count
Range("A" & i + 3).Formula = i
Range("B" & i + 3).Formula = Sheets(i).Name
Next i
End Sub