benötige eine Formel bei der folgendes passiert.
Ich möchte in A1 eine zahl eingeben die dann automatisch mit 20 prozent
erhöht wird.
Gibts da eine passende Formel
Beispiel:
Ich geb 100 ein und 120 erscheint
gruß Fred
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Betrag As Double
If Target.Column = 1 And Target.Row > 0 And Target.Row < 100 Then
Betrag = Target.Value + Target.Value * 0.2
Application.EnableEvents = False
Target.Value = CDbl(Betrag)
Application.EnableEvents = True
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Betrag As Double
If Target.Count > 1 Then Exit Sub
If Target.Column = 1 Or Target.Column < 4 And _
Target.Row > 8 And Target.Row < 100 Then
Betrag = Target.Value + Target.Value * 0.2
Application.EnableEvents = False
Target.Value = CDbl(Betrag)
Application.EnableEvents = True
End If
End Sub
Um Werte in Excel automatisch um einen bestimmten Prozentsatz zu erhöhen, kannst du entweder eine Formel oder ein VBA-Makro verwenden. Hier sind die Schritte für beide Methoden:
1. Mit einer Formel:
=A1 * 1.2
2. Mit einem VBA-Makro:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Betrag As Double
If Target.Column = 1 And Target.Row > 0 And Target.Row < 100 Then
Betrag = Target.Value + Target.Value * 0.2
Application.EnableEvents = False
Target.Value = CDbl(Betrag)
Application.EnableEvents = True
End If
End Sub
Alt + Q
, um den VBA-Editor zu schließen und teste die Funktion.Fehler: Zelle bleibt unverändert.
Fehler: Fehlermeldung beim Eingeben von Werten.
Wenn du keine VBA-Makros verwenden möchtest, kannst du auch einen Prozentrechner in Excel nutzen, um einfachere Berechnungen durchzuführen:
=A1 * (1 + B1)
Hierbei steht A1 für den ursprünglichen Wert und B1 für den Prozentsatz.
Beispiel 1: Einfache Prozentrechnung
=A1 * 1.2
. Beispiel 2: Mehrere Spalten berechnen
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Betrag As Double
If Target.Count > 1 Then Exit Sub
If Target.Column >= 1 And Target.Column <= 3 And _
Target.Row >= 9 And Target.Row <= 100 Then
Betrag = Target.Value + Target.Value * 0.2
Application.EnableEvents = False
Target.Value = CDbl(Betrag)
Application.EnableEvents = True
End If
End Sub
1. Wie kann ich das Makro für andere Spalten verwenden? Du kannst die Bedingungen im Makro anpassen, indem du die Spalten- und Zeilenangaben änderst.
2. Was ist der Unterschied zwischen der Formel und dem Makro? Die Formel zeigt das Ergebnis in einer anderen Zelle an, während das Makro den Wert direkt in der Zelle ändert, in die du den ursprünglichen Wert eingibst.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen