Jede zweite Zelle in Excel addieren mit VBA
Schritt-für-Schritt-Anleitung
Um jede zweite Zelle in einer Zeile in Excel zu summieren, kannst Du verschiedene Methoden anwenden. Hier ist eine einfache Schritt-für-Schritt-Anleitung mit VBA:
-
Öffne den VBA-Editor:
- Drücke
ALT + F11, um den VBA-Editor zu öffnen.
-
Füge ein neues Modul hinzu:
- Klicke auf
Einfügen und wähle Modul.
-
Füge den folgenden Code ein:
Function SummeSpezial() As Currency
Dim iSpalte As Integer
For iSpalte = Application.Caller.Column + 2 To Cells(Application.Caller.Row, 256).End(xlToLeft).Column Step 2
SummeSpezial = SummeSpezial + Cells(Application.Caller.Row, iSpalte)
Next iSpalte
End Function
-
Schließe den VBA-Editor:
- Du kannst den Editor schließen, nachdem Du den Code eingefügt hast.
-
Verwende die Funktion in Excel:
- Gehe zurück zu Deinem Excel-Blatt und gib in Zelle
F6 die Formel =SUMMESPEZIAL() ein.
Jetzt summiert die Funktion jede zweite Zelle in der Zeile 6, beginnend mit der dritten Zelle (H6, J6, L6, ...).
Häufige Fehler und Lösungen
Alternative Methoden
Falls Du keine VBA-Funktionen nutzen möchtest, kannst Du auch die Formel =SUMMENPRODUKT((REST(ZEILE(H6:DZ6);2)=0)*H6:DZ6) verwenden. Diese Formel summiert alle Zellen in der Zeile 6, die in zweier Schritten liegen.
Du kannst auch die Funktion =SUMME() in Kombination mit =REST(ZEILE() 2)=0 verwenden, um gezielt jede zweite Zeile zu addieren, wenn Du die Daten anders organisierst.
Praktische Beispiele
-
Summiere jede zweite Zelle in der Zeile 6:
- Verwende die Formel
=SUMMENPRODUKT((REST(ZEILE(H6:DZ6);2)=0)*H6:DZ6).
-
Summiere jede zweite Spalte in einer bestimmten Zeile:
- Wenn Du jede zweite Spalte summieren möchtest, nutze die Formel
=SUMMENPRODUKT((REST(SPALTE(A1:Z1);2)=0)*A1:Z1).
Tipps für Profis
- Nutze die Funktion
Application.Volatile, um sicherzustellen, dass Deine benutzerdefinierte Funktion sich bei jeder Berechnung aktualisiert.
- Wenn Du oft mit großen Datenmengen arbeitest, überlege, ob Du die Daten in Tabellenform organisierst. Dies erleichtert das Markieren und Summieren von Zellen erheblich.
- Experimentiere mit bedingten Formatierungen, um jede x-te Zeile oder Spalte visuell hervorzuheben.
FAQ: Häufige Fragen
1. Wie kann ich jede zweite Zeile in Excel addieren?
Du kannst die Formel =SUMMENPRODUKT((REST(ZEILE(A1:A300);2)=0)*A1:A300) verwenden, um jede zweite Zeile zu addieren.
2. Funktioniert das auch in Excel 365?
Ja, die beschriebenen Methoden funktionieren in Excel 365 sowie in früheren Versionen von Excel.
3. Kann ich diese Funktion auch für andere Zeilen verwenden?
Ja, Du kannst die Zeilenreferenz in den Formeln anpassen, um die gewünschten Zeilen zu summieren.