Auteur Topic: Ander tabblad openen (gelezen 4483 keer)

Tech8 · « **Gepost op:** 26 augustus 2026, 13:06:43 »

Beste mededenkers,

Als ik in een cel (B2) een cijfer uit een lijst kies (1 tot4), dan zou desbetreffend tabblad moeten openen.
Momenteel lukt mij dit enkel met cijfer 1.

Zie bijlage.

Dank vooraf,

Tech8

SoftAid · « **Reactie #1 Gepost op:** 26 augustus 2026, 15:33:19 »

Tech8,

ik zou met een Select Case werken.

Code: [Selecteer]

Private Sub Worksheet_Change(ByVal Target As Range)

    If Not Intersect(Target, Range("B2")) Is Nothing Then
        
        Select Case Target.Value
            Case 1: Sheets("6 sterren").Activate
            Case 2: Sheets("8 sterren").Activate
            Case 3: Sheets("10 sterren").Activate
            Case 4: Sheets("12 sterren").Activate
        End Select

    End If

End Sub

Groeten,

SoftAid

Tech8 · « **Reactie #2 Gepost op:** 26 augustus 2026, 17:49:16 »

@ SoftAid

dit werkt in mijn voorbeeld sheet, maar waar zet ik dit in mijn originele sheet?

Tech8

popipipo · « **Reactie #3 Gepost op:** 26 augustus 2026, 18:24:22 »

Misschien een iets andere aanpak
Dubbel klik op de tabblad naam en je gaat er naar toe
Rechtstreeks op een naam klikken is toch duidelijker dan op een nummer klikken die dan weer wijst naar een naam

Tech8 · « **Reactie #4 Gepost op:** 26 augustus 2026, 18:43:55 »

@ popipipo,

Daar had ik ook al aan gedacht, ik zal het morgen eens uittesten op mijn sheet.

Al dank bij voorbaat,

Tech8

SoftAid · « **Reactie #5 Gepost op:** 26 augustus 2026, 21:58:40 »

Tech8,

ik ga er van uit dat het werkblad dat je aanhangt de werkelijkheid is, anders moet je het aanpassen naar jou "werkelijkheid".

De methode van popipipo werkt best, maar als je mijn code wilt gebruiken dan
plaats je in Blad2 van het VBAProject T8_Ander tabblad.xlsm in je VBA editor.
Dus op dezelfde plaats en in plaats van je vorige code.

SoftAid

Help!

Menu

Hulp bij posten

Zoeken

Recente topics