[Excel] VBA naam werkblad ontleden

[Verwijderd]

Beste mensen,

ik ben niet ervaren in dit (eigenlijk 1e x) en probeer en zoek de hele avond me eigen al suf.

Wij gebruiken brutowinst werkbladen en ik wil hier een macro voor schrijven dat de gebruiker een nieuw blad kan aanmaken voor een nieuwe week.

Hierbij kom ik bij mijn probleem.
De naam van het werkblad bestaat uit de volgende gedeeltes:

------------------------------

bw agf 12

------------------------------

Bij een nieuw blad aanmaken moet dus het weeknummer, in dit geval 12, opgehoogt worden met 1. bw agf blijft hetzelfde.

Hoe kan ik dit nu ontleden? zodat ik die 12 in een int kan zetten.

met :

-----------------------------------------------------------------

Sub WB_naam()
Dim naamwb As String

naamwb = Sheets(Sheets.Count).Name

MsgBox naamwb


End Sub

----------------------------------------------------------------

vraag ik de naam van het werkblad wel op, maar weet absoluut niet hoe ik verder moet.

Please help

[Timrek]

Geen idee, ik ben geen office specialist. Maar ik heb wel een goede tip voor je. Kijk hier eens, misschien staan er wel wat nuttige dingen op deze website

http://office.webforums.nl/forum/index.php

[F_J_K]

Met CInt() kan je converteren naar een Integer, met Left() en Right() kan je een deelstring krijgen.

code:

naamWB = "bw agf 12"
temp1 = Left(naamWB, 6)
temp2 = CInt(Right(naamWB, 2)) + 1
nieuweNaamWB = temp1 & " " & temp2
Debug.Print nieuweNaamWB

Let ook op de debug.print, die zet de output in het Venster Direct. Is makkelijker dan steeds een msgbox wegklikken en is ook een stuk makkelijker als je klaar bent met debuggen: blind alle msgboxen verwijderen of uitcommentariseren is niet handig

[Verwijderd]

die msgBox gebruik ik niet, ik was ff aan het testen of ik de naam kon achterhalen!

maar nu moet ik dus de 'active sheet name' opgeven voor naamWB ipv "bw agf 12"
dat bw agf is altijd hetzelfde, enkel het weeknummer veranderd in de naam van het werkblad, dus dit kan ik wel uitvogelen hoop ik

Bedankt en mocht ik ergens niet uit komen, hoop ik op uw hulp te kunnen rekenen