Office: Zellenwert immer Negativ

Hallo Zusammen,

folgende "Aufgabe":

Ich möchte in eine Zelle einen Wert eintragen. Dieser Wert soll, wenn er größer ist als Null, trotzdem negativ sein. Quasi *-1.
Wenn die Zahl negativ eingetragen wird, soll sie einfach so bleiben.

Beispiel:

ich trage in die Zelle B2 die Zahl 15 ein. Sobald ich die Zelle verlasse oder Enter drücke, wird aus der 15 eine -15.

Wie bewerkstellige ich das?
Alles bisher versuche ruft einen "Zirkelfehler" oder so ähnlich hervor und alle VBA versuche sind aufgrund von unwissenheit schon im keim erstickt worden.

Könnt ihr mir helfen?

 

Hallo!

Du könntest dies probieren:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If WorksheetFunction.IsNumber(Target) And Target.Count = 1 Then Target = -Abs(Target)
End Sub

 

Hallo Frippels,

Du könntest ggf. eine benutzerdefinierte Formatierung verwenden, z.B: -#.##0;-#.##0
Dann sieht der Wert negativ aus. Wenn Du den Wert weiterverarbeitest, z.B. in einer Formel, ginge sowas: =B1-ABS(A1) (mit A1 der Wert)

Gruß

 

Hi Maninweb,
das mit der Formatierung sieht schonmal spitze aus. Aber wie schaffe ich es das die Zahl tatsächlich "gerechnet" wird?

Danke aber schonmal! :)

 

Hi Schatzi!
Danke für die Formel.
Die bezieht sich aber auf die ganze Arbeitsmappe, richtig? Wie ist die Formel für eine einzelne Zelle?

 

Hallo!

So wirkt der Code nur auf die Zelle B2

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" And WorksheetFunction.IsNumber(Target) Then Target = -Abs(Target)
End Sub

 

Hey Schatzi,

klasse! Sehr Cool!
Vielen Dank für die Hilfe!

 

Kurze Frage noch, passt aber auch hier:
Wenn ich den Befehl jetzt auf weitere Zellen ausweiten will, wie mache ich das?

 

Hallo Frippels,

zu Deiner Frage bezogen auf meine Antwort und falls Du kein VBA möchtest; wenn Du den Wert in einer Formel weiter verwendest, nimmt statt z.B. A1 dann -ABS(A1), dann ist die Zahl immer negativ in den Formeln. Die Lösung von Schatzi hat allerdings den Vorteil, dass dann auch tatsächlich die negativen Zahlen drin stehen.

Gruß