AW: Minus zeichen hinten
Torsten
Hi Niker,
nimm dieses Makro hier (aus dem Forum):
Sub Minus()
'setzt ein Minuszeichen vor die Zahl, welches vorher hinter der Zahl stand
If MsgBox("Sollen Minuszeichen vorangestellt werden?", vbYesNo) = vbYes Then
Dim lngZeile As Long
Dim intSpalte As Integer
intSpalte = ActiveCell.Column
'aktiviert Spalte, in der sich Cursor gerade befindet
For lngZeile = 1 To Cells(Rows.Count, intSpalte).End(xlUp).Row
If Right(Cells(lngZeile, intSpalte), 1) = "-" Then
Cells(lngZeile, intSpalte) = "-" & Left(Cells(lngZeile, intSpalte), Len(Cells(lngZeile, intSpalte)) - 1)
End If
Next
Else
End If
End Sub
Schreib's in Deine PERSONL.xls und verknüpfs mit einem Icon in Deine Symbolleiste, dann hast Du's immer griffbereit.
Gruß
Torsten