home *** CD-ROM | disk | FTP | other *** search
/ PC Welt 2003 August / PCWELT_8_2003.ISO / pcwsoft / SUMME.z.exe / Summe.bas
Encoding:
BASIC Source File  |  2003-06-16  |  392 b   |  22 lines
  1. Attribute VB_Name = "Summe"
  2. Function Summegelb(Bereich As Object)
  3. s = 0
  4. For Each a In Bereich
  5.     If a.Interior.ColorIndex = 6 Then
  6.     s = s + a.Value
  7.     End If
  8. Next
  9. Summegelb = s
  10. End Function
  11.  
  12. Function Summeweiss(Bereich As Object)
  13. s = 0
  14. For Each a In Bereich
  15.     If a.Interior.ColorIndex = xlNone Then
  16.     s = s + a.Value
  17.     End If
  18. Next
  19. Summeweiss = s
  20. End Function
  21.  
  22.