Worksheet_Change

Hallo
Komme nicht weiter
Folgender Code funktioniert nur wenn die Spalten F, G oder H einzeln bearbeitet werden.
Wenn ich aber mehrere Zellen kopiere (z.B. F2:G2 nach F3) werden auch mehrere Zellen mit "aus SAP" beschrieben.
Es soll aber immer nur die Spalte E verändert werden.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("F2:F20000")) Is Nothing Then
Target.Offset(0, -1).Formula = "aus SAP"
Else
If Not Intersect(Target, Range("G2:G20000")) Is Nothing Then
Target.Offset(0, -2).Formula = "aus SAP"
Else
If Not Intersect(Target, Range("H2:H20000")) Is Nothing Then
Target.Offset(0, -3).Formula = "aus SAP"
Else
End If
End If
End If
End Sub

Kann mir jemand helfen.
Dank im voraus
Gruß Joachim

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Benutzer

Private Sub Worksheet_Change(ByVal Target As Range) Dim T As Range Set T = Intersect(Target, Range("F2:F20000")) If Not T Is Nothing Then T.Offset(0, -1).Formula = "aus SAP" Else Set T = Intersect(Target, Range("G2:G20000")) If Not T Is Nothing Then T.Offset(0, -2).Formula = "aus SAP" Else Set T = Intersect(Target, Range("H2:H20000")) If Not T Is Nothing Then T.Offset(0, -3).Formula = "aus SAP" End If End If End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rC As Range If Intersect(Target, Range("F2:H20000")) Is Nothing Then Exit Sub Application.EnableEvents = False For Each rC In Intersect(Target, Range("F2:H20000")).Rows Cells(rC.Row, 5) = "aus SAP" Next rC Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim Zeile As Range If Not Intersect(Target, Range("F2:H20000")) Is Nothing Then For Each Zeile In Intersect(Target, Range("F2:H20000")) Cells(Zeile.Row, 5).Formula = "aus SAP" Next Zeile End If End Sub

Private Sub Worksheet_Change(ByVal Target As Range) If Intersect(Target, Range("F2:H20000")) Is Nothing Then Exit Sub Application.EnableEvents = False Range(Replace(Replace(Replace(Intersect(Target, Range("F2:H20000")).Address _ , "F", "E"), "G", "E"), "H", "E")).Value = "aus SAP" Application.EnableEvents = True End Sub

Private Sub Worksheet_Change(ByVal Target As Range) Dim rC As Range If Intersect(Target, Range("F2:H20000")) Is Nothing Then Exit Sub Application.EnableEvents = False With Intersect(Target, Range("F2:H20000")) .Offset(0, -(.Column Mod 5)).Columns(1) = "aus SAP" End With Application.EnableEvents = True End Sub

Beliebteste Forumthreads (12 Monate)

	E	F	G	H
2		a	a	a
3		a	a	a
4		a	a	a
5		a	a	a
6
7
8	aus SAP	a	a
9	aus SAP	a	a
10	aus SAP	a	a

14 Beiträge zum Forumthread Beiträge zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

14
Beiträge zum Forumthread

Beiträge zu diesem Forumthread