Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
26.04.2024 16:05:28
PivotChart-Stapeldiagramm erstellen
26.04.2024 15:34:42
Überlagernde Textbox-Ansicht
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1484to1488
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
1484to1488
1484to1488
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe in Sp. L beginnend ab Zeile mit Kriterium

Summe in Sp. L beginnend ab Zeile mit Kriterium
06.04.2016 13:50:01
Bernd
Hallo, liebe Excel-Gemeinde,
ich bin auf der Suche nach einem Makro, dass in Spalte L eine Summenformel einträgt, und zwar beginnend mit der Zeile, in der in Spalte B das Konto "61911100 RC Management / ZKD (CMC)" steht und dies solange nach unten einträgt , bis in der Spalte B das Kriterium "09 übr. Aufwend. aus Konten 60/61-NOP" steht.
https://www.herber.de/bbs/user/104801.xlsx
Vielen Dank vorab, Bernd

5
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: verstehe nicht, wozu dafür eine Makro? owT
06.04.2016 14:06:42
...
Gruß Werner
.. , - ...

@Werner
06.04.2016 22:08:27
Bernd
Hallo Werner,
das gewünschte Makro ist Teil eines umfangreicheren Makros, welches alle Dateien in einem Ordner modifizieren soll.
Grüße, Bernd

AW: dann ist es natürlich verständlich owT
07.04.2016 09:27:09
...
Gruß Werner
.. , - ...

AW: Summe in Sp. L beginnend ab Zeile mit Kriterium
06.04.2016 14:23:32
Fennek
Hallo,
teste mal diesen Code:

Sub sBernd()
Dim rng As Range
With Columns(2)
Suche1 = "61911100 RC Management / ZKD (CMC)"
Suche2 = "09 übr. Aufwend. Aus Konten 60/61-NOP"
Set rng = .Find(Suche1)
If rng Is Nothing Then MsgBox "nicht gefunden": Exit Sub
r1 = rng.Row
Set rng = .Find(Suche2)
If rng Is Nothing Then MsgBox "nicht gefunden": Exit Sub
r2 = rng.Row
Range(Cells(r1, "L"), Cells(r2, "L")).FormulaR1C1 = "=sum(rc[1]:rc[12])"
End With
End Sub
mfg

Anzeige
@Fennek / vielen Dank! Perfekt! (o.W.)
08.04.2016 11:41:51
Bernd
@Fennek / vielen Dank! Perfekt!

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige