Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


negative zahlen - Minuszeichen vor die Zahl setzen
#1
Hallo zusammen,

folgender Sachverhalt bereitet mir Schwierigkeiten:

Ich habe eine Tabelle, in der positive und negative Zahlen erscheinen.

Mein Problem sind die negativen Zahlen, da das Minus hinter der Zahl und nicht davor steht.

Ich habe bereits 2 Lösungen dafür gefunden:

1. =WENN(RECHTS(A1;1)="-"; LINKS(A1;LÄNGE(A1)-1)*(-1);A1)

2. Spalte markieren, über Daten, Text in Spalten, nachstehendes Minuszeichen für negative Zahlen aktivieren

Leider kann ich hier zwar mehrere Zeilen übereinander markieren, aber nur eine einzige Spalte.

Ich habe keine Lösung dafür, wie ich die Werte in einem Rutsch ändern kann.

Auch über den mir scheinbar einfachsten Weg (Suchen und auswählen, Ersetzen) komme ich nicht weiter.

Wer weiß Rat?

Danke an alle vorab.

Vg, gioveni
to top
#2
Hallo gioveni, nimm doch die benutzterdefinierte Formatierung
PHP-Code:
[<0]0"-";
cu jörg eine rückmeldung wäre ganz reizend XL2003 bis XL2013
to top
#3
Hallo lieber Jockel,

Danke für die superfixe Antwort, nur leider passiert bei meinen Zahlen rein gar nichts, wenn ich diesen Code nutze.?

LG, gioveni
to top
#4
Hallo,

Zitat:Spalte markieren, über Daten, Text in Spalten, nachstehendes Minuszeichen für negative Zahlen aktivieren

Wieviele Spalten hast du denn? Da sich XL die Einstellung merkt ist das doch auch bei mehreren Spalten recht zügig erledigt.

Alternativ habe ich von Uwe mal einen VBA-Code gefunden:
Code:
Sub MinusVor()
'Quelle: Uwe Küstner
  Dim rngB As Range
  Dim rngZ As Range
  Set rngB = Selection
  On Error Resume Next
  For Each rngZ In rngB.SpecialCells(xlCellTypeConstants)
    If IsNumeric(rngZ) Then
      rngZ.Value = rngZ.Value * 1
    End If
  Next rngZ
End Sub

Vielleicht hilft dir dieser Code, der in ein allgemeines Modul muss, weiter.

Bevor du den Code mit Alt-F8 startest markierst du den gewünschten Bereich aus.
Gruß
Peter
to top
#5
Hallo!
Logo, Du hast ja auch Text und keine Zahlen in den Zellen stehen.
Wenn es auch ein kleines Makro sein darf?
Code:
Sub MakeNumbers()
Dim Zelle As Range
For Each Zelle In ActiveSheet.UsedRange
    If Right(Zelle, 1) = "-" Then Zelle = Left(Zelle, Len(Zelle) - 1) * (-1)
Next
End Sub
Gruß, Ralf
to top
#6
Hallo zusammen, ja leider sind es 25 Spalten, die ich täglich bearbeiten muss. Die wollte ich gerade nicht alle nacheinander markieren. Mit Makros und VBA kenn ich mich leider nicht aus...:-( Lieben grußi
to top
#7
(04.12.2014, 12:36)RPP63 schrieb: Hallo!
Logo, Du hast ja auch Text und keine Zahlen in den Zellen stehen...
Gruß, Ralf


Hallo Ralf, woher, weißt Du das denn..?
cu jörg eine rückmeldung wäre ganz reizend XL2003 bis XL2013
to top
#8
Hallo!
Ist ganz einfach:
1. Wechsel mit Alt+F11 in den Editor
2. Füge mit Alt, e, m ein neues Modul ein
3. Ins rechte Fenster kopierst Du folgenden Code:
(Ich habe den Obigen Code genommen, der ist besser)
Code:
Sub MakeNumbers
  Dim rngB As Range
  Dim rngZ As Range
  Set rngB = Selection
  On Error Resume Next
  For Each rngZ In rngB.SpecialCells(xlCellTypeConstants)
    If IsNumeric(rngZ) Then
      rngZ.Value = rngZ.Value * 1
    End If
  Next rngZ
End Sub
Den Editor kannst Du jetzt schließen.

Im Excel-Fenster führst Du per Alt+F8 das Makro MakeNumbers auf.

Wenn Du das Makro auch zukünftig benötigst, speicher die Datei als *.xlsm ab.

Gruß, Ralf
to top
#9
(04.12.2014, 11:46)gioveni schrieb: Hallo lieber Jockel,

Danke für die superfixe Antwort, nur leider passiert bei meinen Zahlen rein gar nichts, wenn ich diesen Code nutze.?

LG, gioveni


Hallo gioveni, da ich weder Deine Datei nicht sehe, noch was Du tust, ist dieser Beitrag wenig zielführend... ... vielleicht postest Du mal (D)eine (Beispiel)Datei...
cu jörg eine rückmeldung wäre ganz reizend XL2003 bis XL2013
to top
#10
oh prima. nach der Beschreibung von RPP63 habe ich es hinbekommen. Habe die Excel-Datei auch -wie du es beschrieben hast- im xlsm-Format gespeichert. Als ich gerade versucht habe die neue Liste von heute zu bearbeiten (bekomme sie täglich mit neuen Zahlen), war das Makro aber leider nicht mehr da. Was habe ich falsch gemacht?
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
Question Anzahl der Einträge in einer Zeile zählen (nicht Zahlen) Olivenbaum2013 6 86 11.11.2016, 10:35
Letzter Beitrag: Olivenbaum2013
  Filter in Pivot-Tabelle setzen Pat1604 2 77 08.11.2016, 20:39
Letzter Beitrag: Pat1604
  Zahlungsziel, Rechnungsbetrag und Datum in Beziehung setzen Excel Seach12 1 57 05.11.2016, 09:24
Letzter Beitrag: shift-del
  Filter setzen in Pivot Tabelle NoFear070 3 132 29.09.2016, 13:57
Letzter Beitrag: NoFear070
  VBA: Zeile in Tabelle kopieren durch "x" setzen DavidHans 3 221 08.08.2016, 17:44
Letzter Beitrag: DavidHans
  Vergleich einer Zahl durch Summierung div. anderer Zahlen/Möglichkeiten Maik 0 149 12.07.2016, 13:59
Letzter Beitrag: Maik
  Mit negative Werten lässt sich nicht rechnen -> #WERT Streety07 1 198 10.06.2016, 17:15
Letzter Beitrag: shift-del
  Link setzen cuba 5 378 10.06.2016, 16:07
Letzter Beitrag: schauan
  wert aus einer zelle suchen und in andere setzen manuel-bike 3 370 03.06.2016, 11:28
Letzter Beitrag: manuel-bike
  Negative Zeitdarstellung cool43 4 287 01.06.2016, 20:54
Letzter Beitrag: BoskoBiati

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste