tabbladnaam in macro

[Maik]

Een aantal tabbladen krijgen hun naam dmv een tekst in een bepaalde cel, deze tekst kan regelmatig wijzigen.
In een macro moet er verwezen worden naar deze tabbladen.
Weet iemand hoe ik hier meer om moet gaan, aangezien de tabbladen geen vaste naam hebben.
Groet,
Maik

 

[richard1970]

Hoi Maik,

Om je een beetje op weg te helpen. Zet dit in een macro waarbij cel A1 de naam bevat die je het desbetreffende werkblad wilt geven:
ActiveSheet.Name = [A1].Value

Richard

 

[Maik]

De naam van het tabblad wijzigen lukt wel, er wordt echter via een macro verwezen naar de tabbladen en aangezien de tabbladen regelmatig van naam veranderen werkt de macro niet.
Is het mogelijk om in een macro niet naar de naam van het tabblad te verwijzen maar bv naar blad1, blad2 enz.??

Maik

 

[koosl]

Maik,

Heb je hier iets aan?

Sub WisselVanSheet()
    Worksheets(2).Select 'het echte 2e blad (dus misschien niet blad 2)
End Sub

De echte naam van een blad is te zien in de Project Explorer van VBA

bv:
Sheet1 (sheet 1)
Sheet2 (Totaaloverzicht)
Sheet3 (sheet 3)

Koosl

 

[Wigi]

Koosl

die "echte namen" zijn ook onderhevig aan wijzigingen (alhoewel veel minder frequent als wijziging van de andere naam).

 

[Gerald Baalhuis]

Is dit wat?

Plakken in This workbook in VBA

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error GoTo einde
If Target.Address = "$E$2" Then
Sh.Name = Target.Value
End If
Exit Sub
einde:
MsgBox "Ongeldige Werkbladnaam", vbCritical
End Sub

waarbij dan in cel E2 van elk werkblad de 'naam'van het werkblad staat. Is destijds op dit forum bedacht (was dat niet door jou, Wigi?) voor een Wk poule werkblad.


Gerald Baalhuis

 

[richard1970]

Hoi Maik,

Is het een idee om standaard te beginnen bij het eerste tabblad?
Hier wat codes om op weg te helpen:
ActiveSheet.Next.Select 'Is gelijk aan Ctrl+Page Down
ActiveSheet.Previous.Select 'Is gelijk aan Ctrl+Page Up
Sheets(1).Select 'Gaat naar de eerste sheet ongeacht de naam

Wat ook kan is bij het openen van het bestand ervoor zorgen dat op het eerste tabblad een lijst van tabbladnamen komt te staan.

RIchard

 

[Demeter]

Als je sheets altijd om dezelfde plaats blijven dan zou ik voor de wijze van Rchard1970 gaan.
Sheets(1) (plaats van je sheets zoals je tabs geordend zijn)
Sheets(2)
etc.

Groet,
Ferenc

 

[Maik]

Door omstandigheden een tikkeltje laat, maar allemaal wederom bedankt.