Vorzeichen wechsel DIE DRITTE
18.11.2003 11:11:53
Wolfi
ich hab gerade entdeckt das es in meinen 40000 Zeilen noch eine 3 Form der Darstellung gibt:
1. .1000 ich brauch 1000
2. 1000- ich brauch 1000
3. .1000- ich brauch 1000
möchte das jetzt mit dem folgenden Macro lösen (die Formel wird wohl jetzt etwas zu lang ), welches ich von Euch bekommen habe. Ich hab es angepasst, aber leider, hab ich keine Ahnung wie Bedingungen für die jeweilige Umwandlung sein müssen (.....)
Sub PlusMinus()
Dim rng As Range
For Each rng In Selection.Cells
If Left(rng, 1) = "." And Right(rng, 1) = "-" Then
rng = ......
ElseIf Right(rng, 1) = "-" Then _
rng = 0 - Left(rng, Len(rng) - 1)
ElseIf Left(rng, 1) = "." Then
rng = .......
End If
Next
End Sub
Gruß und Danke
Anzeige