Office - Word, Excel und Co. 9.745 Themen, 41.421 Beiträge

Verfolgung starten Optionen

Excel Summenbildung

Mick1 / 14 Antworten / Flachansicht Nickles

Hallo! Ich habe da ne "kleinere Prblematik" und hoffe wieder mal auf Hilfe. Also folgendes: normale Exceltabellenblatt ( Office 2013) A1 bis A13 normale Datumseingabe; in B1 bis B13 sind Geldbeträge, da aber unterschiedliche farbige Zellen ( rot, gelb grün, braun usw.) eingetragen. Nun möchte ich aber  z.B. in B14 nur die Summe der Zahlen/Beträge von B1 bis B13, die in der roten Zellen hinterlegt sind, in B15 die in den gelben Kästchen eingetragen sind usw. Wie macht man das? Vielen Dank schon mal imvoraus.

bei Antwort benachrichtigen
Hallo Mick1, das kannst Du nur mit VBA lösen, hier ein kleines Makro: sub summe1 Dim i As Integer Dim summe1 As Single i 1 ... Edgar Rau
High! Vielen Dank für die Antwort. Hab jetzt schon ne ganze Weile daran umhergebastelt, krieg das aber nicht hin muss auch ... Mick1
Hört die unart, alles vorher zu .Select en denn nie auf?! sub summe1 Dim i As Integer Dim summe1 As Single i 1 For i 1 To ... neanderix
Hallo neanderix, ich habe mein Makro ausgedacht und ausprobiert, es funktioniert tadellos. Diese Aussage verstehe ich ... Edgar Rau
Ich habe auch nicht bestreiten, dass dein VBA funktioniert. Was ist an meinsr Aussage, die Formula... Anweisung sei ... neanderix
Hallo Mick1, eine Lösung ohne VBA findest du hier: http://www.excelformeln.de/formeln.html?welcher 432 Beste Grüße Joseph joseph3
Hallo Joseph, Stimmt, jedoch muss bei einer Änderung der Werte die Formel Farbe neu eingegeben oder die F9-Taste zum ... Edgar Rau
hddiesel Mick1 „Excel Summenbildung“
Optionen

Hallo Mick,
es geht auch ohne anpassen der Farbnummern.
Hier einmal ein Beispiel, kannst du nach Wunsch anpassen.

Sub Summe_Hintergrund_Farbe()
Dim i As Integer
Dim Summe1 As Double, Summe2 As Double, Summe3 As Double, Summe4 As Double
Dim Farbe1 As Integer, Farbe2 As Integer, Farbe3 As Integer, Farbe4 As Integer

Farbe1 = Cells(1, "D").Interior.ColorIndex
Farbe2 = Cells(1, "E").Interior.ColorIndex
Farbe3 = Cells(1, "F").Interior.ColorIndex
Farbe4 = Cells(1, "G").Interior.ColorIndex

'Makrolauf, von der Zeile 1, bis zur letzten belegten Zeile
For i = 1 To ActiveSheet.Cells(Rows.Count, "B").End(xlUp).Row

'Summieren, wenn der Wert der Zelle eine Zahl ist.
If IsNumeric(Cells(i, 2)) Then
If Cells(i, 2).Interior.ColorIndex = Farbe1 Then Summe1 = Summe1 + Cells(i, 2)
If Cells(i, 2).Interior.ColorIndex = Farbe2 Then Summe2 = Summe2 + Cells(i, 2)
If Cells(i, 2).Interior.ColorIndex = Farbe3 Then Summe3 = Summe3 + Cells(i, 2)
If Cells(i, 2).Interior.ColorIndex = Farbe4 Then Summe4 = Summe4 + Cells(i, 2)
End If

Next

Cells(1, "D") = Summe1
Cells(1, "E") = Summe2
Cells(1, "F") = Summe3
Cells(1, "G") = Summe4
End Sub

Windows 10 Pro 64-Bit, 22H2: MS Office Pro Plus 2016 32-Bit: Mein Motto: Leben und leben lassen: Gruss Karl
bei Antwort benachrichtigen
Hallo und Gruß an den Rhein-Neckar-Kreis und vielen Dank für die Rückantwort. Ich muss aber leider sagen - verstehe das ... Mick1
Hallo Mick, erstelle eine Beispieldatei: A1 bis A13 mit Datum B1 bis B13 mit Beträgen Den Hintergrund der Zelle D1, ... hddiesel
Größer Excel 2003 müsste es heißen. Erst ab 2007 gab s xlsx/xlsm. mawe2
Hallo Mawe2, Danke für die Info, zu xlsx/xlsm! hddiesel
Zur Info: Die von mir verursachte Nebendiskussion habe ich in einen eigenen Thread ausgelagert. Borlander
Hallo Mick, sollen Werte in ausgeblendeten Zeilen, nicht in der Summe berechnet werden, oder deine Tabelle wird gefiltert ... hddiesel