target verschieben

Forumthread: target verschieben
2 Beiträge zu diesem Forumthread
Anzeige
VBA Beispiele zu verwandten Themen

Forumthread: target verschieben

target verschieben

17.08.2017 12:14:19

Chris

Hallo
ich würde gern eine sub durch Änderungen in zwei Spalten aktiveiren lassen, jedoch benötige ich das "target" immer in der zweiten.
Ist es möglich dieses zu verschieben? Etwa so...

Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, Range("M10:N325")) Is Nothing Then Exit Sub
If Not Intersect(target, Range("M10:M325")) Is Nothing Then "target.Column = target.Column + 1"

Oder geht das irgendwie mit target.offset(0,1) ?

2
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: target verschieben

17.08.2017 12:26:56

ChrisL
AW: target verschieben

17.08.2017 12:35:59

Chris

AW: target verschieben

17.08.2017 12:26:56

ChrisL

Hi Chris

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range
If Intersect(Target, Range("M10:N325")) Is Nothing Then
Exit Sub
Else
Set rng = Target.Offset(0, 1)
End If
MsgBox rng.Address
End Sub

cu
Chris

AW: target verschieben

17.08.2017 12:35:59

Chris


Private Sub Worksheet_Change(ByVal target As Range)
If Intersect(target, Range("M10:N325")) Is Nothing Then Exit Sub
If Not Intersect(target, Range("M10:M325")) Is Nothing Then Set target = target.Offset(0, 1)

das "Set" war die Lösung.
DANKE!