Live-Forum - Die aktuellen Beiträge
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Bereich angeben

Forumthread: 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
Anzeige

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
Anzeige
AW: Bereich angeben
27.01.2006 16:52:24
F
Hallo Chris,
ich bin begeistert, vielen Dank
Mit freundlichen Grüssen Frank
;

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige