AW: An Nepumuk, Fehlermeldung "Laufzeitfehler "53"
28.05.2004 07:04:04
Michel
Hallo Nepumuk
Entschuldigung, hier hast Du das Makro
Vielen Dank für die Bemühung
Gruss
Michel
Option Explicit
Private Declare
Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Declare
Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Public
Sub Timerstart()
Dim Key As Byte, KeyLen As Byte
Do
For Key = 48 To 57
If GetAsyncKeyState(Key) + GetAsyncKeyState(Key + 48) = -32768 Then
Sleep 70
Select Case ActiveCell.Column
Case 11 'Spalte K - zwei Ziffern
If KeyLen = 1 Then
Application.SendKeys "{RIGHT}", True
KeyLen = 0
Exit For
Else
KeyLen = KeyLen + 1
End If
Case 29 'Spalte AC - drei Ziffern
If KeyLen = 2 Then
Application.SendKeys "{RIGHT}", True
KeyLen = 0
Exit For
Else
KeyLen = KeyLen + 1
End If
Case 30 'Spalte AD - eine Ziffer und Rückkehr Spalte 1 nächste Zeile
Application.SendKeys "{RIGHT}", True
Application.SendKeys "{DOWN}", True
Application.SendKeys "{LEFT 30}", True
KeyLen = 0
Exit For
Case Else 'alle anderne Spalten eine Ziffer
Application.SendKeys "{RIGHT}", True
KeyLen = 0
Exit For
End Select
End If
Next
Sleep 60
DoEvents
Loop
End Sub