Wie erstelle ich einen Brutto-Netto-Rechner, der in beide Richtungen funktioniert?

Würde es denn auf eine andere Weise gehen?
Also ich muss nicht die Formel in der Zelle stehen haben. Ich möchte nur, dass es funktioniert :-D

Deine Formeln erzeugen einen Zirkelbezug, das geht eh nicht.
Wenn ein Wert eingegeben wird errechnet man mit VBA den anderen und überschreibt den, d.h. dann gibt es keine Formeln mehr. Willst Du das?
Andreas.

Klicke mit der rechten Maustaste auf die Blattregisterkarte
Wähle "Code anzeigen"
Füge den folgenden Code ein
Schließe den VBA-Editor

Ich runde die Beträge gleich mal auf 2 Stellen, dann gibt es auch kein Problem bei der Summe. Alles klar?
Andreas.
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Table As ListObject
Dim N As Range, B As Range
If Target.Count > 1 Then Exit Sub
If Target.ListObject Is Nothing Then Exit Sub
Set Table = Target.ListObject
On Error GoTo ExitPoint
Set N = Table.ListColumns("Betrag [netto]").DataBodyRange
Set B = Table.ListColumns("Betrag [brutto]").DataBodyRange
Set N = Intersect(N, Target.EntireRow)
Set B = Intersect(B, Target.EntireRow)
Application.EnableEvents = False
With WorksheetFunction
Select Case Target.Column
Case N.Column
B = .Round(N * 1.19, 2)
Case B.Column
N = .Round(B / 1.19, 2)
End Select
End With
ExitPoint:
Application.EnableEvents = True
End Sub

Das geht generell nicht meinst Du?

Logischer Weise geht das mit Formeln nicht, denn dann könntest Du in einer Zeile bei Netto den Wert haben und bei Brutto die Formel und in der nächsten umgekehrt und dann gibt es wieder die Fehlermeldung "Inkonsistente berechnete Spaltenformel" was Du nicht willst.
Andreas.

Hallo Andreas,
best case wäre natürlich, dass die Formeln nur über VBA laufen. Sprich:
1. Ich gebe einen Netto-Betrag ein -> Brutto wird berechnet.
2. Ich lösche einen der beiden Werte -> das andere Feld wird auch geleert.
3. Ich gebe einen Brutto-Betrag ein -> Netto wird berechnet.
Das geht generell nicht meinst Du?