Office - Word, Excel und Co. 9.744 Themen, 41.408 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
Edgar Rau Mick1 „Excel Summenbildung“
Optionen

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
    For i = 1 To 13
    Cells(i, 2).Select
    If Selection.Interior.ColorIndex = 3 Then
    summe1 = summe1 + Cells(i, 2)
    End If
    Next
    Cells(14, 2).Select
    ActiveCell.FormulaR1C1 = summe1


End Sub

Dieses Makro summiert alle Beträge zwischen B1 und B13, wenn der Hintergrund rot (Interior.ColorIndex = 3) ist. Für alle weiteren Farben musst Du den Interior.ColorIndex ändern.

Du kannst dieses Makro erweitern oder für jede Farbe ein eigenes Makro schreiben. Diese/s Makro/s würde ich dann auf eine Schaltfläche legen.

Viel Erfolg

Edgar

Wer brauchen ohne zu gebraucht, braucht brauchen gar nicht zu gebrauchen
bei Antwort benachrichtigen
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
Hallo Mick, es geht auch ohne anpassen der Farbnummern. Hier einmal ein Beispiel, kannst du nach Wunsch anpassen. Sub ... hddiesel
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