Supportnet Computer
Planet of Tech

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

Antwort 2 von nok106

Hi Bernd4000,

genau dass war meine Vorstellung.

Für deine Mühe und Hilfe besten Dank.

Gruß Odje

Ich möchte kostenlos eine Frage an die Mitglieder stellen:


Ähnliche Themen:


Suche in allen vorhandenen Beiträgen: