Spalte überspringen

[DartDidi]

Hallo,
ich brauch mal für nachfolgendes Problem eine Lösung.
Ist für eine Variante von einem Dartspiel.
Habe einen Eingabebereich C9:E17 für Spieler 1 und G9:I17 für Spieler2.
Das ganze soll dann auf einem Tochdisplay funktionieren.
Nun soll der Cursor für die Eingabe die Spalte F überspringen.
Also der Anfang wäre für die erste Runde C9 dann D9  dann E9 dann der Sprung zu G9 dann H9 dann I9 und von I9 dann zur  nächsten Runde nach C10 usw.....
bis zu Zeile 17
Ich denke mal, dass der nachfolgende Code für das Springen irgendwie geändert werden muss. 
 
Sub Springen()
If ActiveCell.Column < 5 Then
    ActiveCell.Offset(0, 1).Select
Else
    ActiveCell.Offset(1, -2).Select
End If
End Sub
Sub Zwanzig()
ActiveCell = 20
Call Springen
End Sub


Vielen Dank schon mal im Voraus
Gruß Didi

[00202]

Hallo,

du brauchst eigentlich nicht diese ganzen Subs (Zwanzig, Neunzehn...), sondern nur Eine, wenn du mit "Application.Caller" arbeitest:
[attachment=38950]

Du weist dann jeder Ellipse das gleiche Makro zu.

Habe es jetzt nur grob angepasst.

[DartDidi]

Hallo Case,
ich sage erst mal vielen Dank.
Funktioniert soweit ganz gut, aber bei 1 und bei 2 trägt er mir dann "0" ein.
Finde da auch kein Unterschied zu den anderen.
Habe das Makro "Main" zugewiesen.
Gruß Didi

[DartDidi]

Hallo noch mal,
Jetzt funktioniert es, habe die Form nochmal gelöscht und neu gemacht.
Weiß zwar nicht wieso, hab da jetzt kein Unterschied gefunden.
Noch mal vielen Dank 
Gruß Didi