If formule toepassen in Excel

[FrankH1988]

Ik wil graag weten of het mogelijk is in een macro op te nemen dat de uitkomst van een formule bepaald naar welk tabblad er moet worden doorverwezen.
Als de uitkomst bijvoorbeeld 1 is moet er worden doorverwezen naar het tabblad test1 en als de uitkomst bijvoorbeeld 2 is moet er worden doorverwezen naar test2.

Nu dacht ik aan de volgende code in VBA maar deze wordt niet toegestaan:

Sub test()
'
' test Macro
'

'
Sheets("test3").Select
Range("G25").Select
If ("G26") = 1 Then Sheets("test1").Select Range("A1").Select
If ("G26") = 2 Then Sheets("test2").Select Range("A1").Select
End Sub


Weet iemand hoe ik dit oplos?

 

[sylvester-ponte]

Frank normaal gesprolen plaats je een voorbeeld bestand.
gebruik ipv ("G26") Range("G26") en let op de dubbele punt,dan krijg je bvb:

If Range("G26") = 1 Then Sheets("test1").Select: Range("A1").Select

het kan natuurlijk op nog vele andere manieren.

 

[edmoor]

Zo bijvoorbeeld:

Sub Test()
    Dim Blad As String
    
    Select Case Range("G26")
        Case "1": Blad = "Test1"
        Case "2": Blad = "Test2"
    End Select
    Sheets(Blad).Activate
    Range("A1").Activate
End Sub

 

[VenA]

Obv het voorbeeld dus maar twee tabjes met de naam Test1 en Test2 lijkt mij dit voldoende.

Sub VenA()
  Application.Goto Sheets("Test" & 1 + Abs([G26] = 2)).[A1], 1
End Sub

 

[gast0660]

Of zo:
Onbeperkt aantal tabbladen, zolang de waarde in G26 ook als tabblad bestaat.

Sub Dotchie()
On Error Resume Next
xx = [G26].Value
Sheets(xx).Activate
[A1].Activate
End Sub

 

[Cobbe]

Of nog een:

Sub Cobbe()
On Error GoTo oeps
Application.Goto Sheets("Test" & [G26].Value).[A1]
Exit Sub
oeps:
MsgBox (" Deze staat er niet tussen!")
End Sub

 

[gast0660]

Aan alle helpers het zou toch leuk zijn moest TS ook eens zou antwoorden.