Excel und VBA: Formeln, Programmierung, Lösungen

StandardModule: basMain

Sub ShortysOff()
    Dim iCounter As Integer
    On Error Resume Next
    For iCounter = 1 To 255
        Application.OnKey "^" & Chr(iCounter), ""
    Next iCounter
    On Error GoTo 0
End Sub

Sub ShortysOn()
    Dim iCounter As Integer
    On Error Resume Next
    For iCounter = 1 To 255
        Application.OnKey "^" & Chr(iCounter)
    Next iCounter
    On Error GoTo 0
End Sub

    

Beiträge aus dem Excel-Forum zu den Themen Allgemein und Einstellung