Vorzeichen ersetzen

Bild

Betrifft: Vorzeichen ersetzen
von: Wolfi
Geschrieben am: 17.11.2003 10:58:14

Hallo,

ich hab eine kleine Frage:

ich habe Zahlen im Format: 90,000- (dies erkennt Excel ja nicht als Zahl) ich benötige aber -90,000. Das müsste doch über suchen ersetzen gehen oder?

Die Suche klappt z.b. mit ??,???- , aber was muss ich beim ersetzen reinschreiben, damit nur das - nach vorne gestellt wird und die unverändert bleibt.

Gruß und Danke

Bild


Betrifft: AW: Vorzeichen ersetzen
von: Jutta
Geschrieben am: 17.11.2003 11:00:30

Hallo,

mit dieser Formel geht es (vorher eine Spalte einfügen=

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


Gruß

Jutta


Bild


Betrifft: AW: Vorzeichen ersetzen
von: Holger Levetzow
Geschrieben am: 17.11.2003 11:05:36

erledige dass z.B. mit folgendem Makro (Bereich anpassen):

Sub umwandeln()
Set bereich = Range("A1:C10")
For Each cell In bereich
    If Right(cell, 1) = "-" Then
       cell.Value = Left(cell, Len(cell) - 1) * -1
    End If
Next
End Sub

Holger


Bild


Betrifft: =MAX(A1;-WECHSELN(A1;"-";))
von: Boris
Geschrieben am: 17.11.2003 11:16:16

Grüße Boris


Bild


Betrifft: Danke
von: Wolfi
Geschrieben am: 17.11.2003 11:25:45

@All Danke mit den Formeln klappt es.

@ Holger mit dem Macro leider nicht, aber das liegt wohl an mir. Könntest Du nochmals zu dem letzten Problem, wo Du mir schon so gut geholfen hast reinschauen, hab da noch ein weiteres Problem.

GRuß
Wolfi


Bild


Betrifft: AW: Vorzeichen ersetzen per VBA
von: FP
Geschrieben am: 17.11.2003 11:44:25

Hallo Wolfi,

markiere den Bereich der umgewandelt werden soll und rufe dieses Makro auf


Sub PlusMinus()
  Dim rng As Range
  For Each rng In Selection.Cells
    If Right(rng, 1) = "-" Then _
      rng = 0 - Left(rng, Len(rng) - 1)
  Next
End Sub


Servus aus dem Salzkammergut
Franz


Bild

Beiträge aus den Excel-Beispielen zum Thema " Vorzeichen ersetzen"