Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1160to1164
1160to1164
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summation bis zur nächsten Leerzeile

Summation bis zur nächsten Leerzeile
Miguel
Hallo,
ich brauche dringend Hilfe für folgenden Sachverhalt, siehe auch Excelanhang.
https://www.herber.de/bbs/user/70238.xls
Lösung lautet:
Gerät1 = 3 ST
Gerät2 = 8 ST
Quelldaten:
Gerät 1
8 22.06.2010 1 ST
8 21.06.2010 2 ST
Gerät 2
8 22.06.2010 1 ST
8 21.06.2010 7 ST
Da jeden Tag pro Gerät eine neue Zeile generiert wird benötige ich eine dynamische Formel, die mir folgendes wiedergibt:
wenn Gerät1=Gerät1 dann gehe in Spalte C und summiere solange nach unten bis eine Leerzeile auftaucht.
Gerät2=Gerät2 dann springe in Spalte C und summiere solange nach unten bis eine Leerzeile auftaucht.
etc.
Summe nur mal bis zur Leerzelle
23.06.2010 13:03:12
WF
Hi,
wie Du das weiter generieren/automatisieren willst, ist mir nicht ganz klar.
Folgenden Arrayformel:
{=SUMME(C2:INDIREKT("C"&MIN(WENN(C2:C99="";ZEILE(2:99)))-1))}
Salut WF
AW: Summation bis zur nächsten Leerzeile
23.06.2010 13:22:12
fcs
Hallo Miguel,
der einfachste Weg wäre, per Makro das Gerät jeweils in der Spalte E einzutragen. Dann kann man mit der Funktion SUMMEWENN die Gesamtstückzahlen ermitteln. Gerät 1 8 22.06.2010 1 ST Gerät 1 Gerät 1 3 8 21.06.2010 2 ST Gerät 1 Gerät 2 8 Gerät 3 2 Gerät 2 8 21.06.2010 1 ST Gerät 2 Zelle Formula-Local 8 20.06.2010 7 ST Gerät 2 $H$2 =SUMMEWENN(E:E;G2;C:C) $H$3 =SUMMEWENN(E:E;G3;C:C) Gerät 3 $H$4 =SUMMEWENN(E:E;G4;C:C) 8 21.06.2010 1 ST Gerät 3 8 20.06.2010 1 ST Gerät 3
Gruß
Franz 
Sub Geraet_Spalte_E()
'Gerät in Spalte A jeweils in Spalte E eintragen
Dim wks As Worksheet, sGeraet As String, Zeile As Long
Set wks = ActiveSheet
With wks
Application.ScreenUpdating = False
.Columns(5).ClearContents
Zeile = 1 'Zeile mit 1. gerät
sGeraet = .Cells(Zeile, 1)
For Zeile = Zeile + 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
If .Cells(Zeile, 1)  "" Then
.Cells(Zeile, 5).Value = sGeraet
Else
Zeile = Zeile + 1
sGeraet = .Cells(Zeile, 1)
End If
Next
Application.ScreenUpdating = True
End With
End Sub

Anzeige
Summe(Fundstelle:nächste Leerzeile)
23.06.2010 13:23:33
Erich
Hi Miguel,
probier mal (von B14 nach unten kopieren):
 AB
14Gerät 13
15Gerät 28
16Gerät 32

Formeln der Tabelle
ZelleFormel
B14{=SUMME(BEREICH.VERSCHIEBEN(C$1;VERGLEICH(A14;A$1:A$12;0); ; MIN(WENN(BEREICH.VERSCHIEBEN(C$1;VERGLEICH(A14;A$1:A$12;0); ;9999)=""; ZEILE(BEREICH.VERSCHIEBEN(C$1;VERGLEICH(A14;A$1:A$12;0); ;9999)))) -VERGLEICH(A14;A$1:A$12;0)))}
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Vorschlag mit Hilfsspalte
23.06.2010 13:28:15
Erich
Hi,
so gehts etwas kürzer, mit Hilfszellen C14:C16:
 ABC
14Gerät 131
15Gerät 285
16Gerät 329

Formeln der Tabelle
ZelleFormel
B14{=SUMME(BEREICH.VERSCHIEBEN(C$1;C14;; MIN(WENN(BEREICH.VERSCHIEBEN(C$1;C14;;9999)=""; ZEILE(BEREICH.VERSCHIEBEN(C$1;C14;;9999)))) -C14))}
C14=VERGLEICH(A14;A$1:A$12;0)
Enthält Matrixformel:
Umrandende { } nicht miteingeben,
sondern Formel mit STRG+SHIFT+RETURN abschließen!
Matrix verstehen

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
Hilfsspalte und SUMMEWENN - ohne VBA
23.06.2010 13:42:13
Erich
Hi,
noch eine Variante:
 DEF
1 Gerät 1Gerät 1
2STGerät 1Gerät 1
3STGerät 1Gerät 1
4   
5 Gerät 2Gerät 2
6STGerät 2Gerät 2
7STGerät 2Gerät 2
8   
9 Gerät 3Gerät 3
10STGerät 3Gerät 3
11STGerät 3Gerät 3
12   
13   
143  
158  
162  

Formeln der Tabelle
ZelleFormel
E1=A1
F1=A1
E2=WENN((1-ISTTEXT(A2))*(C2>0); E1;A2&"")
F2=WENN(ISTTEXT(A2)+ISTLEER(C2); A2&"";E1)
D14=SUMMEWENN($E$1:$E$13;A14;$C$1:$C$13)

Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
AW: Hilfsspalte und SUMMEWENN - ohne VBA
23.06.2010 15:42:42
Miguel
Hallo,
vielen vielen Dank für die zahlreiche Rückantwort. Eine super Lösung war das Makro von fcs. So bekomme ich die Hilfsspalte fast automatisiert. Per Summenformel habe ich dann meine Zusammenfassung, die ich benötige.
Super noch mal vielen Dank.
Michael
und ohne BEREICH.VERSCHIEBEN() und ohne{} ...
23.06.2010 16:37:38
neopa
Hallo Erich,
... alternativ so (Formel nach unten kopieren):
 ABCDEF
1Gerät 1     
2822.06.20101STGerät 13
3821.06.20102STGerät 28
4    Gerät 32
5Gerät 2     
6821.06.20101ST  
7820.06.20107ST  
8      
9Gerät 3     
10821.06.20101ST  
11820.06.20101ST  
12      

Formeln der Tabelle
ZelleFormel
F2=WENN(E2="";"";SUMME(INDEX(C:C;VERGLEICH(E2;A:A;)):WENN(E3>"";INDEX(C:C;VERGLEICH(E3;A:A;)-1); INDEX(C:C;VERWEIS(9^9;C:C;ZEILE(A:A))))))


Excel Tabellen im Web darstellen >> Excel Jeanie HTML 4
Gruß Werner
.. , - ...
Anzeige
schöner mit INDEX
23.06.2010 17:02:09
Erich
Hi Werner,
das mit dem INDEX habe ich nach wie vor nicht richtig drauf, BEREICH.VERSCHIEBEN habe ich eher verinnerlicht.
Das sieht man an an meinen Formeln. Vielleicht schaff ich es ja auch noch...
Deine Formel ist vieeeel schöner und klarer.
Sie setzt natürlich voraus, dass die Ergebnisse nicht unterhalb der Daten in den Spalten A:C stehen.
Aber auch das ist - wie auch bei den SUMMEWENN-Lösungen, siehe bei Franz - ohnehin viel geschickter.
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
@neopa: OT-Nachtrag
23.06.2010 17:05:33
Erich
Hi Werner,
schaust du dir mal den Formelvergleich für den Monatsersten in
https://www.herber.de/forum/messages/1163750.html an?
Rückmeldung wäre nett! - Grüße von Erich aus Kamp-Lintfort
Anzeige
oT, "Blumen" für den Monatsersten ...
24.06.2010 08:59:03
neopa
Hallo Erich,
der Fragesteller im dortigen Thread hatte in die gleiche Fragestellung gestern etwa zur gleichen Zeit in Office-Lösung gestellt. Ich hab ihm dort offensichtlich (hab keine weitere Threadbenachrichtigung erhalten) als einziger geantwortet. Ich hatte dabei die Annahme getroffen, dass es sich bei "Jan.10" etc. evtl. um nicht echte Datumswerte handeln könnte und so eine Lösungsformel mit SUMMENPRODUKT() vorgeschlagen, wo jeder zweite Wert summiert wird, bis zu der Spalte deren Spaltenzahlwert kleiner MONAT(HEUTE())*2 ist.
Unter der sich nachträglich als richtig erwiesen Annahme, dass echte Excel-Datumswerte in des Fragestellers Tabellenüberschriften sind, ist Rainers Lösungsformel natürlich naheliegender naheliegend und auch gut. Deine Formel hat dazu das gewisse "Etwas" und ist durch Deine zusätzliche Erklärung "rund" und damit auch schön. Wobei in meinen Augen der Begriff "Schönheit" immer auch stark subjektiv belegt ist,
In diesem Zusammenhang will ich mich natürlich für Deine "Blumen" bedanken. Ich bin mir allerdings ziemlich sicher, dass ich nie so intensiv nach Alternativen für die Funktion OFFSET() gesucht hätte, wenn es nicht die Eindeutschung des Funktionnamens OFFSET() gegeben hätte. Und so bin ich eben seit einigen Monaten bekennender "INDEX()-Fan.
Gruß Werner
.. , - ...
Anzeige

299 Forumthreads zu ähnlichen Themen

Spalte bis zur nächsten freien Zelle?
Tom

Hi,
großes Problem für mich kleines wahrscheinlich fr euch.
Hab eine Tabelle in der ich automatisch hinter den letzten Eintrag etwas einfügen möchte. Leider brauch ich unten eine Summen, also wäre das die letzte Zeile mit Füllung. ich will sozusagen die erste freie Zeile nach den befüll...
12.08.2008 15:12:47
Thread-ID: 1001232
3 Beiträge
Anzeige
aufrunden bis zu nächstem listeneintrag
lukas

moin moin die excelianer!
habe wiedermal ein kleines problem, bei welchem ihr mir behilflich sein könntet...
ich habe eine liste, die in etwa so aussieht: (die werte können variieren!)
45
100
300
500
...
jetzt habe ich noch eine zahl, die ich gerne jeweils zur nä...
08.09.2008 13:09:00
Thread-ID: 1008127
10 Beiträge
Range bis zu einer bstimmten Zeile kopieren
Joachim

Hi,
ich habe eine Sub, um Daten eines Ranges von einem Tabellenblatt zu einem andren Tabellenblatt zu kopieren:
Sub Kopieren() Dim intS As Integer Sheets("Daten einlesen").Range("C2:H150").Copy With Sheets("Übersicht") intS = .Cells(4, Columns.Count).End(xlToLeft).Column .Cells(5, in...
19.09.2008 20:57:12
Thread-ID: 1011139
5 Beiträge
Anzeige
Subtraktion bis Wert erreicht (Zirkelbezug)
Tom

Hallo,
ich probiere mich seit 2 Tagen mit der Problematik Zirkelbezug. Ich möchte diese Funktion benutzen, um so lange Werte aus einigen Zellen zu subtrahieren, bis der in einer anderen Zelle definierte maximale Wert erreicht ist.
Hintergrund:
Für eine gesonderte Auszahlung steht mi...
27.10.2008 11:54:40
Thread-ID: 1019597
4 Beiträge
Zahl 1 bis 7 nur in Zelle eintragen dürfen
Korl

Hallo,
ich möchte in einem Zellbereich z.B. "B7:BI103" in den jeweiligen Zellen nur die Zahlen von "1 bis"7 eintragen dürfen und sofort den Cursor in der jeweiligen Zeile um eine Zelle nach rechts setzen lassen ohne "Enter" tippen zu müssen.
Den Bereich könnte ich mit Gültigkeitskriteri...
17.11.2008 19:55:00
Thread-ID: 1025380
8 Beiträge
Alle Leerzeichen bis rechts von Ziffer löschen
Ziffer

Hallo Freaks,
ich habe in der Spalte B 1700 Zeilen, die mit Artikelbezeichnungen folgenden Musters befüllt sind:

Mein Ziel ist es, alle Leerzeichen bis auf zwei nach der letzten Ziffer und dem ersten Buchstaben zu löschen. Also ab der 11 Stelle bis zur 16 Stelle alle Leerzeichen bi...
13.12.2008 21:41:36
Thread-ID: 1032708
3 Beiträge
Makro Spalte S bis letzter Wert Spalte A markieren
Jonathan

Hallo zusammen,
ich habe folgendes Probelem:
Ich möchte gerne Spalte S bis zum letzten Wert von Spalte A (variabel) markieren (damit im Anschluss der Spalte ein Rahmen gegeben werden kann).
Gibt es hierfür ein Makro?
Vielen Dank schon mal für eure Hilfe.
Gruß
Jonathan
30.01.2009 12:31:58
Thread-ID: 1045358
3 Beiträge
Alee Zeilen bis auf bestimmte löschen
Silke

Hallo,
in meiner Liste muss ich Zählerstände den Kostenstellen zuordnen.
https://www.herber.de/bbs/user/59754.xls
Ich importiere eine TXT-Datei, die ich vom Drucker exportiere ins Excel. Leider sind viele Zeile dabei, die ich für die Auswertung nicht brauche.
In meiner Liste se...
25.02.2009 11:09:02
Thread-ID: 1053794
13 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
2
16
9
4
4
3
7
2
2
12
1
3
3
9
2
2
2
3
4
1
2
11
3
2
5