Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 14:06:20
Gesamte Column löschen, wenn Column-Bereich leer
24.04.2024 13:44:05
Bezeichnung Tabellenblatt aus Zelle für Formel auslesen
24.04.2024 12:38:40
Formeländerung durch Wechsel von Excel 2021 auf 2019
24.04.2024 12:31:18
Excel - Sverweis mit Wenn-Abfrage kombinieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
768to772
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
768to772
768to772
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Summe

Summe
09.06.2006 14:51:03
Phil
Hallo Experten,
ich versuche gerade eine Spalte aufzusummieren. Ich möchte dabei alle Zeilen oberhalb des Summenfeldes einbeziehen, bis zu einem andersfarbigen feld, also
4
3
feld-blau
3
4
5
Summe = 12
Kann ich eine solche Bedingung in mein Makro einbauen? Danke im Voraus
Gruss,
Philip

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Summe
09.06.2006 15:50:11
fcs
Hallo Philip,
hier ein Beispiel-Makro

Sub Summe()
Application.ScreenUpdating = False
With ActiveSheet.Cells(7, "A") 'Zelle in der Summe berechnet werden soll
i = -1
Farbe = .Offset(i, 0).Interior.ColorIndex 'Farbe in Zelle oberhalb Summenzelle
Do Until .Offset(i, 0).Interior.ColorIndex <> Farbe
If .Offset(i, 0).Row = 1 Then Exit Do '1. Zeile wurde ereicht
i = i - 1
Loop
.Value = Application.WorksheetFunction.Sum(Range(.Offset(i, 0), .Offset(-1, 0)))
End With
Application.ScreenUpdating = True
End Sub

mfg
Franz
AW: Summe
12.06.2006 16:37:29
Philip
Hallo Franz,
Verspätetes aber aufrichtiges Dankeschön!
Hat super geklappt!
Gruss,
Philip
Anzeige

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige