Herbers Excel/VBA-Archiv

WICHTIG: Summe farbiger zellen

• WICHTIG: Summe farbiger zellen von Andy vom 26.08.2004 14:34:58
• AW: WICHTIG: Summe farbiger zellen - von Basti am 26.08.2004 14:39:51
  • AW: WICHTIG: Summe farbiger zellen - von Andy am 26.08.2004 14:46:33
• AW: WICHTIG: Summe farbiger zellen - von nighty am 26.08.2004 15:57:32

Betrifft: WICHTIG: Summe farbiger zellen von: Andy
Geschrieben am: 26.08.2004 14:34:58

HAllo!

Ich möchte in Cells(x + 3, 9) die Summe der Zellen eintragen lassen, die den Farbcode 35 besitzen. der zu untersuchende Zellbereich íst Range(Cells(9,9),Cells(x-3,9))
Wie kann man das per vba machen?
Ich habe zwar ein paar codes gefunden, kann aber nicht viel damit anfange da ich nicht weiß, was ich wie ändern muss.

DAnke an die Helfer
Andy

Betrifft: AW: WICHTIG: Summe farbiger zellen von: Basti
Geschrieben am: 26.08.2004 14:39:51

Einfach eine Schleife machen und die Tabelle von links oben nach rechts unten durchlaufen lassen und
aktive Zelle = interior = 35 per if abfrage machen.

Kannst auch geradei Zeilen und Spalten Menge aufschreiben, dann bau ich dir das




Betrifft: AW: WICHTIG: Summe farbiger zellen von: Andy
Geschrieben am: 26.08.2004 14:46:33

hi basti!

meinst du evtl sowas oder ähnlich? :

summe=0
for each wert in range do
if cells.interior=35 then
summe=summe+cells.value
end do
Zielzelle.value=summe

Andy




Betrifft: AW: WICHTIG: Summe farbiger zellen von: nighty
Geschrieben am: 26.08.2004 15:57:32

hi andy :)

wie gewuenscht :)

gruss nighty

Sub makro01()
With Worksheets("Tabelle1")
Dim rgBereich As Range
Dim Zelle1 As Range
Dim zaehler1 As Long
Set rgBereich = Worksheets("Tabelle1").Range(Cells(9, 9), Cells(x - 3, 9))
For Each Zelle1 In rgBereich
If Zelle1.Interior.ColorIndex = 35 Then zaehler1 = zaehler1 + Zelle1
Next Zelle1
Cells(x + 3, 9) = zaehler1
End With
End Sub

Beiträge aus den Excel-Beispielen zum Thema "WICHTIG: Summe farbiger zellen"