Summe der Inhalte von Zellen, mit Abstand 7

Question

Ich habe eine große Excel Tabelle (ca. 10000*20) mit Namen Datum und jede menge Zahlen.

Ich möchte nun Zeile und Spalte eingeben, (diese Zelle ist eine Zahl). Das Programm soll nun den Inhalt aller Zellen, von der ersten, die ich gewählt habe und allen im Abstand von 7 Zeilen darunter zusammenzählen!
Beispiel: Wähle Zeile 1 Spalte 3 (Also A3)
Ich möchte jetzt die Summe von A3+A10+A17+A24...

(ich habe schon einiges versucht, aber ich erhalte immer einen Fehler : Typen unverträglich

Option Explicit

Sub ooh()
Dim i As Integer
Dim j As Integer
Dim summe As Double

i = InputBox("Zeile eingeben")
j = InputBox("Spalte eingeben (Zahl)")

For i = 1 To Cells.SpecialCells(xlCellTypeLastCell).Row Step 7
summe = summe + Cells(i, 1)
Next
MsgBox summe
End Sub

Bitte um Hilfe
Wuulf

Answer 1

Hallo Wuulf,

für diesen Zweck würde auch eine Formel reichen.

Folgende Formel addiert ab A3 den Wert jeder 7. Zelle im Bereich A1:A10000)

=SUMMENPRODUKT((REST(ZEILE(1:10000);7)=3)*(A1:A10000))

Gruß
Rainer

Answer 2

Hallo Rainer!
Möchte mich recht herzlich für deine Unterstützung bedanken!
Habe ausprobiert, wenn nicht irgendwas in der Spalte steht, das nicht eindeutig eine Zahl ist, geht es super und ist viel effektiver!
Aber sonst erhalte ich leider #WERT!

Kann man irgendwie die Formatierung ändern?
Mit SQL abfragen?

Bitte um weitere Hilfe
Wuulf

Answer 3

Hallo Wuulf,

wenn auch Textwerte in der Spalte stehen, funktioniert diese Formel

=SUMMENPRODUKT((NICHT(ISTTEXT(A1:A10000)))*(REST(ZEILE(1:10000);7)=3);A1:A10000)

Gruß
Rainer

Answer 4

WOW - Rainer das ist es!!!

Keine einzige Fehlermeldung! DANKE!

Jetzt schäm ich mich schon fast. Aber ich hätte da noch mein letztes Problem!

Lässt sich deine Wunderformel noch weiter ausbauen?
Ich möchte auch noch die Bearbeitungszeiten berechnen. Es gibt also Zellen mit diesen Werten, genau 2 Zellen darunter steht eine 0 (für falsch gelöst) oder eine 1 (Beispiel wurde richtig gelöst).

Lässt sich für das Summenprodukt noch die Bedingung einbauen, dass genau 2 Zellen darunter eine 1 stehen muss?

Beispiel:A3=55
A5=1
A10= 23
A12=0
A17=40
A19=1
.
.
Das Ergebnis bis A19 sollte entweder 55*1+23*0+40*1=95 sein.

Oder nur die mit 1:Also 55+40=95

Danke und L.g.
Wuulf

Answer 5

Hallo Wuulf,

eine komplexe Formel fällt mir im Moment dazu nicht ein.
Du könntest aber mit einer Hilfsspalte arbeiten.

Schreibe in B3 folgende Formel und kopiere sie nach unten

=WENN(A3="";"";WENN(A5=1;1;WENN(A5="";"";2)))

Dann bekommst Du mit folgender Formel die Summe für Kriterium 1.

=SUMMENPRODUKT((NICHT(ISTTEXT(A3:A10000)))*(REST(ZEILE(3:10000);7)=3)*(B3:B10000=1);A3:A10000)

und mit dieser Formel die Summe für Kriterium 0.

=SUMMENPRODUKT((NICHT(ISTTEXT(A3:A10000)))*(REST(ZEILE(3:10000);7)=3)*(B3:B10000=2);A3:A10000)

Gruß
Rainer

Answer 6

"Nur der Rainer ist meiner"!!!

Ja, somit ist es möglich alles aus der Excel-Datei herauszuholen!
Meine Probleme sind somit mit Hilfe von RAINER
restlos geklärt!

Herzlichen Dank und schöne Grüße sendet DIR
WUULF