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
Dies ändert aber alle Vorzeichen in Gegenteil nicht nur die Negativen. Ausserdem muss ich hier den Range von Hand auswählen und ich kann es nicht auf eine variable Anzahl von Tabellen anwenden. Hat jemand eine Idee?
Gruss
Frédéric