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 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 nutzen kann!
Grüße Alex
Office - Word, Excel und Co. 9.762 Themen, 41.800 Beiträge
Evtl. wäre es geschickter zu prüfen, ob die Zelle keine Farbe hat. Dann müsstest du aber wissen, welchen Wert man mit einer "nicht-farbigen" Zelle für die Funktion verbindet.
Mit dem Makro findet man die Farben und Nummern raus.
Sub Farbtabelle()
Dim intCounter As Integer
Workbooks.Add
For intCounter = 1 To 56
Cells(intCounter, 1).Interior.ColorIndex = intCounter
Cells(intCounter, 2).Value = intCounter
Next intCounter
End Sub
Danke erstmal, probiers mal aus!
Grüße Alex
