10.02.2016, 12:04
Hallo,
das kann so zusammengefasst werden.
Der obige Code macht das gleiche, wie Dein eingestellter.
das kann so zusammengefasst werden.
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D4:G6")) Is Nothing Then
If LCase(Target.Text) = "x" Then
Application.EnableEvents = False
Target = Target.Column - 3
Application.EnableEvents = True
End If
End If
End Sub
Der obige Code macht das gleiche, wie Dein eingestellter.