rote Schrift - Zahlen summieren - neue Version
22.12.2011 05:44:23
Matthias
Hallo Sibylle
Eine letzte benutzte Zelle in Spalte(A) spielt hier nun keine Rolle mehr.
hier einmal mit Kommentierung
Option Explicit
Sub ml()
Dim Bereich As Range, Rng As Range, MyDbl As Double
Const Farbe = 3
Set Bereich = Columns(1).SpecialCells(xlCellTypeConstants, 1) 'nur Zellen mit Zahlen dem _
Bereich zuweisen
For Each Rng In Bereich 'Schleife über den Bereich schicken
'Abfrage nach roter Schrift - WICHTIG: And Not IsDate(Rng) weil ein Datum auch eine Zahl ist
If Rng.Font.ColorIndex = Farbe And Not IsDate(Rng) Then
Rng.Select 'nur zur Demo - Zeile kann gelöscht werden
MyDbl = MyDbl + CDbl(Rng) 'Werte in der Variable MyDbl summieren
Application.Wait Now + TimeSerial(0, 0, 1) 'nur zur Demo - Zeile kann gelöscht werden
End If
Next
MsgBox MyDbl
Set Bereich = Nothing 'nur der Ordnung wegen ;-)
End Sub
ohne Kommentierung und ohne DemoSelection ;o)
Option Explicit
Sub ml()
Dim Bereich As Range, Rng As Range, MyDbl As Double
Const Farbe = 3
Set Bereich = Columns(1).SpecialCells(xlCellTypeConstants, 1)
For Each Rng In Bereich
If Rng.Font.ColorIndex = Farbe And Not IsDate(Rng) Then MyDbl = MyDbl + CDbl(Rng)
Next
MsgBox MyDbl
Set Bereich = Nothing
End Sub
Grüße auch an NoNet, Rudi, Reinhard, Gerd und die anderen Mitleser
Gruß Matthias
