Live-Forum - Die aktuellen Beiträge
Datum
Titel
23.04.2024 11:26:57
Probleme mit tbl.Listrows.add
23.04.2024 10:55:14
Zeilen sortieren
23.04.2024 10:23:52
Tabelle 90° drehen + Filteroptionen
23.04.2024 10:11:03
Dateiname plus Wenn vorhanden dann "(1)" anhängen.
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1040to1044
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
1040to1044
1040to1044
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summieren von einzelnen Zahlenblöcken

Summieren von einzelnen Zahlenblöcken
26.01.2009 15:57:31
einzelnen
Liebe Excel-Gemeinde!
Folgende Problemstellung habe ich:
Eine Spalte, sagen wir A, mit 30’ – 40'000 Zeilen, enthält Blöcke mit 1 (Einsen), die durch einzelne oder viele leere Zellen unterbrochen werden.
Nun sollte ich in Spalte B bei allen Blöcken der Spalte A, die mehr als 5 Einsen untereinander zeigen, die Summe dieses Blockes neben der ersten oder letzten Zelle des entsprechenden Blockes anzeigen.
Alle meine Versuche versandeten bisher im Misserfolg. Ihr seid meine grosse Hoffnung!
Vielen Dank und herzliche Grüsse
Henry

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summieren von einzelnen Zahlenblöcken
26.01.2009 16:18:00
einzelnen
Hi Henry,
Zahl 6 = Mehr als 5 Einsen.
Anzeige der Zahl 6 in letzter Zeile des Blocks. Formel in B1 und runterkopieren:

=WENN(REST(ZÄHLENWENN(A$1:A1;1);6)=0;6;"")


Anzeige von FALSCH(=Kein Blockende), WAHR (=Blockende in letzter Zeile). Formel in B1 und runterkopieren:


=REST(ZÄHLENWENN(A$1:A1;1);6)=0*1


Grüsse RS

Kleine Korrektur:
26.01.2009 16:58:00
RS
Hi Henry,

=WENN(REST(ZÄHLENWENN(A$1:A1;1);6)=A1-1;6;"")


und


=UND(REST(ZÄHLENWENN(A$1:A1;1);6)=0;A1=1)


Grüsse RS

Anzeige
AW: Kleine Korrektur:
26.01.2009 17:11:28
Henry
Hallo RS
Auch mit den korrigierten Formeln habe ich die gleichen Phänomene!
Gruss Henry
AW: Summieren von einzelnen Zahlenblöcken
26.01.2009 17:02:16
einzelnen
Vielen Dank RS
Bei beiden Formeln habe ich folgende Phänomene.
a) wenn ich die Formel in B1 kopiere und herunterziehe, zeigt die Spalte B bloss immer die gleiche Formel wie Text an.
b) wenn ich die Formeln manuell eintippe gibt er Fehler und markiert dabei die Bereichsangabe A1.
was mache ich falsch?
Gruss Henry
Standard formatieren
26.01.2009 17:09:00
RS
Hi Henry,
Fehler 1, scheint auf eine Formatierung der Spalte B als Text, statt Standard hinzudeuten.
Fehler 2, scheint auf a) Tippfehler oder b) andere Sprachversion, wie deutsch von EXCEL hinzudeuten.
Beachte meinen Korrekturvorschlag.
Grüsse RS
Anzeige
AW: Standard formatieren
26.01.2009 17:26:00
Henry
Vielen Dank RS
Tippfehler waren es nicht. Aber ich habe von Deutsch Schweiz auf Deutsch Deutschland umgeschaltet und jetzt funktioniert die Formel....aber da besteht noch ein Missverständnis. Die Blöcke können unterschiedlich lang sein (von 1 bis vielleicht 1000). Ich sollte von jedem Block seine effektive Summe haben, vorausgesetzt der Block hat merh als 5 Einsen direkt untereinander - also bis die erst leere Zelle kommt. Auch die Anzahlen Leerzellen zwischen den Blöcken können stark variieren von 1 bis nnnn.
Herzlichen Dank und Gruss
Henry
AW: Standard formatieren
26.01.2009 17:52:00
Henry
Hallo RS
Noch zur Sprachversion. Mir ist nicht klar, was den Unterschied zwischen Schweiz und Deutschland macht bei der Excel-Formel und -Funktionen Syntax. Deinen Formelvorsclag würde mann in der Schweiz genau so schreiben.
Herzliche Grüsse
Henry
Anzeige
AW: Summieren von einzelnen Zahlenblöcken
26.01.2009 16:34:00
einzelnen
Servus Henry,
per Makro so:
Option Explicit

Sub t()
Dim rSuche As Range, rFinde As Range, strErste As String, x As Long, y As Long, i As Long
Dim ZeilenArrayAnfang() As Long, ZeilenArrayEnde() As Long
Dim lngLetzte As Long, suchString As String
lngLetzte = Cells(Rows.Count, 1).End(xlUp).Row
Set rFinde = Range("A2:A" & lngLetzte + 1)
Set rSuche = rFinde.Find(what:=suchString, LookAt:=xlWhole, LookIn:=xlValues)
ReDim Preserve ZeilenArrayAnfang(y)
ZeilenArrayAnfang(y) = 1
y = y + 1
If Not rSuche Is Nothing Then
strErste = rSuche.Address
Do
If rSuche.Offset(-1, 0) = 1 And rSuche.Offset(1, 0) = "" Then
ReDim Preserve ZeilenArrayEnde(x)
ZeilenArrayEnde(x) = rSuche.Offset(-1, 0).Row
x = x + 1
Else
If rSuche.Offset(1, 0) = 1 And rSuche.Offset(-1, 0) = "" Then
ReDim Preserve ZeilenArrayAnfang(y)
ZeilenArrayAnfang(y) = rSuche.Offset(1, 0).Row
y = y + 1
Else
If rSuche.Offset(1, 0) = 1 And rSuche.Offset(-1, 0) = 1 Then
ReDim Preserve ZeilenArrayEnde(x)
ZeilenArrayEnde(x) = rSuche.Offset(-1, 0).Row
x = x + 1
ReDim Preserve ZeilenArrayAnfang(y)
ZeilenArrayAnfang(y) = rSuche.Offset(1, 0).Row
y = y + 1
End If
End If
End If
Set rSuche = rFinde.FindNext(rSuche)
Loop While Not rSuche Is Nothing And rSuche.Address  strErste
Else
Exit Sub
End If
For i = LBound(ZeilenArrayAnfang()) To UBound(ZeilenArrayAnfang())
If ZeilenArrayEnde(i) - ZeilenArrayAnfang(i) + 1 > 5 Then
Range("B" & ZeilenArrayEnde(i)) = WorksheetFunction.Sum(Range("A" & ZeilenArrayAnfang(i) _
& ":A" & ZeilenArrayEnde(i)))
End If
Next i
End Sub


Hier passend zu deinem Beispiel mit Spalte A und Einsen. Ergebnis wird in Spalte B am Ende des Blocks reingeschrieben.
Gruß
Chris

Anzeige
AW: Summieren von einzelnen Zahlenblöcken
26.01.2009 17:31:27
einzelnen
Herzlichen Dank Chris
Ist ja phänomenal, in welch zurzer Zeit Du so ein VBA-Code komponierst - herzliche Gratulation. Den werde ich sicher auch ausprobieren; da ich aber nicht zu stark mit VBA-Wissen belastet bin :-) werde ich dazu eine ruhige Minute abwarten um den Test in aller Ruhe durchzuführen.
Nochmals herzlichen Dank mit Gruss
Henry
AW: Summieren von einzelnen Zahlenblöcken
26.01.2009 18:02:00
einzelnen
Hi Chris
Deinen VBA-Code habe ich inzwischen getestet: SUUUUUUUUUPER! Er macht haargenau was ich mir wünschte.
Nochmals herzlichen Dank und RIESEN Gratualtion.
Herzliche Grüsse
Henry
AW: bitteschön owT
26.01.2009 18:10:14
Chris
.

303 Forumthreads zu ähnlichen Themen

Hintergrundfarbe in Zahl umwandeln
Timo

Hallo zusammen.
Gibt es über VBA eine Möglichkeit, die Hintergrundfarbe einer Zelle in eine Zahl umzuwandeln und das schneller als mit for- Schleifen?
Habe einen Bereich ("J16:AG39"), wo ich per Zellaktivierung mit der Maus Zellen oder auch Zellbereiche mit einer Hintergrundfarbe verseh...
07.08.2008 19:30:00
Thread-ID: 1000082
4 Beiträge
Anzeige
Formel "Text" ROTE Zahl bei Minuswert?
dieter(drummer)

Hi Formelspezialisten,
in Zelle B2 steht dise Formel (funktionert auc h):
=TEXT(I4-D4;"00.0")&" ("&TEXT(I4/D4-1;"0%")&")".
Mein Ziel, dass eine Minuszahl in ROT erscheint. Hab's mit bedingte Formatierung versucht und bekomme es nicht hin.
Gibt es eine Möglichkeit, a...
12.08.2008 10:59:29
Thread-ID: 1001135
7 Beiträge
Anzahl unterschiedl. Werte in Spalte zählen
Jakob

Hallo,
ein ähnliches Problem wurde hier im Forum schon einmal diskutiert. (https://www.herber.de/forum/archiv/632to636/t635773.htm)
Meine Problem:
Wie kann ich die Anzahl unterschiedlicher Einträge/Werte einer Spalte erhalten, ohne dass diese vorgegeben werden ( also ohne die Verwe...
14.08.2008 18:16:11
Thread-ID: 1001934
2 Beiträge
Anzeige
In Spalte nach Anzahl eines Begriffs suchen?
Lauren

Hall Leute!
ich will nach einem Begriff, in meinem Fall nach "SUMs" in der Spalte C suchen und wissen wie oft es in der Spalte vorkommt.
Bei Berechnungen funktioniert es mit ZÄHLENWENN ohne Probleme aber wie erhalte ich die "absolute" Zahl?
Vielen Dank für Eure Hilfe!
Grüße
...
19.08.2008 11:08:23
Thread-ID: 1002846
5 Beiträge
mehrere Zufallszahlen aus Bereich ohne Wiederholun
Dieterlem

Hallo Excelfreunde,
ich suche eine VBA-Lösung für Zufallszahlen. Ich habe zwar einiges gefunden aber konnte ich es nicht nach meinen Anforderungen anpassen.
Ich will eine bestimmte Anzahl (per Variable veränderbar) von Zufallszahlen generieren (Ganzzahlen).
Dabei dürfen keine Wiede...
19.08.2008 22:05:38
Thread-ID: 1003045
4 Beiträge
Zahlen einer Tabelle in Userform einlesen
Josef

Guten Morgen!
Ich habe in einem Arbeitsblatt mehrere Tabellen.
In einer UserForm habe habe ich 460 TextBoxen, wobei die Zählung immer pro Reihe senkrecht erfolgt.
Spalte 1 = TextBox1-23, Spalte2 = TextBox24- TextBox46 usw.
Ich möchte nun z.B. die erste Tabelle in die Textboxen e...
20.08.2008 07:07:03
Thread-ID: 1003059
19 Beiträge
Erste Zahlen eine Tel.-Tabelle in Farbe
Bernie
Hallo,
in einer Telefontabelle, welche sich ständig ändert, möchte ich die ersten 4 Ziffern der Rufnummer per Makro rot einfärben.
Hat jemand eine gute Idee?
https://www.herber.de/bbs/user/54765.xls
21.08.2008 12:04:53
Thread-ID: 1003430
4 Beiträge
Umwandlung text nach zahlen bei Formulareingabe
Dieter

Hallo miteinander,
ich habe ein Problem mit der umwandlung von Text nach Zahlen. In meinem Formular habe ich Textfelder definiert, in dem eigentlich nur Zahlen eingetragen werden. Nun sollen diesen Werte in einer Zelle abspeichern und weitere Berechnung durchführen, leider werden diese Zahl...
26.08.2008 19:48:34
Thread-ID: 1004910
4 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
3
20
6
1
2
4
3
18
3
3
2
1
1
3
11
5
15
3
11
2
5
2
2
3
1