Minuszeichen nach vorne
ludicla
ich hab riesige Dateitransporte aus SAP bei denen das Minuszeichen hinten steht.
mit dem Code:
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
kann ich Spaltenweise das Zeichen tauschen.
Wie muss ich den ändern damit der Code das ganze Tabellenblatt beackert ?
Gruss Ludicla