1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13: 14:
Privates VorWorksheet_SelectionChange (ByVal Ziel als Strecke) 'Platz in Blattmodul Application.OnKey „{VORSPRUNG}“, „Down1“ Enden-Unterseeboot Privates Unterseeboot Down1 () 'Platz in Module1 Selection.Offset (1, 0). Auserwählt Enden-Unterseeboot