Funktion farbig ?

[Mr ET]

Wie bekomme ich den Ausgabestring farbig?

Code: Alles auswählen

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

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

[Stephan]

Eine benutzerdefinierte Funktion welche aus einer Zelle aufgerufen wird, kann ausschließlich einen Rückgabewert liefern. Die Änderung der Zeichenfarbe ist jedoch eine Aktion uns es ist auf diesem Wege nicht möglich Aktionen auszuführen, welche zu Änderungen an Zellen 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: Alles auswählen

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

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


Gruß
Stephan

[Mr ET]

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