ich suche ein Tool/Makro mit dem ich in Excel
auf einen schlag markierte Zellen mit Nummern
von positiv (z.b. 234,30) nach negativ ( -234,30)
wandeln kann. oder umgekehrt.
Gruß Thomas
Sub Negieren()
Dim z As Range
Dim l As Long
For Each z In Selection
If IsNumeric(z.Value) Then
If z.HasFormula Then
l = Len(z.Formula)
If Left(z.Formula, 2) = "=(" And Right(z.Formula, 4) = ")*-1" Then
z.Formula = "=" & Mid(z.Formula, 3, l - 6)
Else
z.Formula = "=(" & Mid(z.Formula, 2) & ")*-1"
End If
Else
z.Value = -1 * z.Value
End If
End If
Next z
End Sub