Vorzeichen umsetzen



Excel-Version: 8.0 (Office 97)
nach unten

Betrifft: Vorzeichen umsetzen
von: Tom
Geschrieben am: 03.07.2002 - 16:41:20

Hallo,

wie bekomme ich das minus vor die Zahl??

z.b. 1000- benötige aber -1000 !!

Gruß
Tom


nach oben   nach unten

Re: Vorzeichen umsetzen
von: Joachim L.
Geschrieben am: 03.07.2002 - 16:44:11

Hallo Tom,

hier ein Makro. Alle Zahlen die Du bearbeiten willst markieren und dann starten. Ich habe es in PERSONL.xls hinterlegt.

Sub Minus_von_hinten_nach_vorne()
With Selection

On Error GoTo Ende
Selection.Find(What:="-", After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ersteAdresse = ActiveCell.Address
ActiveCell.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveCell = ActiveCell.Value * -1
Do
Selection.Find(What:="-", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
ActiveCell.Replace What:="-", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
ActiveCell = ActiveCell.Value * -1
Loop While ActiveCell.Address <> ersteAdresse

End With
Ende:
Cells(1, 1).Select
End Sub


Gruß Joachim

nach oben   nach unten

Re: Vorzeichen umsetzen
von: Berai
Geschrieben am: 03.07.2002 - 17:00:41

Hallo Tom,

hier eine Lösung ohne VBA

=LINKS(A1;LÄNGE(A1)-1)*-1

Gruß
Rainer


nach oben   nach unten

Re: Vorzeichen umsetzen
von: GerhardW
Geschrieben am: 03.07.2002 - 17:37:14

Hi Tom,

hier noch eine Variante (habe bei Joachim und Rainer ein wenig geklaut):


Sub MinuszeichenUmsetzen()
    Set c = Selection.Find(What:="*-", LookIn:=xlFormulas, LookAt _
        :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
    Do While Not Is Nothing
        c.Value = -(Left(c.Value, Len(c.Value) - 1))
        Set c = Selection.FindNext
    Loop
End Sub

Gruß Gerhard
 nach oben

Beiträge aus den Excel-Beispielen zum Thema "fehler bei ausführung von Makros"