Kleiner Nachtrag zu Gestern
02.04.2015 05:14:10
Luc:-?
probiert mal, viell hört ja einer was. Fehlt allerdings noch 'ne Kleinigkeit (aus dem Archiv oder selbstverfasst), besonders, wenn das idealerweise per UDF in'ner ZellFml fktionieren soll… ;-] Private Function Talk2Me(ByVal Text$) As Boolean Const txStandd$ = "lirpa,fo ts1" On Error GoTo ex If Text = "" Then Text = StrReverse(txStandd) Application.Speech.Speak Text Talk2Me = True ex: Rem b.Fehler False End Function Und weil's so schön ist auch gleich noch die Lösung für die abundzu gestellte Frage, wie kann ich mit WENN die Hintergrundfarbe einer beliebigen Zelle ändern? Wohlgemerkt, ohne BedingtFormatierung (ggf auch mit Ansage)!
Rem Fkt färbt ZellHGrd, -Muster, -Text, -Rahmen direkt;
' in ZFmln (Xl12/14) unter best Umständen einsetzbar!
' Vs1.0 -LSr -cd:20150331 -1pub:nie -lupd:2010401n
Function ColorMe(Optional Bezug, Optional ByVal Farbe, Optional ByVal FarbBezug, _
Optional ByVal mBezWt As Boolean, Optional ByVal mAns As Boolean)
Const stFarbe As Long = rgbCornsilk
Dim isDone As Boolean, isMe As Boolean, ber As Range, aWb As Workbook
On Error GoTo ex: isMe = IsMissing(Bezug)
If TypeName(Bezug) = "Range" Then
Set ber = Bezug
Else: Set ber = Application.ThisCell
End If
Set aWb = ber.Parent.Parent
If IsMissing(Farbe) Then
Farbe = stFarbe
ElseIf LCase(Left(Farbe, 2)) = "&h" Then
Farbe = CLng(Farbe)
ElseIf Left(Farbe, 1) = "#" Then
Farbe = CLng("&h" & Right(Farbe, 2) & Mid(Farbe, 4, 2) & Mid(Farbe, 2, 2))
ElseIf Farbe Like String(Len(Farbe), "#") Then
If Farbe > 0 And Farbe
Hier fehlt ebenfalls eine analoge Kleinigkeit, wenn das bspw mit nachfolgendem FmlTeil fktionieren soll:ColorMe(sum(C53:C55),if(sum(C53:C55) Viel Spaß beim Ausprobieren! Ich schau dann irgendwann mittags oder abends mal rein… ;-]
Morrn, Luc :-?