Es gibt Zeiten, in denen Sie die in den Zellen eines Arbeitsblatts gespeicherten Werte anpassen müssen. In den meisten Fällen passen die von Paste Special bereitgestellten Tools perfekt zur Rechnung. Sie können beispielsweise Paste Special verwenden, um die Werte in einem Zellbereich zu multiplizieren oder zu dividieren, wie in anderen Ausgaben von ExcelTips.

beschrieben Die Verwendung von Paste Special hat jedoch einen Nachteil: Es ändert den tatsächlichen Wert, was möglicherweise nicht geschehen soll. Warum? Denn vier Monate nach der Anpassung der Werte können Sie sich möglicherweise nicht genau erinnern, was Sie getan haben oder wie die Ausgangswerte lauteten.

Aus diesem Grund ist es möglicherweise wünschenswerter, Werte durch Formeln zu ersetzen, die angeben, was mit Ihrer Anpassung geschehen ist. Beispielsweise können Sie in Zelle B3 den Wert 100 haben und ihn um 10% erhöhen. Mit Paste Special können Sie es leicht in 110 ändern. Stattdessen möchten Sie den Wert möglicherweise durch die Formel = 100 * 1.1 ersetzen. Mit einer solchen Formel würde es in vier Monaten keine Frage mehr geben, welchen Startwert Sie haben oder was Sie damit gemacht haben.

Die einzige Möglichkeit, Werte mit Formeln anzupassen, besteht darin, ein Makro wie das folgende zu verwenden:

Sub Adjust()

Dim c As Range     Dim sForm As String     Dim sMod As String          Set Target = ActiveSheet.Range(ActiveWindow.Selection.Address)

sMod = InputBox("Formula to add?")

If sMod > "" Then         For Each c in Selection             If c.HasFormula Then                 sForm = c.Formula                 sForm = "=(" & Mid(sForm, 2, 500) & ")"

sForm = sForm & sMod                 c.Formula = sForm             Else                 c.Formula = "=" & c.Value & sMod             End If         Next c     End If End Sub

Um dieses Makro zu verwenden, wählen Sie die Zellen aus, die Sie anpassen möchten, und führen Sie es dann aus.

Sie werden nach einer Formel gefragt, die den Zellen hinzugefügt werden soll. Wenn Sie beispielsweise die Zellen mit 1.1 multiplizieren möchten, geben Sie 1.1 ein (das Sternchen-Multiplikationssymbol, gefolgt von 1.1). Das Makro durchläuft dann jede ausgewählte Zelle und nimmt die Anpassungen vor. Wenn die Zelle eine Formel enthält, wird die Formel wie angegeben angepasst. Wenn die Zelle noch etwas enthält, wird sie in eine Formel umgewandelt, die Ihre Anpassung enthält.

_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 (2592) 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:

Anpassen von Werten mit Formeln.