Excel CommandButton Farbe ändern WENN

[BastiJT]

Hallo zusammen,


ich benötige Hilfe.

Ich möchte im VBA UserForm die Farbe eines CommandButton ändern , wenn auf Tabelle2 A1 eine Zahl >1 ist.


Hoffe Ihr könnt mir helfen  :19:


Ps: Habe es schon mit bedingte Formatierung versucht und anschließend die Farbe zu übernehmen.

Code:

Private Sub UserForm_Initialize()
  Me.CommandButton1.BackColor = Sheets("Tabelle2").Cells(1, 1).Interior.Color
End Sub

Erfolglos 

[Käpt'n Blaubär]

Hallo,

Ich möchte im VBA UserForm die Farbe eines CommandButton ändern , wenn auf Tabelle2 A1 eine Zahl >1 ist.

Ps: Habe es schon mit bedingte Formatierung versucht und anschließend die Farbe zu übernehmen.

Aktiviere den Button im Entwicklermodus.
Dann kannst Du in den Eigenschaften ... gewöhnlich werden die links unten angezeigt ...
die Farbeinstellungen vornehmen.
Oder Du legst im Code für diesen Button die Farbeinstellungen fest.
Um die Farbwerte rauszukriegen und in den Code einzufügen kannst Du die Werte aus
den Eigenschaften übernehmen.

[atilla]

Hallo,

das ginge nach folgendem Muster:

Code:

Private Sub UserForm_Initialize()
 If Sheets("Tabelle2").Cells(1, 1) > 1 Then
   Me.CommandButton1.BackColor = Sheets("Tabelle2").Cells(1, 1).Interior.Color 'hier wird die Farbe aus Tabelle2 A1 ausgelesen
 Else
   Me.CommandButton1.BackColor = Sheets("Tabelle1").Cells(1, 1).Interior.Color 'hier wird die Farbe aus Tabelle1 A1 ausgelesen
 End If
End Sub

[BastiJT]

Hallo Käpten Blaubär,


ist nicht wonach ich Suche  :s

Ich brauche einen Code der mir die Farbe vom CommandButton (in der Userform1) ändert wenn : z.B in Tabelle1 A1 eine Zahl >1 steht.

Ist dieses nicht der fall soll der CommandButton seine Farbe behalten

[BastiJT]

Super Vielen Dank