Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
920to924
920to924
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Function: Farbe und Inhalt

Function: Farbe und Inhalt
05.11.2007 18:04:00
Burghard
Hallo,
ich möchte in einer Funktion zwei Bedingungen erfüllt haben. Mit einer Bedingung klappt es.
Beispiel:

Public Function AnzahlBlau(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex = 8 Then
s = s + 1
End If
Next
AnzahlBlau = s
End Function


==================================
Wenn ich aber die Bedingung mit der Farbe mit einem Zellwert verknüpfen will, geht es nicht mehr.
Beispiel:


Public Function AnzahlBlau(Bereich As Object) As Double
Dim s As Double
Dim a As Object
Application.Volatile
s = 0
For Each a In Bereich
If a.Interior.ColorIndex = 8 AND Cell.Value = "B" Then
s = s + 1
End If
Next
AnzahlBlau = s
End Function


====================================
Kann mir jemand den Code verbessern?
Vielen Dank und Gruß
Burghard

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Function: Farbe und Inhalt
05.11.2007 18:06:04
Hajo_Zi
Hallo Burghard
a.value
Gruß Hajo

AW: Function: Farbe und Inhalt
05.11.2007 21:30:11
Burghard
Hallo Hajo,
vielen Dank für den Tipp. Hätte ich sehen müssen.
Schönen Gruß
Burghard
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige