Unterschied CommandButtom & Schaltflcäche? Farbe des Button ändern

[Thomas Unruh]

Moin Zusammen!

Ich hab da mal 2 Fragen.

1. Wo liegt der Unterschied zwischen den Commandbutton (der aus der
Menüleiste Steuerelemente) und dem aus der Menüleiste Formulare?

2. Kann ich die Farbe des Button ändern?

Gruß
Thomas

PS: Für persönliche Nachrichten "dieswech-" aus der Emailadresse entfernen

[Beverly]

Hi Thomas,

die Steuerelement-Toolbox gibt es erst seit Excel97 (?). Beide Elementtypen
haben unterschiedliche Eigenschaften - z.B. kann man für eine Schaltfläche
aus der Formular-Symbolleiste die Farbe nicht ändern. Bei der Schaltfläche
aus der Steuerelement-Toolbox gibt es die Eigenschaft BackColor, mit der du
die Hintergrundfarbe anpassen kannst.

Bis später,
Karin
http://beverly.excelhost.de/

[Thomas Unruh]

Moin!

Danke für die Hilfe!

Beverly schrieb:

> Hi Thomas,
>
> die Steuerelement-Toolbox gibt es erst seit Excel97 (?). Beide Elementtypen
> haben unterschiedliche Eigenschaften - z.B. kann man für eine Schaltfläche
> aus der Formular-Symbolleiste die Farbe nicht ändern.

Kein wunder das ich das nicht hinbekommen habe.

> Bei der Schaltfläche
> aus der Steuerelement-Toolbox gibt es die Eigenschaft BackColor, mit der du
> die Hintergrundfarbe anpassen kannst.

fein, dann nimm ich die.
Hatte ich gedacht leider geht es nicht :-(

Zumindest so nicht: (verschiedene Versuche)

--------------------------------------------------------------------------
Private Sub CommandButton1_Click()
Beep

Shapes("CommandButton1").Fill.ForeColor.RGB = RGB(50, 200, 0)
ActiveSheet.Shapes("CommandButton1").Fill.BackColor.RGB =
RGB(255, 0, 100)

With Shapes(3).Fill
.ForeColor.SchemeColor = 7
.BackColor.RGB = RGB(20, 100, 40)
'.BackColor.SchemeColor = 1 'so leider auch nicht
End With
End Sub
----------------------------------------------------------------------------

Was mach ich falsch?

Gleich noch eine andere Sache:
Diesen Code:

-----------------------------------------------------------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
'Target wird auf den sich überschneidenden Bereich gesetzt, um bei
'Mehrfachmarkierungen die ausserhalb des eingeschränkten Bereiches
'liegenden Zellen nicht ebenfalls zu verändern

'Hier den Bereich anpassen
Set Target = Application.Intersect(Target, Range("A1:V30"))

'Wenn nicht innerhalb des Bereiches wird die Prozedur verlassen
If Target Is Nothing Then Exit Sub

'Errorhandling aktivieren, um im Falle eines Fehlers die Ereignisse
'am Ende wieder zu aktivieren
On Error GoTo ErrorHandler

'Ereignisse ausschalten, um das Change-Ereignis nicht erneut
auszulösen
Application.EnableEvents = False

Call Kosten

ErrorHandler:
Application.EnableEvents = True 'Ereignisse wieder einschalten
End Sub
-----------------------------------------------------------------------------

Habe ich hier aus der Gruppe und leicht angepasst.
Leider ist das Ergebnis nicht so wie erhofft. Wenn ich einen Wert in
eine Zelle schreibe läuft es.

Ich suche aber ein Lösung dafür, das "Kosten" aufgerufen wird, wenn
ich die Zellhintergrundfarbe ändere.

Da ich nix darüber gefunden habe, stellt sich die Frage: Ist das
überhaupt möglich?

Gruß
Thomas

[Beverly]

Hi Thomas,

mit diesem Code kann man die Farbe des CommandButtons verändern

Private Sub CommandButton1_Click()
ActiveSheet.OLEObjects("CommandButton1").Object.BackColor = 255
End Sub

Eine Farbänderung einer Zelle löst kein Ereignis aus, sodass damit auch kein
Makro gestartet werden kann. Das ist nur mit einer Änderung des Inhalts der
Zelle möglich.

Bis später,
Karin