AW: If Not Intersect(Target, [B10:B15,C10]) Is Nothing
21.01.2010 12:20:35
Chris
Hi, danke für Deine Rückmeldung. So ähnlich habe ich das auch gemacht:
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo errorcatcher
Dim Rng1 As Range
Dim Rng2 As Range
Dim Rng3 As Range
If IsEmpty(Target) Then GoTo errorcatcher
Set Rng1 = Range("E78:Q78")
Set Rng2 = Range("E143:Q143")
Set Rng3 = Range("E201:Q201")
If Not Intersect(Rng1, Target) Is Nothing Then
Rng2.Value = Rng1.Value
Rng3.Value = Rng1.Value
End If
If Not Intersect(Rng2, Target) Is Nothing Then
Rng1.Value = Rng2.Value
Rng3.Value = Rng2.Value
End If
If Not Intersect(Rng3, Target) Is Nothing Then
Rng1.Value = Rng3.Value
Rng2.Value = Rng3.Value
End If
errorcatcher:
Application.EnableEvents = True
End Sub
Mit diesem Code wird dann die Rückgängig-Historie gelöscht, da der Code natürlich auch ausgeführt wird, wenn ich in einem beliebigen Feld eine Eingabe mache. Könnte man das also so handeln, dass der Code nur ausgeführt wird, wenn man Eingaben in Rng1, 2 oder 3 macht?