Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
544to548
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
544to548
544to548
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

VBA-Farbfunktion zur Zellanalyse (Wahr/Falsch)

VBA-Farbfunktion zur Zellanalyse (Wahr/Falsch)
13.01.2005 10:31:59
areich
Hallo,
habe eine Exceldatei mit 255 Tabellen angelegt.
Möchte nun auf der ersten Seite prüfen, ob z.B. eine bestimmte Zelle in Tabelle2 farbig ist (Farbe egal und manuell eingegeben, also keine bedingte Formatierung), oder nicht. Prüfung soll WAHR oder FALSCH ausgeben. Möchte eine Funktion mittels VBA dafür haben, die ich dann später in einer WENN-Funktion mit weiteren Bedingungen nutzen kann.
Habe beim Durchstöbern (Google) folgende Funktion gefunden:
Public

Function Farbe(rngColor As Range, intColor As Integer) As Boolean
If rngColor.Interior.ColorIndex = intColor Then Farbe = True
End Function

Weiß allerdings nicht, wie ich diese umschreiben muß, da die Farbe ja egal ist, und weiß weiter nicht, wie ich sie in einer WENN Formel mit Argumenten nutzen kann (brauche nur Argument "Zelle" um die bestimmte Zelle in der anderen Tabelle auswerten lassen zu können!
Grüße Alex

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: VBA-Farbfunktion zur Zellanalyse (Wahr/Falsch)
Galenzo
Funktion is so in Ordnung, füge allerdings als erste Zeile noch ein
Application.Volatile
ein, damit die Funktion auch immer neu berechnet wird.
Als Funktion kannst du die ganz normal benutzen.
=Farbe(A1;-4142)
ist WAHR, wenn A1 keine Hintergrundfarbe hat.
In dein WENN-Funktion baust die dann so ein:
=WENN(Farbe(A1;-4142);"ohne";"mit")
AW: VBA-Farbfunktion zur Zellanalyse (Wahr/Falsch)
u_

Function Farbe(MyRange As Range)
Application.Volatile
If MyRange.Cells.Count > 1 Then
Farbe = "Fehler"
Exit Function
End If
If MyRange.Interior.ColorIndex = xlNone Then
Farbe = False
Else
Farbe = True
End If
End Function

Gruß
Anzeige
AW: VBA-Farbfunktion zur Zellanalyse (Wahr/Falsch)
13.01.2005 11:05:18
areich
Vielen Dank!
Klappt wunderbar!
Grüße Alex

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige