Office: Wenn Wert "X", dann Zahl negativ

Hallo zusammen

Zum Thema mit negativen Zahlen gibt es viele Fragen und Antworten, zu meinem Problem habe ich jedoch nichts gefunden.

Folgende Problemstellung:
Zelle A1 = "Verkauf" oder "Einkauf"
Jetzt hätte ich gerne, dass die eingegebene Zahl in Zelle A2 bei "Verkauf" immer negativ ist und bei "Einkauf" positiv ist. So muss der Anwender später keine Negativzeichen setzen und Fehler können damit vermieden werden.

Wie krieg ich das hin?

Dank und Gruss
Richard

:)

 

Was machst Du bei einem Storno? Dann wäre der Verkauf positiv und der Einkauf negativ.

Falls das eine ins Leere führende Frage war, kannst Du ben.def. Datenüberprüfung einsetzen:

A2: =(A1="Einkauf")*(A2>=0)+(A1="Verkauf")*(A2=0 oder

A2: =A2*(1-2*(A1="Verkauf"))>=0

 

Danke für die schnelle Antwort. Es geht nur um den Kauf und Verkauf von Geschenkskarten . Da gibt's keine Stornos.

Ich steh grad etwas auf dem Schlauch was die Formeln angelangt. Schreibe ich die in irgendeine Zelle, gibt sie "WAHR" oder "Falsch" aus. Je nach dem was in A2 steht.
Wenn in A1 "Verkauf" steht und ich in "A2" "5" eintippe, soll aus der "5" eine "-5" werden. Wende ich die Formel falsch an?

 

Datenüberprüfung ist die Lösung. Ich versuchs erst mal damit ;-)

 

Wie kommst Du auf die Idee, in A2 stünde eine Formel, wenn Du dort Deinen Wert eingeben willst?

Umwandeln geht nur mit VBA-Ereignis. Daher habe ich DÜ vorgesehen, und die erzieht jeden Mitarbeiter sehr schnell, das richtige Vorzeichen zu verwenden.

 

Das funktioniert so weit *Smilie

Mit welchem Code kann ich denn die Zahl mittels VBA umwandeln? Das wär die ultimative Lösung :-)

Vielleicht noch zur Ergänzung:
Das soll für den Bereich B9 bis B500 gelten.

 

Hallo raeckaert,

jetzt bin ich verwirrt. In deinem ersten Beitrag schriebst du:

Jetzt heißt es plötzlich

Wat denn nu?

 

Sei nicht so deutsch, Hasso *wink.gif*

Private Sub Worksheet_Change(ByVal T As Range)
Application.EnableEvents = False
If T.Column = 2 Then T = Abs(T) * (1 + 2 * (T.Offset(0, -1) = "Verkauf"))
Application.EnableEvents = True
End Sub

9:500 kannst Du jetzt selbst.

 

Hallo,
hatte ein fast gleiches Problem und von Steve 1da eine gute Lösung erhalten:
http://www.ms-office-forum.net/forum....php?&t=346199
Gruß
Silvio

 

In letzter Zeit häufen sich die Beiträge, aus welchen hervorgeht, dass man nicht den Unterschied zwischen Wert (bzw. Formel) und Format kennt.

Willst Du Dich dazu zählen, Silvio?