Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Summe aus 2 Zellen per Makro ermitteln

Summe aus 2 Zellen per Makro ermitteln
25.01.2005 15:03:26
Harald
Hallo libe Excel-Freunde,
wie kann ich die Summe aus 2 Zellen (A1 und B1) per Makro ermitteln und in Zelle C1 schreiben ( ohne dass in Zelle C1 eine Formel eingegeben wird )?
Die Eingaben in Zellen A1 und B1 ändern sich wöchentlich.
Die Summe aus diesen beiden Zellen muss aber wöchentlich dokumentiert und gespeichert werden, so dass ich hier nur mit einem VBA-Code - nicht aber mit einer Summenformel in der Zelle arbeiten kann.
Also etwa so: ActiveCells = Summe A1 und B1 ?
Gruß, Harald G. aus Köln
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Summe aus 2 Zellen per Makro ermitteln
25.01.2005 15:11:47
XYZ

Sub Makro1()
Range("C1").FormulaR1C1 = "=RC[-2]+RC[-1]"
Range("C1").Copy
Range("C1").PasteSpecial Paste:=xlValues
Application.CutCopyMode = False
End Sub

so ein Blödsinn!
u_
Range("C1")=Range("A1")+Range("B1")
AW: Summe aus 2 Zellen per Makro ermitteln
Luc
Hallo Harald,

Sub ZellAddi()
range("C1").formula = range("A1").value + range("B1").value
End Sub

So ungefähr hätte es dir auch der Makrorecorder geliefert. Das Makro läuft so natürlich nicht automatisch. Du musst es (evtl über Button oder anderes Zeichnungsobjekt) erst starten. Eine Automatisierung wäre allerdings drin, wenn du das in eine Event_Prozedur auf dem dem Tabellenblatt direkt zugeordneten Makroblatt einträgst, z.B. unter [WorkSheet_]Change. Sobald dann neue Daten in die Zellen eingetragen werden, wird das Makro ausgelöst. Du musst dann allerdings über Bedingungen dafür sorgen, dass die Berechnung nur durchgeführt wird, wenn sich genau die Zellen A1 und B1 ändern und erst, wenn beide geändert wurden.
Aber warum erzähl ich dir das alles - bei der Selbsteinschätzung deines Kenntnisstandes in XL/VBA? Kannst du doch eigentlich selbst drauf kommen!?
Alaf Luc, Bln
Anzeige
AW: Summe aus 2 Zellen per Makro ermitteln
Harald
Funktioniert, vielen Dank.
Gruß, Harald G. aus Köln
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Infobox / Tutorial

Summe aus zwei Zellen per Makro ermitteln


Schritt-für-Schritt-Anleitung

Um die Summe aus zwei Zellen (z.B. A1 und B1) per Makro zu ermitteln und das Ergebnis in Zelle C1 zu speichern, kannst du folgenden VBA-Code verwenden:

Sub SummeAusZweiZellen()
    Range("C1").Value = Range("A1").Value + Range("B1").Value
End Sub
  1. Öffne Excel und drücke ALT + F11, um den VBA-Editor zu öffnen.
  2. Klicke auf Einfügen und wähle Modul, um ein neues Modul zu erstellen.
  3. Füge den obigen Code in das Modul ein.
  4. Schließe den VBA-Editor und kehre zu Excel zurück.
  5. Führe das Makro aus, indem du ALT + F8 drückst, das Makro auswählst und auf Ausführen klickst.

Häufige Fehler und Lösungen

  • Fehler: "Laufzeitfehler 1004: Methode 'Range' des Objekts '_Global' fehlgeschlagen."

    • Lösung: Überprüfe, ob die Zellen A1 und B1 existieren und nicht durch einen Filter ausgeblendet sind.
  • Fehler: "Das Makro kann nicht gefunden werden."

    • Lösung: Stelle sicher, dass das Makro im richtigen Modul gespeichert ist und dass du in der richtigen Arbeitsmappe arbeitest.

Alternative Methoden

Wenn du die Excel Summe aus markierten Zellen berechnen möchtest, kannst du den folgenden VBA-Code verwenden:

Sub SummeMarkierterZellen()
    Dim summe As Double
    Dim zelle As Range

    For Each zelle In Selection
        summe = summe + zelle.Value
    Next zelle

    Range("C1").Value = summe
End Sub

Dieser Code addiert alle markierten Zellen und gibt das Ergebnis in Zelle C1 aus. So kannst du die Excel Summe von markierten Zellen schnell und effizient berechnen.


Praktische Beispiele

  1. Summe aus zwei Zellen:

    • Verwende den ersten VBA-Code, um die Summe aus A1 und B1 in C1 zu speichern.
  2. Summe von markierten Zellen:

    • Markiere mehrere Zellen und führe den zweiten VBA-Code aus, um die Summe in C1 zu sehen.
  3. Summe einer gesamten Spalte:

    • Um die Excel VBA Summe einer Spalte zu berechnen, kannst du folgenden Code nutzen:
Sub SummeSpalte()
    Range("C1").Value = Application.WorksheetFunction.Sum(Range("A:A"))
End Sub

Dieser Code summiert alle Werte in Spalte A und gibt das Ergebnis in C1 aus.


Tipps für Profis

  • Nutze Event-Prozeduren: Du kannst dein Makro so einstellen, dass es automatisch ausgeführt wird, wenn sich der Wert in A1 oder B1 ändert. Verwende dazu Worksheet_Change in der entsprechenden Arbeitsblatt-Klasse.

  • Debugging: Verwende Debug.Print im Code, um den Wert von Variablen während der Ausführung zu überwachen.

  • Makros speichern: Stelle sicher, dass du deine Excel-Datei im .xlsm-Format speicherst, um die VBA-Makros zu behalten.


FAQ: Häufige Fragen

1. Wie kann ich das Makro automatisch ausführen lassen?
Du kannst das Makro in eine Event-Prozedur wie Worksheet_Change einfügen, um es auszuführen, wenn sich bestimmte Zellen ändern.

2. Funktioniert dieser Code in allen Excel-Versionen?
Ja, der VBA-Code sollte in den meisten modernen Excel-Versionen (Excel 2010 und später) funktionieren.

3. Wie kann ich die Summe aus zwei Zellen ohne VBA berechnen?
Du kannst einfach die Formel =A1+B1 in Zelle C1 eingeben, um die Summe zu erhalten.

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige