Excel VBA

T

TonyLa

Gebruiker

Lid geworden

22 apr 2020

Berichten

19

• 23 apr 2020

• #1

Hoi,
Ik heb niet heel veel ervaring met VBA, soms lukt het me met voorbeelden tot een geschikt resultaat te komen, maar deze keer krijg ik het niet klaar.
I ck heb een aantal tabbladen met als naam Algemeen en w01 t/m w20
Op tabblad algemeen staat een gegevens validatie lijst in cel E12, met daarin de lijst van alle tabbladen.
Nu zou ik graag een macro hebben die wanneer een bepaald tabblad geselecteerd staat in die lijst in cel E12, dit tabblad wordt geopend.
Wie brengt me op de goede weg? alvast veel dank
TinyLa

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

41.835

Besturingssysteem

Windows 98SE, XP, 7, 10, 11-25H2

Office versie

Office 2021

• 23 apr 2020

• #2

Met dit achter het werkblad Algemeen:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
    Sheets(Range("E12").Value).Activate
End Sub

 

TS

TS

T

TonyLa

Gebruiker

Lid geworden

22 apr 2020

Berichten

19

• 23 apr 2020

• #3

Wat bedoelt u met achter algemeen plaatsen.
Het werkt nog niet.
Meestal begint mijn macro met sub, ju geeft privatesub aan. Wat is het verschil?
Grts
TinyLa

 

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.107

• 23 apr 2020

• #4

Als je dit soort basis zaken niet kent dan lijkt mij een gelijkend voorbeeld excel bestand handiger. Dan zet er wel iemand de code erin en kan je zoeken hoe het zoal werkt. Zie ook https://www.helpmij.nl/forum/announcement.php?f=5

 

TS

TS

T

TonyLa

Gebruiker

Lid geworden

22 apr 2020

Berichten

19

• 23 apr 2020

• #5

Waarom werkt onderstaande niet.
Sub ChangeTabblad
Worksheet_Change(ByVal Target As Range)
Sheets(Range("E12").Value).Activate
End Sub

 

V

VenA

Inventaris

Lid geworden

2 mrt 2013

Berichten

17.107

• 23 apr 2020

• #6

Omdat Worksheet_Change een event triggert. Maar goed plaats vooral geen bestand.

 

TS

TS

T

TonyLa

Gebruiker

Lid geworden

22 apr 2020

Berichten

19

• 23 apr 2020

• #7

Ik heb het dan toch uiteindelijk klaar gekregen, zie hier onder

Sub Macro5()
'
' Macro5 Macro
' Dim MyName
MyName = Range("E12").Value
Sheets(Range("E12").Value).Activate

End Sub

Toch dank voor de respons
TonyLa

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

41.835

Besturingssysteem

Windows 98SE, XP, 7, 10, 11-25H2

Office versie

Office 2021

• 23 apr 2020

• #8

Dan ben ik wel benieuwd wat je voor elkaar gekregen hebt want wat je laat zien doet niks als je een optie kiest in E12.

 

Laatst bewerkt: 23 apr 2020

HSV

Inventaris

Lid geworden

18 jul 2008

Berichten

20.927

Office versie

Bèta Insider Office 365

• 23 apr 2020

• #9

Ook benieuwd wat je hiermee gaat doen.

Code:

' Dim MyName
MyName = Range("E12").Value

 

TS

TS

T

TonyLa

Gebruiker

Lid geworden

22 apr 2020

Berichten

19

• 24 apr 2020

• #10

Met deze tool kan ik gemakkelijker navigeren naar een bepaald werkblad.
De naam van het werkblad staat in cel E12, die met een gegevensvalidatielijst wordt samengesteld.
Deze weg is gemakkelijker dan onderaan te gaan zoeken naar het desbetreffende werkblad.
TonyLa

 

edmoor

Inventaris

Lid geworden

8 sep 2000

Berichten

41.835

Besturingssysteem

Windows 98SE, XP, 7, 10, 11-25H2

Office versie

Office 2021

• 24 apr 2020

• #11

Maar zo gaat het nog steeds niet automatisch en dat is wat je vroeg.

 

J

jkpieterse

Terugkerende gebruiker

Lid geworden

18 mei 2015

Berichten

2.972

• 24 apr 2020

• #12

Als je in F12 deze formule zet, dan krijg je een snelkoppeling naar het tabblad dat in E12 is gekozen:

Code:

=HYPERLINK("#'"&E12&"'!A1";"Klik hier")

Heb je helemaal geen VBA nodig.

 

TS

TS

T

TonyLa

Gebruiker

Lid geworden

22 apr 2020

Berichten

19

• 24 apr 2020

• #13

@ jkpieterse
Leuk dat je me deze tool aanreikt.
Werkt goed, en ik zal hem gebruiken hoor.
Yhnx
TonyLa