Das folgende Makro funktioniert wunderbar:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Steuersatz
Steuersatz = Range("G7").Value ' In G7 steht der Steuersatz z.B. 16%
If Target.Address = "$G$4" Then ' In G4 steht der Nettobetrag
Application.EnableEvents = False
Range("G8").Value = Range("G4") / (100 + Steuersatz) * 100
Application.EnableEvents = True
ElseIf Target.Address = "$G$8" Then ' In G8 steht der Bruttobetrag
Application.EnableEvents = False
Range("G4").Value = Range("G8") * (100 + Steuersatz) / 100
Application.EnableEvents = True
Else
Exit Sub
End If
End Sub
Aber:
Wenn ich den Steuersatz in der Zelle G7 über ein Drehfeld einstelle erkennt Excel die
Änderung nicht. Wenn ich den Steuersatz manuell ändere, funktioniert alles.
Wie bringe ich Excel bei, dass es auch die Änderung über ein Drehfeld erkennt !
Vielen Dank bereits im Voraus
Franz