Bei einigen Taschenrechnern gibt es eine kleine Taste, die sehr nützlich sein kann: die Plus / Minus-Taste. Wenn diese Taste gedrückt wird, wird der auf dem Display angezeigte Wert zwischen den positiven und negativen Werten umgeschaltet. Wenn auf dem Display beispielsweise die Nummer 57 angezeigt wird, wird durch Drücken der Taste die Anzeige auf -57 geändert. Durch erneutes Drücken wird der Wert wieder auf 57 zurückgesetzt.

Wenn Sie eine „Schaltfläche“ möchten, die dies in Excel ausführt, werden Sie schnell feststellen, dass keine in das Programm integriert ist. Sie können jedoch schnell eines erstellen, indem Sie ein Makro verwenden:

Sub PlusMinus1()

Dim cell As Range

For Each cell In Selection         If Application.IsNumber(cell) Then             cell.Value = cell.Value * -1         End If     Next cell End Sub

Beachten Sie, dass das Makro einfach den Zellenbereich durchläuft, den Sie beim Starten des Makros ausgewählt haben. Jede Zelle wird überprüft, um festzustellen, ob sie eine Nummer enthält. Wenn dies der Fall ist, wird der Wert dieser Zahl mit -1 multipliziert. Das Ergebnis ist ein Einschaltzeichen für die Nummer.

Ein Nachteil des Makros besteht darin, dass, wenn die Zelle eine Formel enthält, diese Formel in einen Wert konvertiert und dann mit dem Wert -1 multipliziert wird. Möglicherweise möchten Sie Ihre Formeln nicht verlieren. In diesem Fall können Sie sich auf ein differenzierteres Makro verlassen, das prüft, ob die Zelle eine Formel enthält oder nicht. Wenn nicht, wird es einfach mit -1 multipliziert. Wenn ja, wird die Formel so angepasst, dass das Ergebnis mit -1 multipliziert wird.

Sub PlusMinus2()

Dim cell As Range

For Each cell In Selection         If Left(cell.Formula, 1) = "=" Then             Cell.Formula = cell.Formula & " * -1"

Elseif Application.IsNumber(cell) Then             cell.Value = cell.Value * -1         End If     Next cell End Sub

Sie können eines dieser Makros einer Tastenkombination oder einer Symbolleistenschaltfläche zuweisen, um die Verwendung jederzeit zu vereinfachen.

_Hinweis: _

Wenn Sie wissen möchten, wie die auf dieser Seite (oder auf einer anderen Seite der ExcelTips-Websites) beschriebenen Makros verwendet werden, habe ich eine spezielle Seite vorbereitet, die hilfreiche Informationen enthält.

Klicken Sie hier, um diese spezielle Seite in einem neuen Browser-Tab zu öffnen.

ExcelTips ist Ihre Quelle für kostengünstige Microsoft Excel-Schulungen.

Dieser Tipp (3256) gilt für Microsoft Excel 97, 2000, 2002 und 2003. Eine Version dieses Tipps für die Multifunktionsleistenschnittstelle von Excel (Excel 2007 und höher) finden Sie hier:

Erstellen einer Plus / Minus-Schaltfläche.