Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.04.2025 17:32:50
Zellinhalt teilweise ausblenden
28.04.2025 12:16:38
SVERWEIS bei mehrspaltigen Suchkriterien + Mehrfachtreffer
28.04.2025 11:54:42
Keine Abfrage, ob Verknüpfungen aktualisiert werden sollen
28.04.2025 09:25:26
Automatische Auswahl - unterzeichnende Personen
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
144to148
144to148
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Werte aufaddieren und speichern

Forumthread: Werte aufaddieren und speichern

Werte aufaddieren und speichern
12.08.2002 14:08:36
Bernhard
Hallo, ich habe folgendes Problem:
eine Datei wird geöffnet und eine Berechnung durchgeführt. Dieser Wert soll in einer anderen Datei gespeichert werden und ständig aufaddiert werden.
Folgende Formel steht in Zelle A1: A1+Wert
Das ist ein Zirkelbezug, den Excel auch ausführt. Leider funktioniert das nicht. Ich möchte, das die Datei mit der Aufsummierung geöffnet wird und der Wert aus der Berechnung zum schon vorhandenen Wert hinzu addiert wird.
Weiß jemand Rat??
Gruß,
Bernhard
Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Werte aufaddieren und speichern
12.08.2002 15:41:59
Otto Ecker
Hallo Bernhard,

das geht nur per VBA. z.B. so

set wkb1 =workbooks("Datei2.xls").worksheets("Tabelle1")
range("A1").value=range("a1").value+wkb1.range("a1").value

Gruß Otto

Re: Werte aufaddieren und speichern
12.08.2002 16:36:52
Bernhard
Hallo Otto,
vielen Dank für die Hilfe. Leider funktioniert das nicht so ganz.
Der Wert wird zwar in die Zelle übernommen, aber nach schließen und öffnen der Datei mit der Summe, wird die Zelle zuerst wieder auf Null gesetzt.
Kann man das verhindern?
Vielleicht zum Verständnis: jeden Tag wird einmal ein Makro durchlaufen, in dem die Datei mit der Summe aufgerufen wird und zu der schon vorhandenen Summe soll wieder der neue Wert aus der Berechnung einer anderen Datei hinzu addiert werden.

Gruß,
Bernhard

Anzeige
Re: Werte aufaddieren und speichern
13.08.2002 10:36:52
Otto Ecker
Hallo Bernhard,

wir gehen mal davon aus, dass die Datei mit der Summe "Datei2" heißt. Dann hättest Du den Code wie folgt abändern müssen:

set wkb2=workbooks("Datei2.xls").worksheets("Summenblatt")
set wkb1=thisworkbook.worksheets("Einzelblatt")
wkb2.range("a1").value=wkb2.range(A1").value + wkb1.range("a20").value

zum Verständnis: in der "Datei2"=wkb2, Zelle A1 steht die Summe.
in wkb1, Zelle A20 steht der Wert der zu der Summe hinzuaddiert werden soll.

Lade Dir mal die Herber Beispiele runter oder noch besser investiere die paar Euro und kaufe die Beispiel-Excel-Dateien =Excel-CD von Hans Herber

Gruß Otto

Anzeige
funktioniert
13.08.2002 20:49:00
Bernhard
Hallo Otto,
das Makro funktioniert nun. War mein Fehler, ich hatte vergessen die Summendatei per Makro zu speichern.
Vielen Dank für die Hilfe, ich denke, dass ich deinen Rat die Excel-CD zu bestellen später noch befolgen werde.
Herzlichen Dank auch an alle, die dieses Forum erst möglich machen!!!!!

Gruß,
Bernhard

Anzeige
Anzeige

Infobox / Tutorial

Werte aufaddieren und speichern in Excel

Schritt-für-Schritt-Anleitung

Um Werte in Excel zu speichern und fortlaufend aufaddieren zu können, benötigst Du ein einfaches VBA-Makro. Hier ist eine Schritt-für-Schritt-Anleitung:

  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.

  2. Füge ein neues Modul hinzu: Rechtsklick auf "VBAProject" > Einfügen > Modul.

  3. Kopiere den folgenden Code in das Modul:

    Sub WerteAufaddieren()
    Dim wkb1 As Workbook
    Dim wkb2 As Workbook

    Set wkb1 = ThisWorkbook.Worksheets("Einzelblatt")
    Set wkb2 = Workbooks("Datei2.xls").Worksheets("Summenblatt")

    wkb2.Range("A1").Value = wkb2.Range("A1").Value + wkb1.Range("A20").Value

    ' Sicherstellen, dass die Datei gespeichert wird
    wkb2.Parent.Save
End Sub

  4. Schließe den VBA-Editor und kehre zu Excel zurück.

  5. Führe das Makro aus: Gehe zu "Entwicklertools" > "Makros" und wähle WerteAufaddieren, dann klicke auf "Ausführen".

Häufige Fehler und Lösungen

  • Zirkelbezug: Wenn Du einen Zirkelbezug erhältst, überprüfe die Formeln in Deinen Zellen. Excel kann mit Zirkelbezügen umgehen, aber sie sollten vermieden werden, wenn möglich.

  • Wert wird nicht gespeichert: Stelle sicher, dass Du die Datei mit der Summe nach dem Ausführen des Makros speicherst. Füge wkb2.Parent.Save am Ende des Makros hinzu, um sicherzustellen, dass die Werte gespeichert werden.

  • Fehlende Datei: Achte darauf, dass die Datei, die Du aufrufen möchtest, tatsächlich geöffnet ist. Ansonsten erhältst Du einen Laufzeitfehler.

Alternative Methoden

Wenn Du VBA nicht verwenden möchtest, kannst Du auch die Funktion „SUMME“ in Excel verwenden, um Werte zu aggregieren, allerdings ist dies nicht für das Speichern von Werten in einer anderen Datei geeignet. Eine weitere Möglichkeit ist die Verwendung von Power Query, um Daten aus verschiedenen Quellen zusammenzuführen und zu speichern.

Praktische Beispiele

  1. Einfaches Beispiel:

    • In der Zelle A1 Deiner "Summenblatt"-Datei steht bereits ein Wert.
    • In der Zelle A20 der "Einzelblatt"-Datei steht der neue Wert, den Du aufaddieren möchtest.
    • Das Makro addiert den Wert aus A20 zur Summe in A1.

  2. Wochenbericht:

    • Erstelle ein Makro, das wöchentliche Werte in einer Datei speichert und aufaddiert. Das könnte für Verkaufszahlen oder ähnliche Daten nützlich sein.

Tipps für Profis

  • Excel nur Werte speichern: Wenn Du nur die berechneten Werte und nicht die Formeln speichern möchtest, kannst Du nach dem Ausführen des Makros die Werte kopieren und als „Werte“ einfügen.

  • Fehlerbehandlung einbauen: Füge Fehlerbehandlungsroutinen in Dein Makro ein, um unerwartete Situationen zu handhaben, wie z.B. wenn die Datei nicht geöffnet ist.

FAQ: Häufige Fragen

1. Wie kann ich die Datei automatisch öffnen lassen?
Du kannst einen weiteren VBA-Code verwenden, um die Datei beim Starten des Makros automatisch zu öffnen.

2. Funktioniert das auch in Excel Online?
Leider ist VBA nicht in Excel Online verfügbar. Du musst die Desktop-Version von Excel verwenden.

3. Kann ich mehrere Werte gleichzeitig aufaddieren?
Ja, Du kannst das Makro anpassen, um mehrere Zellen zu summieren, indem Du eine Schleife über die gewünschten Zellen implementierst.

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige