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

Bereich angeben

Bereich angeben
27.01.2006 16:15:55
F
Hallo.
durch Hilfe des Forums habe ich diesen Code bekommen:
Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Select Case Target.Address
Case "$A$1"
Application.MoveAfterReturnDirection = xlToRight
Case "$A$3"
Application.MoveAfterReturnDirection = xlDown
End Select
End Sub

Da taucht noch eine Frage auf.
Kann ich anstatt Case "$A$1" auch einen Bereich angeben.
Z.B. "A1:B5"
Ich habe schon versucht das zu ersetzen, aber da habe ich
es mir wohl zu einfach gemacht, das funktioniert nicht.
Mit freundlichen Grüssen Frank

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Bereich angeben
27.01.2006 16:36:36
ChrisL
Hallo Frank

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B5")) Is Nothing Then _
Application.MoveAfterReturnDirection = xlToRight
If Not Intersect(Target, Range("C1:D5")) Is Nothing Then _
Application.MoveAfterReturnDirection = xlDown
End Sub

Gruss
Chris
AW: Bereich angeben
27.01.2006 16:52:24
F
Hallo Chris,
ich bin begeistert, vielen Dank
Mit freundlichen Grüssen Frank
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige