Hallo thorsten,

designstudie anbei, wie du den Aufruf steuerst ??

bei meinem Bst-Verzeichnis funktioniert :

- Makro reagiert auf Ctrl+a (Makroption)

- Makro über activeX Control

- oder Selektion der gesamten Spalte :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 1 Then Exit Sub
On Error GoTo errorhandler
If Selection.Count = Rows.Count Then myOnkey
errorhandler:
On Error GoTo 0
End Sub

Option Explicit
Declare Function GetAsyncKeyState Lib "User32" (ByVal vKey As Long) As Long
Dim mFound As Range
Sub myOnkey()
Dim f As Date
Dim x As Integer
Dim r As Long
Dim s As String

f = Now() + TimeValue("00:00:05")
Do While Now() < f
  For x = 1 To 255
    r = 0
    r = GetAsyncKeyState(x)
    If r = -32767 Then
      Select Case x
        Case 0 To 12  'forbidden
          s = s
        Case 13
          On Error GoTo errorhandler
          mFound.Select
          mFound.Offset(0, 1).Hyperlinks(1).Follow NewWindow:=True
          On Error GoTo 0
          SendKeys "{ESC}", True
          Exit Sub
        Case 14 To 47   'forbidden
          s = s
        Case 58 To 63   'forbidden
          s = s
        Case 91 To 96   'forbidden
          s = s
        Case Is > 122   'forbidden
          s = s
        Case Else
        s = s + Chr$(x)
        If Not IsFound(s) Then GoTo errorhandler
      End Select
    End If
  Next x
Loop
MsgBox "Eingabe abgelaufen"
errorhandler:
SendKeys "{ESC}", True
End Sub

Function IsFound(mWhat) As Boolean
On Error GoTo errorhandler
Set mFound = [A:A].Find(mWhat)
IsFound = True
On Error GoTo 0
Exit Function
errorhandler:
MsgBox mWhat & " nicht gefunden"
On Error GoTo 0
End Function