VBA: SpaceTaste

Forumthread: VBA: SpaceTaste

VBA: SpaceTaste

07.01.2006 15:51:23

Ernst

Hallo Forum
Ich möchte bei der Betätigung der Leertaste (SpaceTaste), im Bereich C10 bis R 20 der Tabelle1, automatisch auf die Zelle der Spalte B unter der aktiven Zeile gelangen.
Hat mir jemand einen VBA-Code dazu ?
Für eine Antwort bin ich dankbar.
Mit freundlichen Grüßen
Ernst Dunkel

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: VBA: SpaceTaste

07.01.2006 16:15:15

Gernot
VBA: andere Möglichkeit?

07.01.2006 16:55:19

Ernst
Geht schon, aber....

07.01.2006 17:09:40

Josef
AW: Geht schon, aber....

07.01.2006 17:23:16

Gernot
Super Danke

07.01.2006 17:42:08

Ernst

AW: VBA: SpaceTaste

07.01.2006 16:15:15

Gernot

Hi,
das ist gar nicht möglich.
mfg Gernot

VBA: andere Möglichkeit?

07.01.2006 16:55:19

Ernst

Hallo Gernot
Gibt es eine andere einfache Möglichkeit?

Geht schon, aber....

07.01.2006 17:09:40

Josef

Hallo Ernst!
.. nicht wenn du dich im Editionsmodus der Zelle befindest!

' **********************************************************************
' Modul: DieseArbeitsmappe Typ: Element der Mappe(Sheet, Workbook, ...)
' **********************************************************************

Option Explicit

Private Sub Workbook_Deactivate()
Application.OnKey "{" & Chr(32) & "}"
End Sub

Private Sub Workbook_Open()
Application.OnKey "{" & Chr(32) & "}", "moveC"
End Sub

' **********************************************************************
' Modul: Modul2 Typ: Allgemeines Modul
' **********************************************************************

Option Explicit

Sub moveC()
If Not Intersect(ActiveCell, Range("C10:R20")) Is Nothing Then
Cells(ActiveCell.Row + 1, 2).Select
End If
End Sub

'******************************
'* Gruß Sepp
'*
'* Rückmeldung wäre nett!
'******************************

AW: Geht schon, aber....

07.01.2006 17:23:16

Gernot

Hi,
".. nicht wenn du dich im Editionsmodus der Zelle befindest!"
Genau, und deshalb wäre eine andere Taste sinnvoller, außerdem sollte beim Verlassen
des Bereich C10:R20 die Standarfunktionalität wieder hergestellt werden.
Option Explicit


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("C10:R20")) Is Nothing Then
Application.OnKey "{DOWN}", "runter"
Else
Application.OnKey "{DOWN}"
End If
End Sub

'In einem Standardmodul:
Sub runter()
Cells(ActiveCell.Row + 1, 2).Select
End Sub
mfg Gernot

Super Danke

07.01.2006 17:42:08

Ernst

Hallo Gernot und Sepp
Vielen Dank für Eure Hilfe.
Grüsse aus Thun (Schweiz)
Ernst Dunkel

Beliebteste Forumthreads (12 Monate)

Forumthread: VBA: SpaceTaste

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread