Wenn Active Zelle in Spalte..
22.06.2003 20:05:53
Frank Karl Moegelin
wer hatt nicht schon mal Bowling gespielt.
Ich habe mir dafür eine Excel-Tabelle erstellt in der unter anderen mit klick auf ein Objekt folgendes Makro aktiviert wird.
---------------------------------------------------------
Sub Strike()
On Error GoTo msg
ActiveCell.FormulaR1C1 = "x"
ActiveCell.Offset(0, 1).Select
ActiveCell.Offset(0, 1).Select
GoTo ende
msg:
MsgBox ("Nicht im Eingabebereich")
ende:
End Sub
-----------------------------------------------
Dieses bewirkt das ein X (für Strike) eingetragen wird und da dann beim Bowling beim Strike nur ein Wurf im Frame möglich ist springt das aktive Feld um zwei Spalten weiter nach rechts.
Da im 10.Frame nach einem Strike im ersten wurf auch die nochfolgenden 2 gebowlt werden soll das Makro natürlich auch das X eintragen aber nicht um zwei Frames springen.
Wie kann ich das bewerkstelligen.
Müßte doch irgendwie mit einer IF Abfrage möglich sein?
Das 10.Frame liegt in Spalte V.
Vielen Dank
Anzeige