Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Schriftfarbe auf einem Button ändern

54 views
Skip to first unread message

Karsten Schaper

unread,
Aug 14, 2002, 6:03:31 PM8/14/02
to
Hallo,

wahrscheinlich ganz einfach ...

Excel Sheet ... Button drauf ... Makro hinterlegt

Wunderbar, alles klappt ... nun möchte ich aber die Schriftfarbe des
Buttons, den ich gedrückt habe ändern...

In Access wäre das mit -> Me.cmdButton.ForeColor = x sofort gegangen... Wie
aber lautet nun der Ort des Buttons in dem Formular und gibt es ForeColor
überhaupt u.s.w.

Die Antwort kann wohl nur ein Einzeiler sein, oder ?


Karsten Schaper


Jean Ruch

unread,
Aug 14, 2002, 7:07:05 PM8/14/02
to

"Karsten Schaper" <ksch...@sidestep.de> schrieb im Newsbeitrag
news:#lLZc39QCHA.2536@tkmsftngp10...

> Hallo,
>
> wahrscheinlich ganz einfach ...
>
> Excel Sheet ... Button drauf ... Makro hinterlegt
>
> Wunderbar, alles klappt ... nun möchte ich aber die Schriftfarbe des
> Buttons, den ich gedrückt habe ändern...


Hallo Karsten,

Dein Button mit rechter MausTaste anklicken //- Eigenschaften auswählen und
im Fenster das sich öffnet, deine Wünsche verwirklichen.

Mit freundlichem Gruß

Jean

Karsten Schaper

unread,
Aug 17, 2002, 3:30:26 AM8/17/02
to
Danke für den Tipp,

aber ich will, das innerhalb des Makros auf den Butten zugegriffen wird und
die Farbe geändert wird, ohne, das der Button in den Eigenschaftenmodus
gesetzt wird...

So wie:

Sheets("Test").Shapes("cmdButton3").Font.ColorIndex = 3

Aber das funktioniert so nicht... Excel will immer erst den Button.Select
machen und dann mit With die Eigenschaften setzen.

Vielleicht dafür auch eine Idee ?


Karsten Schaper


"Jean Ruch" <jean...@web.de> schrieb im Newsbeitrag
news:OlmeGc#QCHA.4012@tkmsftngp11...

Frank Arendt-Theilen

unread,
Aug 17, 2002, 10:46:18 AM8/17/02
to
Hallo Karsten,
wie folgt:

Sub FarbeAendern()
Worksheets("Tabelle1").OLEObjects("CommandButton1"). _
Object.BackColor = RGB(255, 0, 0)
End Sub

MfG Frank
_____________________________________________________
Frank Arendt-Theilen, Microsoft MVP für Excel, Hameln
eMail: Thei...@t-online.de, Homepage: http://www.xl-faq.de

Karsten Schaper

unread,
Aug 18, 2002, 4:09:25 AM8/18/02
to
Danke für den Tipp,

aber bei mir kommt dann nur

Laufzeitfehler '1004',
Die OLEObjetcs-Eigenschaft des Worksheet-Objektes kann nicht zugeordnet
werden.

Muss ich irgendwas vorher noch deklarieren oder einen Verweis setzten ?


Viele Grüße aus Gütersloh

Karsten Schaper


"Frank Arendt-Theilen" <Thei...@t-online.de> schrieb im Newsbeitrag
news:f5oslu4ln0ot87q8b...@4ax.com...

Thomas Ramel

unread,
Aug 18, 2002, 6:07:29 AM8/18/02
to
Grüezi Karsten

Karsten Schaper schrieb:


>
> wahrscheinlich ganz einfach ...
>
> Excel Sheet ... Button drauf ... Makro hinterlegt

Woher stammt denn der Button, den Du auf das Tabellenblatt setzt?
Aus der Formular-Symbolleiste oder aus der Steuerelemente-Toolbox?

> Wunderbar, alles klappt ... nun möchte ich aber die Schriftfarbe des
> Buttons, den ich gedrückt habe ändern...
>
> In Access wäre das mit -> Me.cmdButton.ForeColor = x sofort gegangen... Wie
> aber lautet nun der Ort des Buttons in dem Formular und gibt es ForeColor
> überhaupt u.s.w.

Der folgende Code ändert die Schriftrarbe, nachdem der Button gedrückt
wurde:

Private Sub CommandButton1_Click()
Me.CommandButton1.ForeColor = &HFF0000
End Sub

--
Mit freundlichen Grüssen

Thomas Ramel
- MVP für Microsoft-Excel -

http://www.4853.ch/Schlesinger

Frank Arendt-Theilen

unread,
Aug 18, 2002, 4:10:31 PM8/18/02
to
Hallo Karsten,
wenn du das Makro mit einem CommandButton startest, dann setzte dessen
Eigenschaft TakeFocusOnClick auf False.
0 new messages