Identisch aufgebaute Tabellen wiederholt addieren
Sie arbeiten mit zwei gleich aufgebauten Tabellen, von denen eine aktuelle Monatswerte enthält und die andere jeweils über das Jahr summierte Werte anzeigen soll. Sie möchten mit einem Makro den Inhalt der Monatstabelle jeweils zum Inhalt der Jahrestabelle addieren.
Kopieren Sie die Werte aus der Monatstabelle in die Zwischenablage und fügen Se danach die Inhalte mit angepassten Optionen in die Gesamttabelle ein. Markieren Sie dazu den benötigten Datenbereich in der Monatstabelle und führen Sie den Befehl »Bearbeiten | Kopieren« aus. Dann wechseln Sie zur Gesamttabelle und setzen den Cursor in die linke obere Ecke des Datenbereiches. Nun führen Sie den Befehl »Bearbeiten | Inhalte einfügen« aus. Im folgenden Dialog wählen Sie im Bereich »Einfügen« die Option »Werte« und im Abschnitt »Operation« die Einstellung »Addieren«. Nach einem Klick auf »OK« sehen Sie die gewünschte Summe in der Gesamttabelle.
Zur Vermeidung von Fehlern können Sie diese Rechnung per Makro durchführen lassen. Dazu wählen Sie den Befehl »Extras | Makro | Makros«, geben als Makronamen zum Beispiel »Tabellen-Summierung« ein und klicken auf »Erstellen«. Nun geben Sie im VBA-Editor folgende Anweisungen ein:
Sub Summierung()
Sheets("Monatstabelle").Select
Range("B2:E12").Copy
Sheets("Gesamttabelle").Select
Range ("B2").SelectSelection.PasteSpecial Paste:=xlValues, Operation:=xlAdd, SkipBlanks:=False, Transpose:=False
Range("B2").Select
Sheets("Monatstabelle").Select
Range("B2").Select
End Sub
Beenden Sie die Eingabe mit »Datei | Schließen und zurück zu Microsoft Excel«. Das Makro aktiviert nun zuerst die Monatstabelle und kopiert dort einen Bereich, den Sie in Ihrem Makro individuell anpassen müssen (hier: B2:E12). Dann wechselt es zur Gesamttabelle und fügt den Inhalt der Zwischenablage nun mit der Operation Addition ein.