EXCEL Zelleninput direkt in "Hintergrundformel" einfügen
Hallo zusammen,
ich möchte den Input einer Zelle in Form einer Zahl in der selben Zelle (!) direkt in eine Formel einsetzten. Beispiel:
Ich trage in A1 die Zahl 22 ein. Wenn ich die Eingabe bestätige, soll diese 22 in eine Formel gepackt werden, deren OUTPUT in A1 zu finden ist.
Geht das?
LG
ich möchte den Input einer Zelle in Form einer Zahl in der selben Zelle (!) direkt in eine Formel einsetzten. Beispiel:
Ich trage in A1 die Zahl 22 ein. Wenn ich die Eingabe bestätige, soll diese 22 in eine Formel gepackt werden, deren OUTPUT in A1 zu finden ist.
Geht das?
LG
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 356986
Url: https://administrator.de/forum/excel-zelleninput-direkt-in-hintergrundformel-einfuegen-356986.html
Ausgedruckt am: 18.02.2025 um 22:02 Uhr
3 Kommentare
Neuester Kommentar
![134464](/images/members/profile_male_48x48.png)
Ja, mit etwas VBA kein großes Problem. Du nutzt das Worksheet_Change Event des Sheets und setzt darin deine Formel mit dem in die Zelle geschriebenen Wert in die gleiche Zelle.
Hier ein einfaches Beispiel das die in Spalte A eingetragene Zahlen mit 10 multipliziert und in der selben Zelle ausgibt:
Der Code muss zwingend in den Codeabschnitt des jeweiligen Worksheets, nicht in ein Modul, da es sich hierbei um eine Event-Prozedur handelt die nur im jeweiligen Worksheet funktioniert.
![screenshot - 2074ab87d0c92dda13f20d51264daaad screenshot](/images/c/2017/12/05/2074ab87d0c92dda13f20d51264daaad.jpg)
Hier ein einfaches Beispiel das die in Spalte A eingetragene Zahlen mit 10 multipliziert und in der selben Zelle ausgibt:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
Application.EnableEvents = False
Target.Value = target.value * 10
Application.EnableEvents = True
End If
End Sub
![screenshot - 2074ab87d0c92dda13f20d51264daaad screenshot](/images/c/2017/12/05/2074ab87d0c92dda13f20d51264daaad.jpg)
Moin,
für das Schreiben einer Formel verwendest du dann FormulaLocal bspw.:
Bei Verwendung der Formeln bzw. beim Setzen dieser entsprechend auf die Anführungszeichen achten![face-smile face-smile](/images/icons/fa/light/face-smile.svg)
Liebe Grüße
für das Schreiben einer Formel verwendest du dann FormulaLocal bspw.:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A:A"), Target) Is Nothing Then
Application.EnableEvents = False
Target.FormulaLocal = "= 2*" & Target.Value & ""
Application.EnableEvents = True
End If
End Sub
Bei Verwendung der Formeln bzw. beim Setzen dieser entsprechend auf die Anführungszeichen achten
Liebe Grüße