Live-Forum - Die aktuellen Beiträge
Datum
Titel
17.10.2025 17:57:35
Zellen-Name aus A1 nach H1 übertragen mit Prä- + Suffix
17.10.2025 11:36:58
verschachteltes Dropdown-Menü
17.10.2025 10:28:49
Call Anweisung
16.10.2025 18:38:17
Zusammenfassung nach Personalnummer
Keine passende Antwort im Forumarchiv gefunden?
Stelle deine Frage im Live-Forum
Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

summieren bis gefundenen String

Forumthread: summieren bis gefundenen String

summieren bis gefundenen String
08.02.2006 15:50:01
Anja
Hallo ...
habe eine Frage...
habe in Zeile 1 mehrere Wörter (beliebige Zahl).
z.b wort: aaa, bbb, ccc....und so weiter...
jedes ist in der Spalte A ab zeile 10 vorhanden.
Es sollte per Macro, also per Buttendruck in der spalte B die Zahlen summiert werden aber bis nächsten gefundenen wort... wie in beispiel... summiere Werte ab Wort "AAA" bis Wort "BBB" dann ab Wort "BBB" bis Wort "CCC" und so weiter....
https://www.herber.de/bbs/user/30797.xls
Könntet ihr mir bitte bitte helfen...
würde mich sehr freuen...
danke :)
viele Grüße
Anja
Anzeige

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: summieren bis gefundenen String
08.02.2006 18:07:46
Reinhard
Hi Anja , ist die A Spalte ab A11 immer gleich aufgebaut, also
AAA
A
B
C
D
E
Summe
BBB
A
B
C
D
E
Summe
CCC
A
B
C
D
E
Summe
usw.?
Gruß
Reinhard
ps:Das Forum lebt auch von Rückmeldungen.
AW: summieren bis gefundenen String
08.02.2006 23:19:13
Daniel
Hallo
dieses Makro durchsucht die Spalte A (beginnend ab Zeile 11) und fügt immer wenn der Inhalt der Zelle mit "Total" beginnt eine Summe ein.
Aufsummiert werden alle Werte darüber, bis zur nächsten Summe.
------

Sub Summen_einfügen()
Dim Suchbereich As Range
Dim Zelle As Range
Dim Oben, Unten As Range
Set Suchbereich = Range("A11:A65000").SpecialCells(xlCellTypeConstants, 2)
Set Oben = Range("B11")
For Each Zelle In Suchbereich
Select Case Zelle.Value Like "Total*"
Case False
Case True
Set Unten = Zelle.Offset(-1, 1)
Zelle.Offset(0, 1).FormulaLocal = "=Summe(" & Range(Unten, Oben).Address & ")"
'die nächst Zeile ersetzt die Summenformel durch den Wert.
'Wenn die Formel erhalten bleiben soll, kann diese Zeile entfallen
Zelle.Offset(0, 1).Value = Zelle.Offset(0, 1).Value
Set Oben = Zelle.Offset(1, 1)
End Select
Next
End Sub

Gruß, daniel Eisert
Anzeige
AW: summieren bis gefundenen String
09.02.2006 10:05:36
Anja
Hallo,
:) vielen Dank!!! das hilft mir sehr weiter...
viele Grüße
Anja
;

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige