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