wie bekomme ich das minus vor die Zahl??
z.b. 1000- benötige aber -1000 !!
Gruß
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
hier eine Lösung ohne VBA
=LINKS(A1;LÄNGE(A1)-1)*-1
Gruß
Rainer
hier noch eine Variante (habe bei Joachim und Rainer ein wenig geklaut):
Gruß Gerhard