Office: ColorIndex bei BackColor einer Combobox nutzen

Hallo zusammen!

Leider erhalte ich bei folgendem Code eine Fehlermeldung:

"Fehler beim Komplimieren/Ungültiger Bezeichner"

Hat jemand eine Idee, was ich beim Coden falsch gemacht habe?

Ich danke euch.

 

Hallo!

Entweder
ComboBox.BackColor = RGB(51, 51, 51)
oder
ComboBox.Interior.ColorIndex = x

 

Hallo schatzi,

ComboBox.Interior.ColorIndex = x funktioniert leider nicht. Er läuft es zwar ohne zu Meckern durch, aber die Farbe ändert sich nicht.

Ich muss dann wohl doch auf den ColorIndex verzichten. Würdest du mir als Alternative eher den RGB-Code empfehlen oder diese VBA-Farbenindex die mit &H000... beginnen?

Danke.

 

Hallo!

Ich persönlich kann mit RGB-Werten mehr anfangen, aber letztenendes ist das wohl Jacke wie Hose...

 

Hallo,

Kann es sein, dass deshalb .Colorindex=x nicht funktioniert hat?
Der Wert für Colorindex ist eine natürl.Zahl zwischen 0 und 56 und sie spricht die Nummer des Eintrags in der Farbpalette an (jeder Nr. ist eine Farbe zugeordnet). Das hat aber nichts zu tun mit RGB-Farbkonstanten, die man auch mit der RGB(..)-Funktion erzeugen kann.
Wie die Farbpalette (für Zellen) festgelegt ist, kann man sich mit folgendem Makro (speicherbar in einem allgem. Codemodul) im Arbeitsblatt im Bereich A1:B57 anzeigen lassen. Ob die Palette für Comboboxen genauso definiert ist, weiß ich nicht - aber wird man sicher auch per VBA ermitteln können: sieht man sich in einer ActiveX-Combobox in den Eigenschaften "BackColor" an, kann man diese Farbpalette einsehen.

Code:

Public Sub Interior_Colorindex()
  Dim i%
  For i% = 0 To 56
    Cells(i% + 1, 1) = i%
    Cells(i% + 1, 2).Interior.ColorIndex = i%
  Next i%
End Sub