Verwenden des OnEntry-Makros zum Erstellen einer ausgeführten Summe in einem Zellkommentar in Excel

Zusammenfassung

In Microsoft Excel können Sie Zirkelbezüge vermeiden, wenn Sie eine laufende Summe erstellen, indem Sie das Ergebnis in einem nicht berechnenden Teil eines Arbeitsblatts speichern. Dieser Artikel enthält ein Beispiel für eine Microsoft Visual Basic for Applications Prozedur, die dazu eine laufende Summe in einem Zellkommentar speichert.

Weitere Informationen

Die Verwendung der hier aufgeführten Informationen, Makro- oder Programmcodes geschieht auf Ihre eigene Verantwortung. Microsoft stellt Ihnen diese Informationen sowie Makro- und Programmlistings ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionsfähigkeit sowie ohne Anspruch auf Support zur Verfügung. Die zur Verfügung gestellten Makro- und Programmierungsbeispiele sollen lediglich exemplarisch die Funktionsweise des Beispiels aufzeigen. Die Microsoft Support-Spezialisten können bei der Erläuterung der Funktionalität bestimmter Prozeduren helfen, jedoch werden sie diese Beispiele nicht in Bezug auf eine erweiterte Funktionalität verändern, noch werden sie Prozeduren entwickeln, die auf Ihre besonderen Bedürfnisse zugeschnitten sind.

So erstellen Sie eine laufende Summe in einer Zelle

1. Öffnen Sie eine neue Arbeitsmappe in Microsoft Excel.

2. Starten Sie die Visual Basic-Editor (drücken Sie ALT+F11).

3. Klicken Sie im Menü Einfügen auf Modul.

4. Geben Sie die folgenden Makros in dieses Modul ein:

      ' The Auto_Open name forces this macro to run every time
      ' the workbook containing this macro is opened.
   
   Sub Auto_Open()
      '  Every time a cell's value is changed,
      '  the RunningTotal macro runs.
         Application.OnEntry = "RunningTotal"
      End Sub
   
      '----------------------------------------------------------
      ' This macro runs each time the value of a cell changes.
      ' It adds the current value of the cell to the value of the
      ' cell comment. Then it stores the new total in the cell comment.
      Sub RunningTotal()
   
   On Error GoTo errorhandler      ' Skip cells that have no comment.
   
   With Application.Caller
   
      '     Checks to see if the cell is a running total by
      '     checking to see if the first 4 characters of the cell
      '     comment are "RT= ". NOTE: there is a space after the equal
      '     sign.
            If Left(.Comment.Text, 4) = "RT= " Then
   
      '        Change the cell's value to the new value in the cell
      '        plus the old total stored in the cell comment.
               RT = .Value + Right(.Comment.Text, Len(.Comment.Text) - 4)
               .Value = RT
   
      '        Store the new total in the cell note.
               .Comment.Text Text:="RT= " & RT
           End If
         End With
   
   Exit Sub      ' Skip over the errorhandler routine.
   
   errorhandler: ' End the procedure if no comment in the cell.
         Exit Sub
   
   End Sub
   
      '--------------------------------------------------------------
      ' This macro sets up a cell to be a running total cell.
      Sub SetComment()
         With ActiveCell
      '     Set comment to indicate that a running total is present.
      '     If the ActiveCell is empty, multiplying by 1 will
      '     return a 0.
            .AddComment
            .Comment.Text Text:="RT= " & (ActiveCell * 1)
         End With
      End Sub
   

5. Nachdem Sie die Makros eingegeben haben, klicken Sie im Menü Datei auf Schließen und zurück zu Microsoft Excel.

6. Speichern und schließen Sie die Arbeitsmappe, und öffnen Sie sie dann erneut.

   Das eingegebene Auto_Open Makro wird ausgeführt, wenn Sie die Arbeitsmappe öffnen.

7. Wählen Sie Zelle C3 aus.

   Dies ist die Zelle, die einen Kommentar mit der ausgeführten Summe enthält.

8. Führen Sie die folgenden Schritte aus, um das SetComment-Makro auszuführen:

   1. Zeigen Sie im Menü „Extras“ auf „Makro“, und klicken Sie dann auf „Makros“.
   2. Klicken Sie im Dialogfeld Makro auf Kommentar festlegen, und klicken Sie dann auf Ausführen.

Beispiel für die Verwendung der ausgeführten Summe

Führen Sie die folgenden Schritte aus, um die ausgeführte Summe zu verwenden:

1. Geben Sie die Zahl 10 in Zelle C3 ein.
2. Wählen Sie Zelle C3 aus, und beachten Sie, dass der Kommentar "RT= 10" (ohne Anführungszeichen) anzeigt.
3. Geben Sie die Zahl 7 in Zelle C3 ein.
4. Wählen Sie Zelle C3 aus, und beachten Sie, dass der Kommentar "RT= 17" (ohne Anführungszeichen) anzeigt.

So entfernen Sie die ausgeführte Summe

Führen Sie die folgenden Schritte aus, um die ausgeführte Summe zu entfernen:

1. Wählen Sie die Zelle aus, die die ausgeführte Summe enthält, die Entfernt werden soll.
2. Klicken Sie mit der rechten Maustaste auf die Zelle, und klicken Sie im Kontextmenü auf Kommentar löschen.