Das Clever-Excel-Forum.de - Treffen
findet vom 15. - 17. September 2017 in Thüringen / Region Großer Inselsberg statt. Hotelbuchung ab sofort möglich.


CommandButton Farbe ändern
#1
Hallo Leute!
Ersteinmal schööööön das ihr wieder da seit!
Aber jetzt zu meinen Thema.
Ich möchte gerne einen VBA CommandButton die farbe so ändern wie es in Excel in einer Zelle möglich ist. Zelle formatieren>Ausfüllen>Füllefekte>Graduell> Zweifarbig>Schattierung>Varianten. Ist dies möglich und wenn ja wie?

Danke im vorraus

mfg
Michael
mfg
Michael
98

WIN 7 Office 2007
to top
#2
hi Michael, muss es denn unbedingt ein CommandButton sein..? warum..?
cu jörg eine rückmeldung wäre ganz reizend XL2003 bis XL2013
to top
#3
Hallo Jörg!
Danke für das Intresse
Ja, leider ist es ein CommandButton! Habe eine UserForm wo ich dies gerne einsetzen würde.

mfg
Michael
mfg
Michael
98

WIN 7 Office 2007
to top
#4
Hi,
Farbverläufe sind nicht über Standard möglich. Aber wenn Du künstlerisch begabt bist kannst Du welche Grafiken erzeugen und den Commandbutton ein Bild zuweisen.
Standard: in den Eigenschaften bei Backcolor -> Farbe auswählen
oder bei Picture -> ein Bild auswählen.
Du kannst die Bilder auch über Code zuweisen.

in dieseArbeitsmappe
Code:
Private Sub Workbook_Open()
With Tabelle1
    .CommandButton1.Picture = LoadPicture("c:\temp\mypic.jpg")
End With
End Sub

für einen Button am Tabellenblatt

oder bei
Code:
Private Sub UserForm_Activate()
Me.CommandButton1.Picture = LoadPicture("c:\temp\mypic.jpg")
End Sub
Pfad und Buttonname natürlich anpassen. Wink

lg
lg Chris
Feedback nicht vergessen.
3a2920576572206973742064656e20646120736f206e65756769657269672e
 ?mage

to top
#5
Hallo Michael,

Antworten hast Du ja jetzt schon bekommen, wie man sowas erledigen könnte.
Wenn es nicht ganz so künstlerisch sein soll, dann schau mal in das Eigenschaftenfenster.

Farbe ändern ginge dann beispielsweise so:

Code:
With CommandButton3
    .ForeColor = &HFF&                                                           ' rot
    .BackColor = &H80FFFF                                                        ' hellgelb
End With
________________________________________________________________________
wer aufgibt, ohne es versucht zu haben, gibt einfach nur auf!

?mage
to top
#6
Hallo Michael,


Du kannst auch eine Zelle in der Tabelle nach Deinen Wünschen
färben und die Farbe der Zelle dem Button zuweisen.
Gruß Atilla

Excel 2007
to top
#7
Hallo Leute!
Vilen Dank für eure antworten, werde diese jetzt erst einmal alle testen und mich dann wieder melden.
Nur eine frage noch an Atilla wie funktioniert das zuweisen????
Danke nochmals.
mfg
Michael
98

WIN 7 Office 2007
to top
#8
Hey Michael, hier siehe unten.
THX für die PN, kannst du mal deine letzte xls-datei vom gestorbenen Forum einstellen
Grüße aus NRW 21
?mage
to top
#9
Hallo Michael,

so z.B.:

Code:
Private Sub UserForm_Initialize()
   Me.CommandButton1.BackColor = Sheets("Tabelle1").Cells(1, 1).Interior.Color
End Sub
Gruß Atilla

Excel 2007
to top
#10
Hallo Frank!
Natürlich kann ich das machen, aber dazu sollte ich eine neu frage zu dem Thema einstellen, da ja meine jetzige frage nichts damit zu tun hat. Werde dies morgen mal tun und dann auch die Datei dazu anhängen.
mfg
Michael
98

WIN 7 Office 2007
to top


Möglicherweise verwandte Themen...
Thema Verfasser Antworten Ansichten Letzter Beitrag
  Farbe erkennen Julzact 15 344 30.11.2016, 11:10
Letzter Beitrag: Julzact
Photo Keine Farbe skyline 1 58 18.11.2016, 22:00
Letzter Beitrag: schauan
  Registerfarbe ändern wenn Zelle Farbe hat michel34497 9 198 06.11.2016, 11:39
Letzter Beitrag: michel34497
  Zahlen Farbe zuordnen abhängig von Grenzwertbereichen Maximizzel 1 54 21.10.2016, 13:44
Letzter Beitrag: steve1da
  UserForm CommandButton Text ändern michi89287 2 104 19.10.2016, 10:05
Letzter Beitrag: michi89287
  Wenn Checkbox DANN TEXT + Farbe freeloader1986 8 228 27.09.2016, 13:56
Letzter Beitrag: IchBinIch
  Markierung von CommandButton nach Klick wieder entfernen Luffffy 3 193 20.09.2016, 12:12
Letzter Beitrag: Luffffy
  CommandButton Farbe und Inhalt ändern michel34497 8 593 06.08.2016, 15:01
Letzter Beitrag: michel34497
  Zelle soll ihre Farbe verändern wenn ein bestimmter Wert unterschritten ist Henry 6 392 25.07.2016, 19:30
Letzter Beitrag: Wilfried Höttl
  Wenn Zeitraum 2x auftaucht, dann Farbe basti97 8 456 14.07.2016, 13:16
Letzter Beitrag: basti97

Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste