Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
716to720
716to720
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

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
Anzeige
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!
'******************************

Anzeige
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
Anzeige
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)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige