|
'Ereignis der Worksheet-Klasse
Private Sub Worksheet_Change(ByVal Target As Range)
Dim rng As Range, c As Range, flag As Boolean
If Target.Count > 1 Then Exit Sub
'Zellen wo
Set rng = Union([B2], [C3:C6], [E4:G8], [A10:G10], [G1])
For Each c In rng.Cells
If Not Intersect(c, Target) Is Nothing Then
flag = True
Exit For
End If
Next c
If Not flag Then Exit Sub
Application.EnableEvents = False
rng.Value = Target.Value
Application.EnableEvents = True
End Sub
|