Gruppen
- Top Gruppen
- Betriebsysteme
- Windows classik
- Linux
- BS-Sonstige
- Software
- Datenbanken
- Bildbearbeitung
- Audio/mp3/Video
- Security/Viren
- SW-Sonstige
- Hardware
- Mainboard/CPU
- Grafikkarten
- Peripherie
- Laptop/Notebook
- HW-Sonstiges
- Netzwerk
- Telefon,ISDN,Modem
- W-Lan
- NW-Sonstiges
- Programmierung
- PHP,ASP,Perl...
- Java,C++...
- Webseiten/HTML
- Sonstiges
- PC-Sonstiges
- Plauderecke
- SN Intern
- Test
/ Forum / Tabellenkalkulation
Tabellenkalkulation
Fragevon Wuulf vom 21.04.2021, 11:15 Options
Summe der Inhalte von Zellen, mit Abstand 7
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
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
Antwort 1 von rainberg vom 21.04.2021, 12:01 Options
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
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
Antwort 2 von Wuulf vom 21.04.2021, 20:42 Options
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
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
Antwort 3 von rainberg vom 21.04.2021, 21:26 Options
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
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
Antwort 4 von Wuulf vom 21.04.2021, 22:24 Options
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
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
Antwort 5 von rainberg vom 21.04.2021, 23:46 Options
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
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
Ähnliche Themen
Hallo und Frage: Makro für Kontrollkästchen, beim aktivieren Zellen und Inhalte aus Tabelle einfügt und beim deaktvieren herausnimmt?
Thomas64 31.03.2008 - 71 Hits - 5 Antworten
Excel Inhalte durchsuchen
Trollli89 02.05.2008 - 91 Hits - 1 Antwort
Vergleich der Inhalte von zwei Tabellenblättern
Sunate 12.06.2008 - 107 Hits - 1 Antwort
Excel - Inhalte von 2 Tabellen abgleichen
alfxgm 27.01.2009 - 336 Hits - 5 Antworten
Hinweis
Diese Frage ist schon etwas älter, Sie können daher nicht mehr auf sie antworten. Sollte Ihre Frage noch nicht gelöst sein, stellen Sie einfach eine neue Frage im Forum..
Neue Einträge
