Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1996to2000
1996to2000
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Anzeige
Inhaltsverzeichnis

Eine Zelle den Wert eingeben und direkt ausrechnen lassen

Forumthread: Eine Zelle den Wert eingeben und direkt ausrechnen lassen

Eine Zelle den Wert eingeben und direkt ausrechnen lassen
08.12.2024 16:52:57
Maria
Hey Leute
Ich möchte gerne in einer Spalte, in jeder zweiten Zelle, einen Bruttowert eingeben, wo dann dieser automatisch in einen Nettowert ausgerechnet und angezeigt werden soll. Habt ihr da Lösungen für?
Anzeige

6
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Eine Zelle den Wert eingeben und direkt ausrechnen lassen
08.12.2024 16:57:00
{Boris}
Hi,

a) Welcher Mehrwertsteuersatz?
b) Soll das alles in ein und der selben Zelle geschehen? Falls ja: Weshalb?

VG, Boris
AW: Eine Zelle den Wert eingeben und direkt ausrechnen lassen
08.12.2024 17:10:11
{Boris}
Hi,

ich würde unbedingt 2 Spalten nehmen.

In einer Spalte (hier bezogen auf alle Eingaben in Spalte A) sähe das z.B. so aus: 

Option Explicit



Private Sub Worksheet_Change(ByVal Target As Range)

Const MwSt = 0.19 'MwSt-Satz

On Error GoTo ERR_HANDLER

With Target

    If .Count = 1 Then

        If .Column = 1 Then 'wirkt in Spalte A

            Application.EnableEvents = False

            .Value = Round(.Value / (1 + MwSt), 2)

        End If

    End If

End With

ERR_HANDLER:

Application.EnableEvents = True

End Sub


Da lässt sich dann aber nix mehr nachvollziehen. Ergo: Nimm 2 Spalten (oder sogar 3):
1. Bruttowert
2. MwSt-Anteil
3. Nettowert

Das sind 2 simple Formeln für Spalten 2 und 3.

VG, Boris
Anzeige
AW: Eine Zelle den Wert eingeben und direkt ausrechnen lassen
16.12.2024 12:24:05
Maria
Danke dir schonmal für die Mühe.
Leider hat der Code bei mir nicht funktioniert? Ich habe alles in Spalte 9. Hab das auch angepasst, aber es wird nichts ausgerechnet, wenn ich den Code hinterlegt habe und eine Zahl in die Spalte eingebe?
AW: Eine Zelle den Wert eingeben und direkt ausrechnen lassen
16.12.2024 12:41:15
Maria
Habe nun eine Lösung gefunden:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 9 Then
On Error GoTo ErrorHandler
Application.EnableEvents = False
Target.Value = Target.Value * 100 / 119
ErrorHandler:
Application.EnableEvents = True
End If
End Sub

Trotzdem vielen Dank :)
Anzeige
AW: Eine Zelle den Wert eingeben und direkt ausrechnen lassen
08.12.2024 17:08:12
Maria
Es soll immer geteilt durch 1,19 (also 19%).
Es geht um eine Abrechnung. Da habe ich Bruttobeträge, muss aber die Nettobeträge hinschreiben und am Ende die 19%. Die Liste ist so aufgebaut, dass ich den Betrag immer in jeder zweiten Zeile, dementsprechend in einer Spalte jede zweite Zelle eintragen muss - Da der Aufbau vorgeschrieben ist, darf ich keine weitere Spalte hinzufügen, wo ich dann ganz normal einen Formelbezug machen könnte.
Anzeige
Hab Dir parallel bereits geantwortet...oT
08.12.2024 17:10:56
{Boris}
VG, Boris
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Live-Forum - Die aktuellen Beiträge
Datum
Titel
14.05.2026 13:31:09
Zeichen ausblenden
14.05.2026 09:50:42
Makro für MacOs
13.05.2026 19:14:18
Gleichheitszeichen
13.05.2026 14:24:56
VBA Projekt Passwort automatisch eingeben
13.05.2026 08:49:41
Reale Berechnung ohne Nachkommawerte
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum