|
Es gibt in der Datei kein Sheet Abrechnung. aber das weist du sicher selbst.
Deshalb hier mein Vorschlag. Die beiden Knöpfe in der Datei, die ich nun gefunden habe, bewirken nur eine Verschiebung des Wertebereiches. Vor und Zurück heben den Effekt auf und es findet quasi nur eine Neuberechnung statt. Sofern ich da nicht irgend etwas übersehen habe.
dieser Code in das Codemodul deines Abrechnungssheets.
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address(0, 0) = "F30" Then
Worksheets("Lohnsteuer").Range("G4") = [F30] 'Die Änderung des Zellwertes sollte auch eine Neuberechnung auslösen.
End If
End Sub
Der Code bewikt das eine Zellwertänderung erkannt und in G4 geschrieben wird. Dadurch erfolgt die Neuberechnung. Ein Zurückwechseln ist nicht notwendig, da die Blattansicht nicht gewechselt wird.
|