Kostenstellen "umlegen"

Private Sub Worksheet_Change(ByVal Target As Range)
'oder besser Worksheet_SelectionChange?
If Target.Row > 3 Then Exit Sub
If Target.Column  6 Then Exit Sub
Select Case Target.Column
Case 4, 5, 6
If Target.Row = 2 Then
'entweder die Umlagenwerte festlegen,
'in der Zeile 3 erscheint die prozentuale Aufteilung
Application.EnableEvents = False
Target.Offset(1, 0).Formula = Target.Value / Range("C2").Value
End If
If Target.Row = 3 Then
'oder die prozentuale Verteilung festlegen,
'in der Zeile 2 erscheinen automatisch die Umlagenwerte
Application.EnableEvents = False
Target.Offset(-1, 0).Formula = Target.Value * Range("C2").Value
End If
Case Else
End Select
Application.EnableEvents = True
End Sub