EXCEL
22.01.2022 18:43:22
leo
Ich habe einen Marcos versucht zu schreiben, er funktioniert zwar , aber nur bis zur Zahl 9.
Ich habe einen Code von jemanden bekommen aber beim testen schrieb es die 10er Zahlen in zwei Zellen.
Vielleicht hat jemand zu diesem Code eine Lösung?!
Herzlichen Dank im voraus...
Sub starten()
Application.OnKey Key:="1", Procedure:="test1"
Application.OnKey Key:="2", Procedure:="test2"
Application.OnKey Key:="3", Procedure:="test3"
Application.OnKey Key:="4", Procedure:="test4"
Application.OnKey Key:="5", Procedure:="test5"
Application.OnKey Key:="6", Procedure:="test6"
Application.OnKey Key:="7", Procedure:="test7"
Application.OnKey Key:="8", Procedure:="test8"
Application.OnKey Key:="9", Procedure:="test9"
Application.OnKey Key:="10", Procedure:="test10"
Application.OnKey Key:="11", Procedure:="test11"
Application.OnKey Key:="12", Procedure:="test12"
Application.OnKey Key:="13", Procedure:="test13"
Application.OnKey Key:="14", Procedure:="test14"
Application.OnKey Key:="15", Procedure:="test15"
Application.OnKey Key:="16", Procedure:="test16"
Application.OnKey Key:="17", Procedure:="test17"
Application.OnKey Key:="18", Procedure:="test18"
Application.OnKey Key:="19", Procedure:="test19"
Application.OnKey Key:="20", Procedure:="test20"
Application.OnKey Key:="21", Procedure:="test21"
Application.OnKey Key:="22", Procedure:="test22"
Application.OnKey Key:="23", Procedure:="test23"
Application.OnKey Key:="24", Procedure:="test24"
Application.OnKey Key:="25", Procedure:="test25"
Application.OnKey Key:="26", Procedure:="test26"
Application.OnKey Key:="27", Procedure:="test27"
Application.OnKey Key:="28", Procedure:="test28"
Application.OnKey Key:="29", Procedure:="test29"
Application.OnKey Key:="30", Procedure:="test30"
Application.OnKey Key:="31", Procedure:="test31"
Application.OnKey Key:="32", Procedure:="test32"
Application.OnKey Key:="33", Procedure:="test33"
Application.OnKey Key:="34", Procedure:="test34"
Application.OnKey Key:="35", Procedure:="test35"
Application.OnKey Key:="36", Procedure:="test36"
Application.OnKey Key:="37", Procedure:="test37"
Application.OnKey Key:="38", Procedure:="test38"
Application.OnKey Key:="39", Procedure:="test39"
Application.OnKey Key:="40", Procedure:="test40"
Application.OnKey Key:="41", Procedure:="test41"
Application.OnKey Key:="42", Procedure:="test42"
Application.OnKey Key:="43", Procedure:="test43"
Application.OnKey Key:="44", Procedure:="test44"
Application.OnKey Key:="45", Procedure:="test45"
Application.OnKey Key:="46", Procedure:="test46"
Application.OnKey Key:="47", Procedure:="test47"
Application.OnKey Key:="48", Procedure:="test48"
Application.OnKey Key:="49", Procedure:="test49"
Application.OnKey Key:="50", Procedure:="test50"
Application.OnKey Key:="51", Procedure:="test51"
Application.OnKey Key:="52", Procedure:="test52"
End Sub
Private Sub test1()
ActiveCell = 1
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test2()
ActiveCell = 2
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test3()
ActiveCell = 3
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test4()
ActiveCell = 4
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test5()
ActiveCell = 5
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test6()
ActiveCell = 6
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test7()
ActiveCell = 7
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test8()
ActiveCell = 8
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test9()
ActiveCell = 9
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test10()
ActiveCell = 10
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test11()
ActiveCell = 11
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test12()
ActiveCell = 12
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test13()
ActiveCell = 13
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test14()
ActiveCell = 14
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test15()
ActiveCell = 15
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test16()
ActiveCell = 16
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test17()
ActiveCell = 17
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test18()
ActiveCell = 18
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test19()
ActiveCell = 19
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test20()
ActiveCell = 20
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test21()
ActiveCell = 21
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test22()
ActiveCell = 22
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test23()
ActiveCell = 23
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test24()
ActiveCell = 24
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test25()
ActiveCell = 25
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test26()
ActiveCell = 26
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test27()
ActiveCell = 27
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test28()
ActiveCell = 28
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test29()
ActiveCell = 29
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test30()
ActiveCell = 30
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test31()
ActiveCell = 31
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test32()
ActiveCell = 32
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test33()
ActiveCell = 33
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test34()
ActiveCell = 34
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test35()
ActiveCell = 35
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test36()
ActiveCell = 36
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test37()
ActiveCell = 37
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test38()
ActiveCell = 38
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test39()
ActiveCell = 39
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test40()
ActiveCell = 40
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test41()
ActiveCell = 41
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test42()
ActiveCell = 42
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test43()
ActiveCell = 43
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test44()
ActiveCell = 44
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test45()
ActiveCell = 45
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test46()
ActiveCell = 46
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test47()
ActiveCell = 47
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test48()
ActiveCell = 48
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test49()
ActiveCell = 49
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test50()
ActiveCell = 50
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test51()
ActiveCell = 51
ActiveCell.Offset(0, 1).Activate
End Sub
Private Sub test52()
ActiveCell = 52
ActiveCell.Offset(0, 1).Activate
End Sub