Makro mit Wenn Oder verknüpfen

[DartDidi]

Hallo an die Excel Experten,
könnte noch mal für folgendes Problem Hilfe gebrauchen.
Ich bin dabei mir einen Dart-Scorer zu erstellen.
Das Spiel besteht aus mehreren Sätzen.
Um ein Satz zu gewinnen muss ein Spieler 3 Legs gewinnen.
Da gibt es 3 Möglichkeiten  3:0 ; 3:1  oder 3:2.
Welcher Spieler zuerst 3 Legs gewonnen hat steht in Zelle W12  oder  X12.
Habe eine Schaltfläche "Nächstes Leg" mit folgenden Makro erstellt:

Sub ......()
     ......Makro

      Sheets("S1L4") . Select
       Range ("E8") . Select
End Sub

Das nutze ich um von Leg 3 zu Leg 4  zu gelangen wenn noch kein Spieler 3 Leg gewonnen hat.( jedes Leg hat sein eigenes Blatt)
Dieses Makro würde ich gerne wie folgt erweitern:
 Wenn(Oder(W12=3;X12=3); S2L1 E8; S1L4  E8)
Also wenn ein Spieler bereits 3 Leg gewonnen hat dann soll der Cursor zum  2. Satz Leg1 in Zelle E8 springen, ansonsten geht´s nach E8 im 4. Leg von Satz 1.
Ich hoffe es nicht zu kompliziert erklärt zu haben.
Ich bedanke mich schon mal im Voraus 
Gruß Didi

[Kuwer]

Hallo Didi,

Code:

Sub Test()
    With Worksheets("S1L3")
      If Application.Max(.Range("W12").Value, .Range("X12").Value) > 2 Then
        Application.Goto Worksheets("S1L4").Range("E8")
      Else
        .Range("E8").Select
      End If
    End With
End Sub

Gruß Uwe

[DartDidi]

Hallo, 
erstmal  vielen Dank für die Hilfe, aber bekomme jetzt Laufzeitfehler 1004
(Select-Methode des Range-Objektes konnte nicht ausgeführt werden).
Ich bin im Tabellen Blatt "S1L3" , wenn noch keiner 3 Legs gewonnen hat dann soll es nach "S1L4" gehen und wenn einer bereits 3 Leg hat dann nach "S2L1" jeweils in Zelle E8
Habe hier mal den Code reinkopiert so wie ich ihn jetzt  hab, was ist da nicht Richtig?
Gruß Didi

Sub SELV()
'
' SELV Makro

    With Worksheets("S1L4")
    If Application.Max(.Range("W12").Value, .Range("X12").Value) > 2 Then
      Application.Goto Worksheets("S2L1").Range("E8")
  Else
    .Range("E8").Select
    End If
    End With
End Sub

[schauan]

Hallöchen,

Du bist vermutlich nicht auf dem Blatt. Ändere den Code

.Range("E8").Select

in

Application.Goto  .Range("E8")

[DartDidi]

Großes Dankeschön,
funktioniert 
Gruß Didi