OpenOffice.info

vielen Dank für die Lösung Stephan!
Funktioniert TipTop
ET

Function FarbVor(x)
Select Case x 
   Case  >28       
      FarbVor = "ROT" 
   Case  >19 
      FarbVor = "Grün" 
   Case  >11 
      FarbVor = "Blau_grün" 
   Case  >-1 
      FarbVor = "HellBlau" 
   Case  <0 
      FarbVor = "Blau" 
end select 
end Function

Eine benutzerdefinierte Funktion welche [u][b]aus [/b]einer Zelle aufgerufen wird[/u], kann ausschließlich einen Rückgabe[b]wert[/b] liefern. Die Änderung der Zeichenfarbe ist jedoch eine [b]Aktion[/b] uns es ist auf diesem Wege nicht möglich Aktionen auszuführen, welche zu [u]Änderungen an Zellen [/u]führen.
Du könntest bedingte Formatierungen verwenden und statt:
=FarbText(23)
schreiben:
=FARBTEXT(23)&T(VORLAGE(FARBVOR(23)))

und müßtest Dir 5 Zellvorlagen, sowie diese Funktion erstellen:

[code]Function FarbVor(x)
Select Case x
Case >28
FarbVor = "ROT"
Case >19
FarbVor = "Grün"
Case >11
FarbVor = "Blau_grün"
Case >-1
FarbVor = "HellBlau"
Case <0
FarbVor = "Blau"
end select
end Function[/code]

Wahrscheinlich ist das noch zu verfeinern, aber so wäre das Prinzip.


Gruß
Stephan

Function FarbText(L As Integer) As string
Dim T as integer
T = L
Select Case T
	Case  >28	   
		FarbText = "Très chaud"	'Text ROT
	Case  >19
		FarbText = "Chaud" 		'Text Grûn
	Case  >11
		FarbText = "Tiède"		'Text Blau-grûn
	Case  >-1
		FarbText = "Froid"		'Text HellBlau
	Case  <0
		FarbText = "Très froid"	'Text Blau
end select
End Function

Wie bekomme ich den Ausgabestring farbig?
[code]Function FarbText(L As Integer) As string
Dim T as integer
T = L
Select Case T
Case >28
FarbText = "Très chaud" 'Text ROT
Case >19
FarbText = "Chaud" 'Text Grûn
Case >11
FarbText = "Tiède" 'Text Blau-grûn
Case >-1
FarbText = "Froid" 'Text HellBlau
Case <0
FarbText = "Très froid" 'Text Blau
end select
End Function[/code]

Hab's mit " Cell = ThisComponent.CurrentSelection
Cell.charColor = RGB(xx,xx,xx)" probiert , funktioniert nicht
geht aber in einer "Sub -- end Sub" Makro
Im voraus besten Dank fuer jeden Tip