Office: Schaltfläche (Formularsteuerelement) Farbe ändern

Hallo zusammen,

ich möchte dass sich die "Schaltfläche (Formularsteuerelement)" nach Ausführen des hinterlegten Makros die Farbe verändert. Ferner soll bei einem Klick auf die Schaltfläche dieser die Farbe "von grau nach grün" wechseln. Ich habe dazu folgendes Minimalbeispiel:


Sub Farbe_Wechseln()

' Farbe_Wechseln Makro

Range("A1:C3").Select
Selection.Copy
Range("A8").Select
ActiveSheet.Paste
Application.CutCopyMode = False

ThisWorkbook.Worksheets("Start").Shapes("Schaltfläche 1").Fill.ForeColor.RGB = RGB(51, 204, 51)


End Sub


Sub Decolorize()
Dim shp As Shape
For Each shp In ThisWorkbook.Worksheets("Steuerung").Shapes
shp.Fill.ForeColor.RGB = RGB(192, 192, 192)
Next
End Sub


Sub Workbook_open()
Call Decolorize
End Sub


Wäre super wenn mir jemand helfen könnte.
Viele Grüße,
Irrational

:)

 

Moin!
Mit einer Formular-Schaltfläche geht dies mE nicht.
Nimm doch ein Rechteck, dann funktioniert:
ActiveSheet.Shapes("rectangle 1").Fill.ForeColor.RGB = RGB(251, 204, 51)

Gruß Ralf

 

Hi,

benutze ein ActiveX-Steuerelement.

 

Also mit einem CommandButton hat das nicht funktioniert.

Mit einem Rechteck hat's geklappt.
Wenn ich aber die Datei speicher und wieder öffnen will, soll das Rechteck wieder grau werden und bei klick darauf wieder grün werden.
Mein Code funktioniert irgendwie nicht.

Für Hilfe dankbar.

Woher weiss ich denn, ob der "Button" ein Rechteck, Schaltfläche oder Active X ist. Soll die Datei nur weiter entwickeln und weiss nicht was genau verwendet worden ist.

 

Wenn das Workbook_open-Makro in DieseArbeitsmappe steht, funktioniert Dein Code sehr wohl.

Rechtsklick und Kontrolle des Namenfelds links oben.

ActiveX ist eine ganz andere Baustelle, damit funktioniert Dein Code nicht.
Da wäre der Code in etwa so (jetzt aber im Modul der entsprechenden Tabelle):
Code:

Gruß Ralf

 

Und WAS hat nicht funktionert? Allgemeine Antworten ohne konkrete Erläuterung zum tatsächlichen Problem sind bei der Lösungsfindung absolut nicht hilfreich.

Im Anhang ein Beispiel mit ActiveX-Steuerelement.

 

Hallo,

@Beverly Der CommandButton färbt sich nicht in der gewünschten Farbe ein, sondern die Schriftart nimmt die Farbe an. Trotzdem vielen Dank für die Datei.

Ich hab jetzt eine Datei erstellt.
Das Rechteck nimmt die Farbe grün an,
aber nach speichern + schließen + erneutes öffnen ist der Button immer noch grün und nicht wie gewünscht grau. ich weiss nicht wieso der Code nicht funktioniert.

Wäre super wenn Ihr nochmal drüber schauen könnt.

 

Das ist doch kein Problem: ändere in beiden Codes ForeColor in BackColor.


Was deine hochgeladene Mappe betrifft: aus meiner Beispielmappe hättest du eigentlich erkennen können, dass das WorkBook_Open-Ereignis nicht in ein Standard-Modul sondern ins Codemodul DieseArbeitsmappe gehört...

 

Moin,
deine Mappe habe ich mir nicht angesehen.
Hatte mal eine ähnliche Situation. Im Ereignis Workbook - BeforeClose habe ich die Farbe der Schaltfläche zurückgesetzt.

Eine andere Möglichkeit wäre einen ToggleButton einzusetzen.
Nach diesem Muster: Code:

Anpassungen müsstest du noch vornehmen.

Gruß
Rainer

 

Danke für die Tipps. Leider funktioniert meine Arbeitsmappe immer noch nicht. Die Ausgangsfrage war ja, ob es mit einem Formularsteuerelement funktioniert und nicht mit einem ActiveX.

@ Beverly Dein Tipp den Code des WorkBook_Open-Ereignis nicht in ein Standard-Modul sondern ins Codemodul DieseArbeitsmappe zu machen, kann ich nicht ganz folgen.

Zumal ich dies jetzt versucht habe, aber durch speichern + schließen + öffnen sich immer noch nichts verändert.

 

Was ist daran so schwer zu verstehen: du hast den Code

Code:

im Modul Modul1 stehen - da wo auch deine anderen Prozeduren stehen. Er gehört aber (wie schon geschrieben) ins Codemodul DieseArbeitsmappe. Schau dir doch einfach mal allen Code in meiner Mappe an...

 

Hallo zusammen,

das von Beverly hat funktioniert, jedoch benötige ich nochmals eure Hilfe.

In meiner Arbeitsmappe befindet sich ein Button welcher täglich ausgeführt wird; mit dem Wertigkeitsdatum Heute() - 1 . Also per Vortag.
Nach dem Betätigen färbt sich dieser von grau nach grün ein.
Schließen der Arbeitsmappe und erneutes Öffnen setzen die Ausgangsfarbe wieder wie gewünscht auf grau. Soweit so gut.

Meine Frage: Ich will, dass wenn die Arbeitsmappe erneut geöffnet wird, dass die Ausgangsfarbe grau nicht angenommen wird, wenn der Button erfolgreich betätigt wurde(grün).

Jedoch soll am morgigen Tag die Farbe definitiv wieder auf grau sein, damit dies dem Benutzer singnalisiert ; bitte Button betätigen.

Eine Zeitbedingung habe ich eingebaut, führt aber nicht zum Ergebnis, da die Bedingung nicht erfüllt wird, wenn die Arbeitsmappe an diesem Tag nur einmal geöffnet wird (also zum betätigen des BUttons(grün) ) und dann erst wieder am Folgetag.

Wäre super wenn mir jemand helfen könnte.

Viele Grüße,
Irrational

 

Hi,

verstehe ich das richtig, dass der Button in der Farbe nicht zurückgesetzt werden soll, wenn die Mappe am selben Tag mehrfach geöffnet wird? Schreibe das aktuelle Daten in eine Zelle und prüfe beim Öffnen der Mappe, ob das aktuelle Datum jünger als das in der betreffenden Zelle ist - falls ja, dann Farbe zurücksetzen.

 

Hallo,

ja das ist korrekt. Bei mehrfachem Öffnen der Arbeitsmappe soll die Farbe am "heutigen Tage" nicht zurück gesetzt werden.
Jedoch spätestens am nächsten Tag.

Zur Info: Der Button wird täglich zu unterschiedlichen Uhrzeiten ausgeführt.

Irgendwie funktioniert, dass nicht richtig.
Da das Bestandsdatum ja die Formel Heute() enthält. Bei mir springt die farbe immer auf grau *frown.gif*

 

Hi,

das aktuelle Datum nicht per Formel sondern per VBA eintragen.