Thema Datum  Von Nutzer Rating
Antwort
18.12.2014 13:05:42 Marv
NotSolved
18.12.2014 17:22:01 Gast51310
NotSolved
18.12.2014 17:27:28 Gast76855
NotSolved
Blau test your colors
 18.12.2014 17:44:13 Gast63793
NotSolved
19.12.2014 09:16:58 Marv
NotSolved
19.12.2014 10:23:56 Ambg
NotSolved
19.12.2014 11:06:52 Gast81917
NotSolved
19.12.2014 11:51:52 Ambg
NotSolved
19.12.2014 13:02:18 Gast6437
NotSolved

Ansicht des Beitrags:
Von:
Gast63793		 Datum:
18.12.2014 17:44:13		 Views:
1106		 Rating:
     
Antwort:
  Ja
Thema:
test your colors		 
Sub Test()
'select pink
Debug.Print fColor(Selection, 1), fColor(Selection, 2), fColor(Selection, 3)

End Sub

Function fColor(rng As Range, Optional formatType As Integer = 0) As Variant
    Dim colorVal As Variant
    colorVal = Cells(rng.Row, rng.Column).Font.Color
    Select Case formatType
        Case 1
            fColor = Hex(colorVal)
        Case 2
            fColor = (colorVal Mod 256) & ", " & ((colorVal \ 256) Mod 256) & ", " & (colorVal \ 65536)
        Case 3
            fColor = Cells(rng.Row, rng.Column).Font.ColorIndex
        Case Else
            fColor = colorVal
    End Select
End Function

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
18.12.2014 13:05:42 Marv
NotSolved
18.12.2014 17:22:01 Gast51310
NotSolved
18.12.2014 17:27:28 Gast76855
NotSolved
Blau test your colors
 18.12.2014 17:44:13 Gast63793
NotSolved
19.12.2014 09:16:58 Marv
NotSolved
19.12.2014 10:23:56 Ambg
NotSolved
19.12.2014 11:06:52 Gast81917
NotSolved
19.12.2014 11:51:52 Ambg
NotSolved
19.12.2014 13:02:18 Gast6437
NotSolved