ActiveZelle steuern über Pfeiltasten autoamtisch
12.10.2004 09:02:13
chris
wollte mir gerade ein Tool bauen aber bin schon am ansatz gescheitert.
Ich hoffe ihr könnt mir weiterhelfen udn habt evtl.e in Beispiel für mich.
Wa sich möchte ist fogendes,das ca im Sekundentakt(einstellung möglich) das die Active Zelle nach rechts, links, oben , unten auf dem Tabellenblatt wandert.
Je nach Taste die ich drücke, also drücke ich die Pfeilnachobentaste dann soll die active Zelle jede sekunde eine Zelle weiter nach oben wandern bis ich eine andere Taste z.B Pfeil nach unten drücke dann soll die Active Zelle immer 1 Zelle weiter nach unten wandern.Genauso ist es mit rechts und Links.
Mann kann sich das etwas so verstellen wie in dem Spiel Nibbels.
Wenn ihr mir helfen könnt wäre ich euch sehr dankbar !! Hier schon mein ansatz mit diesem ich aber gescheitert bin.
Declare
Sub Sleep Lib "kernel32" (ByVal sek As Long)
Sub wander()
runter = False
rauf = fals
rechts = False
Links = False
For x = 1 To 10
Sleep 1000
cbr = ActiveCell.Row
cbc = ActiveCell.Column
If runter = False Then
ActiveCells = Cells(cbr - 1, cbc)
Else
End If
Next
End Sub
Sub Start()
Application.OnKey "{UP}", "oben"
Application.OnKey "{Down}", "unten"
Application.OnKey "{RIGHT}", "rechts"
Application.OnKey "{Left}", "links"
End Sub
Sub normal()
Application.OnKey "{UP}"
Application.OnKey "{Down}"
Application.OnKey "{RIGHT}"
Application.OnKey "{Left}"
End Sub