Nur negative Vorzeichen ändern
F.
Ich versuche in einer variablen Anzahl von Tabellenblättern die negativen Vorzeichen in Positive zu ändern.
Zum Beginn habe ich dies mit einem kleinen Beispiel versucht.
A1: -1
A2: 2
A3: (leer)
A4: -3
Damit versucht zu drehen (inkl. Beachtung von leeren Zellen)
Sub Vorzeichen()
Dim rngZelle As Range
For Each rngZelle In Selection
If IsNumeric(rngZelle.Value) And Not IsEmpty(rngZelle) Then rngZelle.Value = -rngZelle.Value
Next
End Sub
Hat jemand eine Idee?
Gruss
Frédéric