Minuszeichen
27.08.2003 09:29:24
Torsten K.
für das Löschen eines Hochkommas vor einem Wert habe ich gestern von Michael Scheffler folgendes Makro erhalten:
Sub BW_Hochkomma()
Dim lngZeile As Long
Dim intSpalte As Integer
intSpalte = ActiveCell.Column
For lngZeile = 1 To Cells(Rows.Count, intSpalte).End(xlUp).Row
Cells(lngZeile, intSpalte) = Replace(Cells(lngZeile, intSpalte), "'", "")
Next
Else
End If
End Sub
Meine Frage lautet: Wie muß ich den Code in der For-Next-Schleife ändern, damit Minuszeichen, die hinter den Zahlen stehen, vorangestellt werden?
Vielen Dank für Eure Hilfe im voraus.
Gruß
Torsten