Daten von zweitem Sheet verarbeiten

Hallo,
nach einem intensiven Selbststudium (Danke an die Fern-Uni Hagen) in VBA heute Nacht bin ich leider mit meinem Problem noch nicht weiter gekommen. Jetzt habe ich aber zumindest schon mal die meisten Begrifflichkeiten und den Syntax drauf.
Ich habe eine Excel Datei mit 2 Blättern mit identischem Layout (gleiche Anzahl Spalten und Reihen ca. 2500 Zellen).
Ich möchte alle Zellen gleicher Farbe und Schriftfarbe auf Blatt2 zählen
und die Werte aus den Zellen mit den gleichen Koordinaten auf Blatt1 addieren.
Einfaches Beispiel:
Blatt2 B6 und H7 sind rot mit schwarzer Schrift
dann sollen die Werte von B6 und H7 auf Blatt1
addiert und auf Blatt2 in einer anderen Zelle ausgegeben werden.
Ich brauche das ganze um von einem Storage Subsystem die einzelnen logischen Laufwerke zu verwalten. Auf dem Worksheet "LUNs" befinden sich alle logischen Platten mit ihren Adressen und zusammengehörige Zellen (alle, die zu einer bestimmten Anwendung gehören) sind entsprechend farbig markiert.
Auf dem Worksheets "Splits" steht in der gleicher Zelle die jeweilige Kapazität dieser logischen Platte.
Hier meine Function:
'Zählt alle Zellen mit der Hintergrundfarbe und der Textfarbe


Function Farbe_Zählen_Text_farbig(Bereich As Range, HGFarbe As Byte, TxtFarbe As Byte)
Dim cc As Single
Application.Volatile
For Each Zelle In Bereich.Cells
If ((Zelle.Interior.ColorIndex = HGFarbe) And (Zelle.Font.ColorIndex = TxtFarbe)) Then cc = cc + _
1
>>> Hier würde ich gerne von dem Worksheets "Splits" den Wert der gleichen Zelle ermitteln und  _
in einer Variablen cap aufaddieren

Ich freue mich über jeden Tip.
cheers Michael

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Function Calc_Cap(Bereich As Range, HGFarbe As Byte, TxtFarbe As Byte) Dim cc, cap As Single Application.Volatile For Each Zelle In Bereich.Cells If ((Zelle.Interior.ColorIndex = HGFarbe) And (Zelle.Font.ColorIndex = TxtFarbe)) Then cc = cc + 1 cap = cap + Sheets("Splits").Cells(Zelle.Row, Zelle.Column).Value End If Next Calc_Cap = cap End Function

Option Explicit ' immer zu empfehlen Function Calc_Cap(Bereich As Range, HGFarbe As Byte, TxtFarbe As Byte) Dim Zelle As Range If ActiveSheet.Name "LUNs" Then Exit Function Application.Volatile For Each Zelle In Bereich With Zelle If ((.Interior.ColorIndex = HGFarbe) And (.Font.ColorIndex = TxtFarbe)) Then _ Calc_Cap = Calc_Cap + Sheets("Splits").Cells(.Row, .Column) End With Next End Function

Option Explicit ' immer zu empfehlen Function Farbe_Zählen_Text_farbig(Bereich As Range, HGFarbe As Byte, TxtFarbe As Byte) Dim Zelle As Range, cc As Single, cap As Double If ActiveSheet.Name "LUNs" Then Exit Function Application.Volatile For Each Zelle In Bereich.Cells With Zelle If ((.Interior.ColorIndex = HGFarbe) And (.Font.ColorIndex = TxtFarbe)) Then cc = cc + 1 cap = cap + Sheets("Splits").Cells(.Row, .Column) End If End With Next MsgBox cap Farbe_Zählen_Text_farbig = cc End Function

Beliebteste Forumthreads (12 Monate)

Daten von zweitem Sheet verarbeiten

9 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

9
Beiträge zum Forumthread

Beiträge zu diesem Forumthread