AW: Bogenschießen
22.09.2003 17:36:32
Jörg Gradert
Hallo Heidrich,
ich bin VBA Anfänger, darum dauert es etwas.
hier mal das Makro für 10 Punkte
Sub Punkte10()
ActiveCell.FormulaR1C1 = "10"
If ActiveCell.Column = 9 Then
Selection.Offset(1, -2).Select
Else: Selection.Offset(0, 1).Select
End If
End Sub
Ich habe festgestellt, dass es manchmal nichts in die Zelle schreibt, wenn man zu schnell durchklickt, so schnell ist aber kein Bogenschütze.
Für 9 Punkte sieht es ebenso aus nur
Sub Punkte9()
ActiveCell.FormulaR1C1 = "9"
If ActiveCell.Column = 9 Then
Selection.Offset(1, -2).Select
Else: Selection.Offset(0, 1).Select
End If
End Sub
usw.
Die einzelnen Makros musst Du dann nur noch den Ringen zuweisen
Auf ein Zurück in die erste Zelle bei Tabellenende habe ich verzichtet, das macht ja die Löschen-Taste
Gruss Jörg