Tabblad openen

[Imod]

Hallo
Ik open met een macro een tabblad met een bepaalde naam - nu "Inhoud"

Sub Inhoud()
Sheets("Inhoud").Select
Range("A1").Select
End Sub

Ik wijzig het tabblad naam automatisch met een andere macro als ik een bepaalde cel invul.
Tabblad naam bv in "leeg"
Nu kan de bovenstaande macro "Inhoud" niet vinden omdat dit "Leeg" is geworden
Wat moet ik aanpassen in bovenstaande macro??

 

[leofact]

Je kunt de naam opvragen met .name
Maar net zo makkelijk is het om ActiveSheet te gebruiken wanneer het om het actieve blad gaat.
Als dat niet zo is, kun je het bladnummer gebruiken, dat blijft hetzelfde
b.v voor het eerste blad
[blad1].select (de vierkante haakjes zijn dan verplicht)

mvg leo

 

[Wigi]

Werk met de codenaam van een tabblad, en niet met de naam die jij ziet onderaan in de bladtabs.

De codenaam is veel robuuster dan de naam die je ziet.

De codenaam zie je in VBA in de Project Explorer, bv. Sheet2.

Wigi

 

[Imod]

nog niet

Ik kom er nog niet uit - ik heb het ook al met haakjes geprobeert

Sub Sheet2()
Sheet2.Select
Range("A16").Select
End Sub

 

[leofact]

Dat moet zijn

[sheet2].select

of

[blad2].select voor de nederlandse versie

Gebruik dat zoals het in de project verkenner staat, maar wel met vierkante haakjes

 

[Wigi]

.... maar wel met vierkante haakjes

Neen, dat hoeft niet.

 

[leofact]

Neen, dat hoeft niet.

Bedankt,
Ik heb dat dat altijd als verplicht verondersteld. Foutief dus.

Ik ben wel benieuwd of het probleem nu ondertussen opgelost is?

 

[Warme bakkertje]

Imod, wijzig ofwel de naam van je Sub of wijzig je code als volgt

Sub Sheet2()
Sheets("Sheet2").Select
Range("A16").Select
End Sub

Mvg

Rudi

 

[Imod]

Het lukt mij niet
Bij alles wat ik probeer een foutmelding
Ik neem aan dat de macro in het tabblad moet staan??

sub Blad2()
Sheets("Blad2").Select
Range("A16").Select
End Sub

Deze werkt maar werkt op de naam van het tabblad.
Werkt niet met:

Blad2.Select of [Blad2].Select of Sheets Blad2.Select of Sheets2.Select

 

[Warme bakkertje]

Imod, ALT-F11 >> Invoegen >> Module >> macro plakken
Wijzig de naam van je Sub. Deze mag niet dezelfde zijn als de codenaam van je blad

Sub Wijzig_Van_Blad()
Blad2.Select
Range("A16").Select
End Sub

Nu gaat hij steeds naar Blad2 of Sheet2 naargelang de codenaam(in VBA de naam voor de haakjes), ongeacht welke naam (in VBA de naam tussen haakjes) je het zelf gegeven hebt

Mvg

Rudi

 

[Imod]

Nu ingevuld:

Sub Knop1()
Blad2.Select
Range("B13").Select
End Sub

Knop1 komt niet overeen zoals tabblad nu genoemd is

Code staat nu in blad 2 - tabblad veranderd niet - geen foutmeldingen

Ik werk met Excel 2000

 

[Wigi]

Code staat nu in blad 2

Hmmm, toch maar even goed lezen wat men hier neerschrijft

Imod, ALT-F11 >> Invoegen >> Module >> macro plakken

 

[Imod]

Als ik lettelijk uitvoer wat daar staat(wat ik ook gedaan had) dan komt deze macro in
Persnlk.xls te staan - de macro werkt dan niet en dit lijkt mij ook niet goed omdat het bestand ook op andere comp. moet werken.
Als ik de macro in een module zet in het bestand zelf dan werkt deze ook niet!
???

 

[Wigi]

Als ik de macro in een module zet in het bestand zelf dan werkt deze ook niet!
???

Zie bijlage dan maar.

Wigi

 

[Imod]

Ik heb bestand geopend en cel B13 gewijzigd maar er veranderd niets aan het tabbladnaam!!

 

[snb]

Je zou je pas echt zorgen moeten gaan maken als dat wél gebeurde.

Ik vraag me af of je de code

Sub Knop1()
  Blad2.Select
  Range("B13").Select
End Sub

wel begrijpt.
Zo niet, dan heb je nog een hoop huiswerk voor je volgende vraag op dit forum.

 

[Wigi]

Ik heb bestand geopend en cel B13 gewijzigd maar er veranderd niets aan het tabbladnaam!!

Zoiets doe je niet op deze manier.

Je hebt een Worksheet_Change event nodig. Deze vraag is al heel vaak voorbij gekomen op het forum, dus eerst eens zoeken best.

Wigi