Supportnet / Forum / Tabellenkalkulation
Farbpalette
Frage
Hallo Leute,
habe mir den Code für eine Farbpalette erstellt.
Frage:
Ist es möglich den Code so zu erweitern das die Excel-Farbnamen mit angezeigt werden können?
Hat jemand eine Idee !!
Sub Farbe()
Dim i
For i = 1 To 56
If i < 29 Then
Cells(i, 1) = "Nr.:" & i
Cells(i, 2).Interior.ColorIndex = i
Else
Cells(i - 28, 3) = "Nr.:" & i
Cells(i - 28, 4).Interior.ColorIndex = i
End If
Next i
End Sub
MfG
Odje
Antwort 1 von Bernd4000
Hallo,
so weit ich weiß, gibt es diese Möglichkeit mit einem Befehl, ähnlich "Interior.ColorIndex" nicht. Wenn es dir nur um die Namen geht:
Sub Farben()
Dim i
For i = 1 To 56
If i < 29 Then
Cells(i, 1) = "Nr.:" & i
Cells(i, 2).Interior.ColorIndex = i
Else
Cells(i - 28, 4) = "Nr.:" & i
Cells(i - 28, 5).Interior.ColorIndex = i
End If
Next i
Range("C1").Value = "Schwarz"
Range("C2").Value = "Weiss"
Range("C3").Value = "Rot"
Range("C4").Value = "Hellgrün"
Range("C5").Value = "Blau"
Range("C6").Value = "Gelb"
Range("C7").Value = "Rosa"
Range("C8").Value = "Türkis"
Range("C9").Value = "Dunkelrot"
Range("C10").Value = "Grün"
Range("C11").Value = "Dunkelblau"
Range("C12").Value = "Dunkelgelb"
Range("C13").Value = "Violett"
Range("C14").Value = "Seegrün"
Range("C15").Value = "Grau-25%"
Range("C16").Value = "Grau-50%"
Range("C17").Value = "Immergrün"
Range("C18").Value = "Pflaume"
Range("C19").Value = "Elfenbein"
Range("C20").Value = "Helles Türkis"
Range("C21").Value = "Dunkelpurpur"
Range("C22").Value = "Koralle"
Range("C23").Value = "Meeresblau"
Range("C24").Value = "Eisblau"
Range("C25").Value = "Dunkelblau"
Range("C26").Value = "Rosa"
Range("C27").Value = "Gelb"
Range("C28").Value = "Türkis"
Range("F1").Value = "Violett"
Range("F2").Value = "Dunkelrot"
Range("F3").Value = "Seegrün"
Range("F4").Value = "Blau"
Range("F5").Value = "Himmelblau"
Range("F6").Value = "Helles Türkis"
Range("F7").Value = "Pastelgrün"
Range("F8").Value = "Hellgelb"
Range("F9").Value = "Blassblau"
Range("F10").Value = "Hellrosa"
Range("F11").Value = "Lavendel"
Range("F12").Value = "Gelbbraun"
Range("F13").Value = "Hellblau"
Range("F14").Value = "Aquablau"
Range("F15").Value = "Gelbgrün"
Range("F16").Value = "Gold"
Range("F17").Value = "Helles Orange"
Range("F18").Value = "Orange"
Range("F19").Value = "Blaugrau"
Range("F20").Value = "Grau-40%"
Range("F21").Value = "Grünblau"
Range("F22").Value = "Meeresgrün"
Range("F23").Value = "Dunkelgrün"
Range("F24").Value = "Olivegrün"
Range("F25").Value = "Braun"
Range("F26").Value = "Pflaume"
Range("F27").Value = "Indigoblau"
Range("F28").Value = "Grau-80%"
End Sub
Grüsse
so weit ich weiß, gibt es diese Möglichkeit mit einem Befehl, ähnlich "Interior.ColorIndex" nicht. Wenn es dir nur um die Namen geht:
Sub Farben()
Dim i
For i = 1 To 56
If i < 29 Then
Cells(i, 1) = "Nr.:" & i
Cells(i, 2).Interior.ColorIndex = i
Else
Cells(i - 28, 4) = "Nr.:" & i
Cells(i - 28, 5).Interior.ColorIndex = i
End If
Next i
Range("C1").Value = "Schwarz"
Range("C2").Value = "Weiss"
Range("C3").Value = "Rot"
Range("C4").Value = "Hellgrün"
Range("C5").Value = "Blau"
Range("C6").Value = "Gelb"
Range("C7").Value = "Rosa"
Range("C8").Value = "Türkis"
Range("C9").Value = "Dunkelrot"
Range("C10").Value = "Grün"
Range("C11").Value = "Dunkelblau"
Range("C12").Value = "Dunkelgelb"
Range("C13").Value = "Violett"
Range("C14").Value = "Seegrün"
Range("C15").Value = "Grau-25%"
Range("C16").Value = "Grau-50%"
Range("C17").Value = "Immergrün"
Range("C18").Value = "Pflaume"
Range("C19").Value = "Elfenbein"
Range("C20").Value = "Helles Türkis"
Range("C21").Value = "Dunkelpurpur"
Range("C22").Value = "Koralle"
Range("C23").Value = "Meeresblau"
Range("C24").Value = "Eisblau"
Range("C25").Value = "Dunkelblau"
Range("C26").Value = "Rosa"
Range("C27").Value = "Gelb"
Range("C28").Value = "Türkis"
Range("F1").Value = "Violett"
Range("F2").Value = "Dunkelrot"
Range("F3").Value = "Seegrün"
Range("F4").Value = "Blau"
Range("F5").Value = "Himmelblau"
Range("F6").Value = "Helles Türkis"
Range("F7").Value = "Pastelgrün"
Range("F8").Value = "Hellgelb"
Range("F9").Value = "Blassblau"
Range("F10").Value = "Hellrosa"
Range("F11").Value = "Lavendel"
Range("F12").Value = "Gelbbraun"
Range("F13").Value = "Hellblau"
Range("F14").Value = "Aquablau"
Range("F15").Value = "Gelbgrün"
Range("F16").Value = "Gold"
Range("F17").Value = "Helles Orange"
Range("F18").Value = "Orange"
Range("F19").Value = "Blaugrau"
Range("F20").Value = "Grau-40%"
Range("F21").Value = "Grünblau"
Range("F22").Value = "Meeresgrün"
Range("F23").Value = "Dunkelgrün"
Range("F24").Value = "Olivegrün"
Range("F25").Value = "Braun"
Range("F26").Value = "Pflaume"
Range("F27").Value = "Indigoblau"
Range("F28").Value = "Grau-80%"
End Sub
Grüsse
Antwort 2 von nok106
Hi Bernd4000,
genau dass war meine Vorstellung.
Für deine Mühe und Hilfe besten Dank.
Gruß Odje
genau dass war meine Vorstellung.
Für deine Mühe und Hilfe besten Dank.
Gruß Odje