Farbige Zellen, Werte addieren

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
der Code für Funktionen gehört in ein Modul, nicht in den Code-Teil eines Sheets.


oledump.py c:\Users\[xxxx]\Desktop\139606.xlsm -i
A: xl/vbaProject.bin
A1:       507             'PROJECT'
A2:       104             'PROJECTwm'
A3: m    1202    1016+186 'VBA/DieseArbeitsmappe'
A4: M    1976    1631+345 'VBA/Modul1'
A5: M    2312    1829+483 'VBA/Tabelle1'
A6:      3177             'VBA/_VBA_PROJECT'
A7:      1981             'VBA/__SRP_0'
A8:       346             'VBA/__SRP_1'
A9:       501             'VBA/__SRP_2'
A10:       218             'VBA/__SRP_3'
A11:       208             'VBA/__SRP_4'
A12:       252             'VBA/__SRP_5'
A13:       616             'VBA/__SRP_6'
A14:       106             'VBA/__SRP_7'
A15:       586             'VBA/dir'
C:\Temp\Python\OLEDump>oledump.py c:\Users\[xxxx]\Desktop\139606.xlsm -s 4 -v
Attribute VB_Name = "Modul1"
'Summiert die Zellen mit farbigem Hintergrund
'Funktionsaufruf = Summefarbig(Zelle mit der gesuchten Farbe;Bereich)
Function Summefarbig(Farbe As Range, Bereich As Range)
Dim i As Range
Dim intColor As Integer
Application.Volatile
intColor = Farbe(1).Interior.ColorIndex
For Each i In Bereich.Cells
If i.Interior.ColorIndex = intColor Then
Summefarbig = Summefarbig + i
End If
Next
End Function
C:\Temp\Python\OLEDump>oledump.py c:\Users\User\Desktop\139606.xlsm -s 5 -v
Attribute VB_Name = "Tabelle1"
Attribute VB_Base = "0{00020820-0000-0000-C000-000000000046}"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = True
Attribute VB_TemplateDerived = False
Attribute VB_Customizable = True
'Summiert die Zellen mit farbigem Hintergrund
'Funktionsaufruf = Summefarbig(Zelle mit der gesuchten Farbe;Bereich)
Function Summefarbig(Farbe As Range, Bereich As Range)
Dim i As Range
Dim intColor As Integer
Application.Volatile
intColor = Farbe(1).Interior.ColorIndex
For Each i In Bereich.Cells
If i.Interior.ColorIndex = intColor Then
Summefarbig = Summefarbig + i
End If
Next
End Function

mfg

Function Summefarbig(Farbe As Range, Bereich As Range) Dim i As Range Dim intColor As Integer Application.Volatile intColor = Farbe(1).Interior.ColorIndex For Each i In Bereich If IsNumeric(i) And i.Interior.ColorIndex = intColor Then Summefarbig = Summefarbig + i End If Next End Function

Beliebteste Forumthreads (12 Monate)

8 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

8
Beiträge zum Forumthread

Beiträge zu diesem Forumthread