Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Bereich angeben

Forumthread: Bereich angeben

Bereich angeben
27.01.2006 17: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 17: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 17:52:24
F
Hallo Chris,
ich bin begeistert, vielen Dank
Mit freundlichen Grüssen Frank
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
14.05.2026 09:50:42
13.05.2026 19:14:18