Hallo Experten,
ich habe eine sehr umfangreiche Tabelle in denen die Zahlenwerte innerhalb der Spalten unterschiedliche Farben haben.
Die Aufgenstellung ist, alle Werte mit der Farbe Blau sollen summiert werden.
Wie kann ich diese Werte filtern?
Gruss Uwe
Hallo,
wie wurden die blauen Zahlen erzeugt? Händisch die Formatierung geändert? Dann kann ich dir nicht helfen.
Wenn sie automatisch über eine bestimmte Regel formatiert wurden, sollte man mit Hilfe dieser Regel auch eine bedingte Summierung zustande bringen.
Davon abgesehen, was haben gleichformatierte Zahlen miteinander gemeinsam? Wie ist die Tabelle grundsätzlich aufgebaut?
Gerhard
Hallo Gerhard,
die werte wurden von Hand blau gekennzeichnet.
Die so formatierten Werte sind erledigte Vorgänge und sollen für die Statistik ausgewertet werden.
uwe
Hallo, Uwe!
die werte wurden von Hand blau gekennzeichnet.
Die so formatierten Werte sind erledigte Vorgänge und sollen
für die Statistik ausgewertet werden.
Da wirst Du VBA benötigen. Ich gehe mal davon aus, dass alle Werte in einer Spalte stehen. Die Zeilen sind fortlaufend, eine Leerzelle in der aufzusummierenden Spalte stellt die Abbruchbedingung dar. Dann schreibst Du folgende Funktion (ggf. anpassen, wenn nicht in Zeile 1 los oder andere Abbruchbedingung oder verbesserte Fehlertoleranz):
Function SUMME\_GLEICHE\_SCHRIFTFARBE(prngWieZelle As Range)
' Darf nur eine Zelle übergeben werden, ansonsten könnte es knallen...
Dim dblSumme As Double
Dim lngZeile As Long
Dim lngSpalte As Long
' In welcher Spalte wird gerechnet?
lngSpalte = prngWieZelle.Column
lngZeile = 1
' Ab der ersten Zeile los, so lange, bis Leerzelle gefunden
Do While prngWieZelle.Worksheet.Cells(lngZeile, lngSpalte) ""
If prngWieZelle.Worksheet.Cells(lngZeile, lngSpalte).Font.ColorIndex = prngWieZelle.Font.ColorIndex Then
' Wenn Schriftfarbe gleich ist, aufsummieren
dblSumme = dblSumme + prngWieZelle.Worksheet.Cells(lngZeile, lngSpalte)
End If
' Nächste Zeile
lngZeile = lngZeile + 1
Loop
SUMME\_GLEICHE\_SCHRIFTFARBE = dblSumme
End Function
Wenn Du jetzt in der Spalte A die verschiedenen Werte drin stehen hast, in der zweiten Zeile (A2) eine blaue Zahl steht, kannst Du in eine beliebige Zelle folgende Formel reinschreiben:
=SUMME\_GLEICHE\_SCHRIFTFARBE(A2)
wobei statt A2 auch jede andere blaue Zelle genommen werden kann. Das ganze ist natürlich ausbau- und anpassungsfähig…
Gruß, Manfred
ich habe eine sehr umfangreiche Tabelle in denen die
Zahlenwerte innerhalb der Spalten unterschiedliche Farben
haben.
Die Aufgenstellung ist, alle Werte mit der Farbe Blau sollen
summiert werden.
Hi Uwe,
probiers mal mit:
Function summblau()
For Each Zelle In UsedRange.Cells
If Zelle.Interior.ColorIndex = 3 Then summblau = summblau + Zelle.Value
Next Zelle
End Function
musst mal rumtesten, habe jetzt nicht die Nummer von blau parat.
Gruß
Reinhard