@xlKing aka Mr. K
Danke für Deine Antwort. Da ich mit Makros/ VBA wenig vertraut bin, hier noch einige Zusatzfragen an Dich.
1) 'Wichtig Welche Taste wurde gedrückt --> Das verstehe ich leider nicht ganz, was meinst Du genau?
2) Generell: muss ich alle Passagen welche mit einem ' beginnen rauslöschen oder kann das drin bleiben?
3)Wenn ich es richtig verstehe, dann gilt das für die gesamte Arbeitsmappe, so dass ausschliesslich Zahlen von 0 bis 9 eingegeben werden können und er danach automatisch zur nächsten ungeschützten Zelle springt oder?
4) Wie muss ich vorgehen um im Blatt nur bestimmte Bereiche mit dem Code anzusprechen? Also eben z.B. meine Zellen E2:M2 und noch andere definierte Bereiche? Ich habe im Blatt Zahlen (wo das absolut cool wäre) aber eben auch normale Texteingaben, wo es freie Eingabe sein muss. Hoffe, dazu gibt's ebenfalls eine Möglichkeit :-)
5) diesen Abschnitt verstehe ich nicht, was macht der genau und was bedeuten die Zahlen genau?
Dim WshShell As Object
Set WshShell = CreateObject("WScript.Shell")
For k = 48 To 57
keypressed = CBool(GetAsyncKeyState(k))
If keypressed Then
ActiveCell.Value = k - 48
Exit For
End If
Next k
If keypressed = False Then
For k = 96 To 105
keypressed = CBool(GetAsyncKeyState(k))
If keypressed Then
ActiveCell.Value = k - 96
Exit For
End If
Next k
End If
WshShell.SendKeys "{Tab}", True 'erst rechts, dann runter
'oder
'WshShell.SendKeys "{ENTER}", True 'erst runter, dann rechts
End Sub
***
Besten Dank für Deine Hilfe!
Gruss Hardy