OpenOffice.info

'Rückgabewerte: 
'1 -->Zelle hat Hintergrundfarbe
'0 --> Zelle hat keine Hintergrundfarbe
'#Fehler --> es ist ein Fehler aufgetreten

Function HGF(Zellname As String, Tabellenname As String)
	On Error Goto Fehler
	
	akt_zelle = ThisComponent.Sheets(Tabellenname).getCellrangeByName(Zellname)
	If akt_zelle.CellBackColor <> -1 Then
			HGF = 1
		Else
			HGF = 0
	End if
	
	Exit Function
	
	Fehler:
	HGF = "#Fehler"
End Function

Das geht wohl nur mittels benutzerdefinierter Funktion, z.B.:

[code]
'Rückgabewerte:
'1 -->Zelle hat Hintergrundfarbe
'0 --> Zelle hat keine Hintergrundfarbe
'#Fehler --> es ist ein Fehler aufgetreten

Function HGF(Zellname As String, Tabellenname As String)
On Error Goto Fehler

akt_zelle = ThisComponent.Sheets(Tabellenname).getCellrangeByName(Zellname)
If akt_zelle.CellBackColor <> -1 Then
HGF = 1
Else
HGF = 0
End if

Exit Function

Fehler:
HGF = "#Fehler"
End Function[/code]

Beispieldatei anhängend.



Gruß
Stephan

Hallo,
ich brauche eine Formel in LO Calc, die mir in beispielsweise Zelle A2 anzeigt, ob die Zelle A1 einen farbigen Hintergrund hat. Mir geht es nicht darum, welche Farbe, sonder nur ob der Hintergrund farbig ist. Mir ist auch egal, wie es angezeigt wird, mit WAHR und FAlSCH oder 1 und 0 oder sonstig.
Es wäre toll, wenn die Formel nicht allzu kompliziert wäre, bin Einsteiger in Calc. Gibt es dafür überhaupt eine Formel?

Vielen Dank schon mal,
Alina