Live-Forum - Die aktuellen Beiträge
Datum
Titel
27.04.2024 20:04:34
Excel in Formen z.b Rechteck, eine Tabelle einfügen?
27.04.2024 19:23:05
Passwortabfrage für verschiedene tabellenblätter
27.04.2024 16:48:06
Formel gibt Falsch aus und ich weiß nicht warum - VBA
27.04.2024 14:45:54
Verknüpfung Tabelleneinträge mit Datumsspalte
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1924to1928
1924to1928
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Schaltfläche Hintergrundfarbe ändern VBA

Schaltfläche Hintergrundfarbe ändern VBA
19.04.2023 10:11:12
Peter

Folgendes Problem:
Ich habe mir auf Arbeit eine Excel Tabelle erstellt und starte über einen Button ein Makro.

Nach einem Update wurden die Verwendung von ActiveX-Steuerelementen aus Sicherheitsgründen deaktiviert. Wichtig: ich habe keine Berechtigung, diese Einstellung zu ändern, und unsere IT-Abteilung wird das auch nicht für mich ändern. Tipps und Vorschläge in dieser Richtung sind also nicht nötig.

Zurück zum Problem: bisher habe ich Befehlsschaltflächen (ActiveX-Steuerelement) verwendet, das geht jetzt halt nicht mehr. Statt dessen habe ich Schaltflächen (Formularsteuerelement) eingefügt und diese per VBA formatiert (finde ich einfacher und präziser).


tabMain.Shapes.Range(Array("cmdGetData")).Select
    Selection.Characters.Text = "Get Data"
    Selection.Height = 24
    Selection.Width = 69
    Selection.Top = 3
    Selection.Left = 6
    Selection.OnAction = "tabMain.cmdGetData_Click"


Jetzt würde ich gerne noch die Hintergrundfarbe ändern.
Bei einem ActiveX-Button ginge das einfach so: 
CommandButton1.BackColor = vbGreen

Wie kann ich das bei einem Formularsteuerelement-Button umsetzen, falls überhaupt?

11
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Schaltfläche Hintergrundfarbe ändern VBA
19.04.2023 10:21:50
Oberschlumpf
Hi Peter,

dieser Beitrag...
https://www.herber.de/forum/archiv/1128to1132/1129068_Hintergrundfarbe_Steuerelement.html
...ist zwar schon etwas älter, aber ich glaub, es hat sich nix dran geändert, dass man die HG-Farbe von Formularsteuerelementen - nicht - ändern kann.

Da ich DAS aber nicht ganz genau weiß, keine aktuelleren Treffer finde, lass ich den Beitrag offen.

Hilfts?

Ciao
Thorsten


AW: Schaltfläche Hintergrundfarbe ändern VBA
19.04.2023 10:51:34
Beverly
Hi Peter,

wie Thorsten schon geschrieben hat: bei Formularsteuerelementen kann man die Hintergrundfarbe nicht ändern. Nimm doch stattdessen eine Form, dann ist es z.B. nach diesem Prinzip möglich:

    With ActiveSheet.Shapes("Rechteck 1").OLEFormat.Object
        .Interior.Color = vbGreen
    End With
Bis später
Karin


Anzeige
hach, es kann so einfach sein :-) danke Karin..owT
19.04.2023 11:12:32
Oberschlumpf


AW: hach, es kann so einfach sein... ist aber nich
19.04.2023 11:56:51
Peter
Leider kommt bei mir dann nur die Fehlermeldung "ObjeKt unterstützt diese Eigenschaft oder Methode nicht"

Fehlt mir da villeicht noch ein Verweis?


AW: hach, es kann so einfach sein... ist aber nich
19.04.2023 12:07:02
Oberschlumpf
Peter ,

du bist VBA = Gut! echt??????
Wenn JA, dann probier doch mal n bisschen rum! auch Google ist eine echt verdammt gute Hilfe...vor allem dann, wenn man VBA = Gut ist
Ja, ich weiß, Gut = man weiß noch immer nicht alles....aber trotzdem

und ähh???....ne Bsp-Datei per Upload zeigen? mit allem, was dir Probleme macht? Wieso kommst du nich auf diese Idee???

UND! Ich hab gerad den Code von Karin getestet mit Ergebnis = ES FUNKTIONIERT SO WAS VON!

Ciao
Thorsten


Anzeige
AW: hach, es kann so einfach sein... ist aber nich
19.04.2023 12:27:32
Peter
Huch, wirst Du gleich agressiv. Entspann Dich mal :-)


AW: hach, es kann so einfach sein...
19.04.2023 12:37:44
Beverly
Dann nehme ich an, du hast keine Form verwendet. Aber ohne hochgeladene Mappe unmöglich etwas dazu zu äußern...

Übrigens: ich poste keine Codes, die ich nicht vorher getestet habe. Falls ich einen Code mal nicht getestet habe oder - aus was für Gründen auch immer - nicht testen kann, dann vermerke ich das auch entsprechend im Beitrag.

Bis später
Karin


AW: hach, es kann so einfach sein...
19.04.2023 13:09:58
Peter
Ach, sorry, mein Fehler. Ich hab das mit der Form überlesen und nur den Code angewendet *schäm*
Werde mal Testen


Anzeige
AW: Schaltfläche Hintergrundfarbe ändern VBA
19.04.2023 12:26:04
GerdL
Hallo Peter!

Menü Einfügen (bei mir) -> Formen
Rechteck auswählen
In die Tabelle einfügen
Entwurfsmodus beenden
Code z.B.:
Sub Makro1()
     ActiveSheet.Shapes("Rechteck 1").OLEFormat.Object.Interior.Color = vbGreen
End Sub
Gruß Gerd


AW: Schaltfläche Hintergrundfarbe ändern VBA
19.04.2023 13:07:22
Peter
Vielen Dank, das teste ich mal.


AW: Schaltfläche Hintergrundfarbe ändern VBA
21.04.2023 07:52:02
Peter
Danke an Karin (Beverly) und GerdL, so hat es geklappt.
Mit diesem Code wird dann sogar ein Button-Click "simuliert"

Sub CmdClick()
    Dim vTopType As Variant
    Dim iTopInset As Integer
    Dim iTopDepth As Integer

'Button Einstellungen merken
    With ActiveSheet.Shapes(Application.Caller).ThreeD
        vTopType = .BevelTopType
        iTopInset = .BevelTopInset
        iTopDepth = .BevelTopDepth
    End With

'Button Down
    With ActiveSheet.Shapes(Application.Caller).ThreeD
        .BevelTopType = msoBevelSoftRound
        .BevelTopInset = 4
        .BevelTopDepth = 2
    End With

    Application.ScreenUpdating = True
    DoEvents

'Button Up - Button Einstellungen wiederherstellen
    With ActiveSheet.Shapes(Application.Caller).ThreeD
        .BevelTopType = vTopType
        .BevelTopInset = iTopInset
        .BevelTopDepth = iTopDepth
    End With

End Sub

Anzeige

176 Forumthreads zu ähnlichen Themen

Schriftfarbe von Schaltfläche per VBA
Schaltfläche

Guten Morgen zusammen,
ich habe in meiner Tabelle 26 Schaltflächen (A - Z) erstellt, die das Sortieren der Tabelle nach eben dem jeweiligen Buchstaben übernehmen sollen. Hierbei bin ich jetzt auf folgendes Problem gestossen:
- wie kann ich den Inhalt der gedrückten Schaltfläche abfragen...
07.01.2011 10:07:41
Thread-ID: 1194363
12 Beiträge
Anzeige
Button in Abhängigkeit von Zellwert Farbe ändern
Zellwert

Guten Morgen zusammen,
ich bin auf der Suche nach einer Möglichkeit, dass ein CommandButton in Abhängigkeit eines Zellwertes seine Hintergrundfarbe ändert.
Der CommandButton wählt sonst aber noch ein Sheet aus.
Kennt/wisst ihr eine Möglichkeit, diese beiden "Funktionen" zu kombinier...
12.11.2012 10:16:20
Thread-ID: 1286343
6 Beiträge
Markierte Zellen Farben ändern bei Rechtsklick
Burghard

Hallo,
das nachfolgende Makro funktioniert, allerdings nur für die aktive Zelle. Läßt sich das Makro umschreiben, so dass die Farbänderungen für alle markierten Zellen gelten?
Private Sub Workbook_SheetBeforeRightClick(ByVal Sh As Object, ByVal Target As Range, Cancel As _ Boolean) App...
29.08.2013 21:07:20
Thread-ID: 1328873
6 Beiträge
Anzeige
Excel VBA CommentIndicator Farbe ändern, Code Umba
Silent_Warrior5

Hi Zusammen man kann ja den CommentIndicator leider nicht auf normalem Weg ändern (Rote Dreieck rechts in Ecke was einem anzeigt hier ist ein Kommentar in Zelle) nun hab ich folgendes Makro was einfach ein Shape auch Dreieck drüberlegt. läuft super nur wie kann ich es umbauen das es nur die act...
09.07.2015 17:48:56
Thread-ID: 1435543
10 Beiträge
Makro: Farben finden und ändern
Debian

Auch Office 2011 für Mac
Hallo Zusammen :-)
In folgender Mappe möchte ich gerne in der gesamte Mappe eine bestimmte Farbe ändern, nämlich die der Rahmen und Zwischenzeilen (dieses Graugrün).
https://www.herber.de/bbs/user/98784.xlsm
Ich stelle mir das so vor, das die aktuelle...
30.07.2015 15:24:07
Thread-ID: 1439461
5 Beiträge
Makro: Farben finden und ändern
Debian

Auch Office 2011 für Mac
Hallo Zusammen :-)
In folgender Mappe möchte ich gerne in der gesamte Mappe eine bestimmte Farbe ändern, nämlich die der Rahmen und Zwischenzeilen (dieses Graugrün).
https://www.herber.de/bbs/user/98784.xlsm
Ich stelle mir das so vor, das die aktuelle...
30.07.2015 23:39:06
Thread-ID: 1439541
2 Beiträge
Makro: Farben finden und ändern
Debian

Auch Office 2011 für Mac
Hallo Zusammen :-)
In folgender Mappe möchte ich gerne in der gesamte Mappe eine bestimmte Farbe ändern, nämlich die der Rahmen und Zwischenzeilen (dieses Graugrün).
https://www.herber.de/bbs/user/98784.xlsm
Ich stelle mir das so vor, das die aktuelle...
31.07.2015 02:22:29
Thread-ID: 1439544
6 Beiträge
VBA: Schriftfarbe in Fußzeile ändern
Tim

Hallo,
ich bin ziemlich neu bei VBA und hoffe, hier kann mir jemand weiterhelfen.
Ich verwende den folgenden Code um eine dynamische Fußzeile mittels einer Zell-Referenz zu generieren.
Das funktioniert soweit, ich finde jedoch keinen Weg, dabei auch die Schriftfarbe unter Verwend...
16.10.2015 15:28:46
Thread-ID: 1452719
6 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige
Archiv - Verwandte Themen
Forumthread
Beiträge
11
2
5
5
3
9
4
1
5
5
1
12
4
2
12
3
16
2
8
4
2
15
10
8
1