Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
728to732
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
728to732
728to732
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

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

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)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige