Farbname eines Farbindex ermitteln

2.81K viewsVBA
0

Wie ermittelt man den Farbnamen eines Farbindexes?

0

Farbindizes liegen im Bereich von 1 bis 56.

 

Farbindex Farbname
1 Schwarz
3 Rot
6 Gelb
13 Violett
16 Grau-50%
5 Blau
39 Lavendel
2 Weiss

Diese Funktion liefert den Farbnamen zu einem Farbindex.

 

.VBA-Code 
Function GetColorNameOfColorIndex(ByVal intColorIndex As Integer) As String
Dim strColor As String
Select Case intColorIndex
Case 1: strColor = „Schwarz“
Case 2: strColor = „Weiss“
Case 3: strColor = „Rot“
Case 4: strColor = „Hellgrün“
Case 5: strColor = „Blau“
Case 6: strColor = „Gelb“
Case 7: strColor = „Rosa“
Case 8: strColor = „Türkis“
Case 9: strColor = „Dunkelrot“
Case 10: strColor = „Grün“
Case 11: strColor = „Dunkelblau“
Case 12: strColor = „Dunkelgelb“
Case 13: strColor = „Violett“
Case 14: strColor = „Seegrün“
Case 15: strColor = „Grau-25%“
Case 16: strColor = „Grau-50%“
Case 17: strColor = „Immergrün“
Case 18: strColor = „Pflaume“
Case 19: strColor = „Elfenbein“
Case 20: strColor = „Helles Türkis“
Case 21: strColor = „Dunkelpurpur“
Case 22: strColor = „Koralle“
Case 23: strColor = „Meeresblau“
Case 24: strColor = „Eisblau“
Case 25: strColor = „Dunkelblau“
Case 26: strColor = „Rosa“
Case 27: strColor = „Gelb“
Case 28: strColor = „Türkis“
Case 29: strColor = „Violett“
Case 30: strColor = „Dunkelrot“
Case 31: strColor = „Seegrün“
Case 32: strColor = „Blau“
Case 33: strColor = „Himmelblau“
Case 34: strColor = „Helles Türkis“
Case 35: strColor = „Pastelgrün“
Case 36: strColor = „Hellgelb“
Case 37: strColor = „Blassblau“
Case 38: strColor = „Hellrosa“
Case 39: strColor = „Lavendel“
Case 40: strColor = „Gelbbraun“
Case 41: strColor = „Hellblau“
Case 42: strColor = „Aquablau“
Case 43: strColor = „Gelbgrün“
Case 44: strColor = „Gold“
Case 45: strColor = „Helles Orange“
Case 46: strColor = „Orange“
Case 47: strColor = „Blaugrau“
Case 48: strColor = „Grau-40%“
Case 49: strColor = „Grünblau“
Case 50: strColor = „Meeresgrün“
Case 51: strColor = „Dunkelgrün“
Case 52: strColor = „Olivegrün“
Case 53: strColor = „Braun“
Case 54: strColor = „Pflaume“
Case 55: strColor = „Indigoblau“
Case 56: strColor = „Grau-80%“
Case 74: strColor = „(Automatisch/Kommentar)“
Case 248: strColor = „(Automatisch)“
Case Else: strColor = „(Unbekannt)“
End Select
GetColorNameOfColorIndex = strColor
End Function