Supportnet / Forum / Tabellenkalkulation
Zellen wert ändern bei Eingabe in einer anderen
Frage
Hallo Ihrz,
habe bei Excel XP eine Frage. Wie kann ich automatisch eien Wert in der Zelle A4 auf null setzen, wenn ich in der Zelle D4 einen Eintrag mache? A4 ist dabei selber ein Eintragsfeld, so dass ich hier nicht die WENN Formel eingeben kann, da ja diese dann bei Wert eingabe überschrieben wird.
Über hilfreiche Antworten freue ich mich schon jetzt
Antwort 1 von want2cu
Hallo Stefan,
wenn A4 unbedingt ein Eingabefeld bleiben muss, wird das nur mit VBA gehen. Da kann ich dir leider nicht weiterhelfen.
Ich meine mich aber zu erinnern, dass hier schon mal eine ähnliche Anfrage war. Ich habe sie nur auf die Schnelle leider nicht gefunden.
Wenn E4 nicht EIngabezelle bleiben muss, könnte man es auch einfacher anders lösen.
CU
want2cu
wenn A4 unbedingt ein Eingabefeld bleiben muss, wird das nur mit VBA gehen. Da kann ich dir leider nicht weiterhelfen.
Ich meine mich aber zu erinnern, dass hier schon mal eine ähnliche Anfrage war. Ich habe sie nur auf die Schnelle leider nicht gefunden.
Wenn E4 nicht EIngabezelle bleiben muss, könnte man es auch einfacher anders lösen.
CU
want2cu
Antwort 2 von coros
Hi Stefan,
hier wäre eine Lösungsmöglichkeit von meiner Seite.
Öffne über Extra => Makro => Visual Basic Editor die VBA Umgebung. Klicke in dem rechten Fenster doppelt auf die Tabelle (z.B. Tabelle1), in der die Aktion durchgeführt werden soll und kopiere dorthin folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D4").Value > 0 Then
Range("A4").Select
ActiveCell.FormulaR1C1 = "0"
End If
End Sub
Wenn Du jetzt wieder in Deine Tabelle wechselst und dann in Zelle D4 einen Wert einträgst, der größer O ist, wird der Wert in A4 mit 0 überschrieben.
Ich hoffe, ich konnte Dir weiterhelfen,
coros
hier wäre eine Lösungsmöglichkeit von meiner Seite.
Öffne über Extra => Makro => Visual Basic Editor die VBA Umgebung. Klicke in dem rechten Fenster doppelt auf die Tabelle (z.B. Tabelle1), in der die Aktion durchgeführt werden soll und kopiere dorthin folgenden Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("D4").Value > 0 Then
Range("A4").Select
ActiveCell.FormulaR1C1 = "0"
End If
End Sub
Wenn Du jetzt wieder in Deine Tabelle wechselst und dann in Zelle D4 einen Wert einträgst, der größer O ist, wird der Wert in A4 mit 0 überschrieben.
Ich hoffe, ich konnte Dir weiterhelfen,
coros
Antwort 3 von Sofixultra
Hallo Coros,
vielen Dank!!!! Dein Code macht genau das was ich beabsichtigt hatte. It´s not a trick, it´s a coros.
Auch Dir want2cu danke für Deine Antwort, da A4 ein Eingabefeld bleiben muß, ist Coros Lösung perfekt.
Vielen Dank noch einmal und noch schöne Feiertage und viel Spass beim Eiersuchen *fg*
Sofix
vielen Dank!!!! Dein Code macht genau das was ich beabsichtigt hatte. It´s not a trick, it´s a coros.
Auch Dir want2cu danke für Deine Antwort, da A4 ein Eingabefeld bleiben muß, ist Coros Lösung perfekt.
Vielen Dank noch einmal und noch schöne Feiertage und viel Spass beim Eiersuchen *fg*
Sofix
Antwort 4 von Sofixultra
Hallo Ihr beiden,
habe mittlerweile nch etwas gefunden, damit die Zellen A4 und D4 sich auf Null stellen bzw. leeren wenn man in eine der beiden klickt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A4")) _
Is Nothing Then Range("D4") = ""
If Not Application.Intersect(Target, Range("D4")) _
Is Nothing Then Range("a4") = ""
End Sub
So leert sich dann A4 wenn ich in D4 gehe und andersrum.
Vielleicht könnt Ihr das j auch mal gebrauchen.
Schöne Ostern.
habe mittlerweile nch etwas gefunden, damit die Zellen A4 und D4 sich auf Null stellen bzw. leeren wenn man in eine der beiden klickt:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A4")) _
Is Nothing Then Range("D4") = ""
If Not Application.Intersect(Target, Range("D4")) _
Is Nothing Then Range("a4") = ""
End Sub
So leert sich dann A4 wenn ich in D4 gehe und andersrum.
Vielleicht könnt Ihr das j auch mal gebrauchen.
Schöne Ostern.
Antwort 5 von Rick
Hallo Stefan
Du kannst natürlich die WENN-Fkt. auch in eine Dritte Zelle (z.B. B4) schreiben und Bezug auf A4 respektive B4 nehmen;
=WENN(D4>=0;A1=0)
stimmt's???
Rick
Du kannst natürlich die WENN-Fkt. auch in eine Dritte Zelle (z.B. B4) schreiben und Bezug auf A4 respektive B4 nehmen;
=WENN(D4>=0;A1=0)
stimmt's???
Rick
Antwort 6 von want2cu
@Rick,
auuf diese Idee war ich bei der Wenn-Funktion auch schon gekommen. Es hat bei mir aber genaus so wenig geklaptt wie bei deiner Formel.
Was mache ich falsch?
Oder geht es doch nicht so wie von dir beschrieben?
CU
want2cu
auuf diese Idee war ich bei der Wenn-Funktion auch schon gekommen. Es hat bei mir aber genaus so wenig geklaptt wie bei deiner Formel.
Was mache ich falsch?
Oder geht es doch nicht so wie von dir beschrieben?
CU
want2cu
Antwort 7 von Rick
Hallo want2cu
shame on me; im Gegensatz zu dir habe ich meinen Geistesblitz vor Abschuss ins sn nur halbherzig überprüft....
naürlich klappt das nie!!!
Den einzig gangbaren Weg habe ich nachstehend gefunden (ist aber auch nicht das Ei des Columbus):
DIE TABELLE 1 BENÜTZT MAN ALS EINGABESEITE.
DANN VERKÜPFST DU DEN GANZEN BEREICH AUS TABELLE 1 IN TABELLE 2
ZU GUTER LETZT GIBST IN DER ZELLE A1 VON TABELLE 2 FOLGENDE FORMEL EIN:
=Tabelle1!A1*WENN(D1=0;1;0)
Aber wie bereits demonstriert eine gangbare Lösung führt hier nur über Makro oder benutzerdefinierte Funktion Sorry für die geklaute Aufmerksamkeit ;-(
CU Rick
shame on me; im Gegensatz zu dir habe ich meinen Geistesblitz vor Abschuss ins sn nur halbherzig überprüft....
naürlich klappt das nie!!!
Den einzig gangbaren Weg habe ich nachstehend gefunden (ist aber auch nicht das Ei des Columbus):
DIE TABELLE 1 BENÜTZT MAN ALS EINGABESEITE.
DANN VERKÜPFST DU DEN GANZEN BEREICH AUS TABELLE 1 IN TABELLE 2
ZU GUTER LETZT GIBST IN DER ZELLE A1 VON TABELLE 2 FOLGENDE FORMEL EIN:
=Tabelle1!A1*WENN(D1=0;1;0)
Aber wie bereits demonstriert eine gangbare Lösung führt hier nur über Makro oder benutzerdefinierte Funktion Sorry für die geklaute Aufmerksamkeit ;-(
CU Rick