Kostenstellen "umlegen"
Franz
habe hier ein kleines Tool (Prototyp) um Gemeinkosten entweder prozentual oder mit festen _ Werten zu verteilen. Es funktionniert schon zufriedenstellend. Könnte ein Profi dies eventuell noch optimieren?
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
https://www.herber.de/bbs/user/65693.xls
So long!
Franz D.