Hintergrundfarbe Zelle färben aus dem VB Editor

Computer: Software & Programmierung Office Software
1

Hallo zusammen,

ich bräuchte eure Hilfe…

wie kann man die Hintergrundfarbe einer Zelle über eine Funktion im VB Editor steuern und die Funktion praktisch in den gewünschten Zellen im MS Excel aufrufen?
Ich kriegs nur mit Zeichen hin…

Function test(x,y)
If x y Then
test = „x ungleich y“ / das funktioniert
test = 'Hintergrundfarbe = gelb???
Else
test = „“
End If
End Function

Danke.
Grüsse
Johanna

2

wie kann man die Hintergrundfarbe einer Zelle über eine
Funktion im VB Editor steuern und die Funktion praktisch in
den gewünschten Zellen im MS Excel aufrufen?
Ich kriegs nur mit Zeichen hin…

Function test(x,y)
If x y Then
test = „x ungleich y“ / das funktioniert
test = 'Hintergrundfarbe = gelb???
Else
test = „“
End If
End Function

Hi Johanna,

wie wäre es mit bedingter Formatierung, die die Farbe setzt wenn der Zellinhalt gleich „x ungleich y“ ist!?

Ändern sich x bzw. y durch manuelle Änderung? Dann könnte man auch im Dokumentmodul des jeweiligegen Blattes auch in Vba das Ereignis Worksheet_Change benutzen zur Farbanpassung.
Gruß
Reinhard

3

Function test(x,y)
If x y Then
test = „x ungleich y“ / das funktioniert
test = 'Hintergrundfarbe = gelb???
Else
test = „“
End If
End Function

Hi Johanna,
ab XL2000 könntest du das auch so schreiben:

Function test(x,y)
test= iif (xy,„x ungleich y“,"")
End Function

Gruß
Reinhard

4

das geht in einer Funktion leider nicht…

wenn es ginge, dann etwa so:

Function test(x, y)
 If x y Then
 test = "x ungleich y"
 **ActiveCell.Interior.ColorIndex = 6**
 Else
 test = ""
 End If
End Function

Allerdings weigert sich Excel das innerhalb einer Function zu tun.
Ein eigenes Makro wäre kein Problem, aber auch wenn du versuchst ein Makro aus der Funktion heraus aufzurufen wird sich Excel stumm weigern…