Private Sub CommandButton4_Click()
Dim InI As Integer
For InI = 2 To 4
ActiveSheet.OLEObjects("CommandButton" & InI).Object.BackColor = RGB(0, 255, 0)
Next
' CommandButton1.BackColor = RGB(0, 255, 0)
End Sub
ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.SchemeColor = 15
und den Textinhalt mit folgendem Code abfragen:
ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text
das rücksetzen der Farben erfolgt dann mit diesem Code:
dim shp as Shape
for each shp in activesheet.Shapes
shp.Fill.ForeColor.SchemeColor = 10
next
der Code muss natürlich ins Makro "Eingabe abschließen"
Gruß, Daniel
ps. du musst nicht für jedes Makro ein eigenes Modul anlegen. Man kann auch mehrere Makros in ein Modul schreiben.
Um die Farbe eines CommandButtons in Excel per VBA zu ändern, folge diesen Schritten:
ALT + F11 drückst.Private Sub CommandButton1_Click()
CommandButton1.BackColor = RGB(0, 255, 0) ' Ändert die Farbe auf grün
End SubDim shp As Shape
For Each shp In ActiveSheet.Shapes
If TypeName(shp.OLEFormat.Object) = "CommandButton" Then
shp.OLEFormat.Object.BackColor = RGB(192, 192, 192) ' Setzt die Farbe auf grau
End If
Next shpFehler: Der Button ändert die Farbe nicht.
Fehler: Alle Buttons ändern sich gleichzeitig.
Application.Caller, um den spezifischen Button zu identifizieren, der angeklickt wurde. Beispiel:Private Sub CommandButton1_Click()
ActiveSheet.Shapes(Application.Caller).OLEFormat.Object.BackColor = RGB(0, 255, 0)
End SubWenn du die Farbe von Excel-Formularsteuerelementen ändern möchtest, kannst du normale Textfelder aus Grafikelementen verwenden. Diese können ebenfalls mit Makros verknüpft werden. Der folgende Code ändert die Farbe eines Grafikelements:
ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(0, 255, 0)Um die Farben bei einem Klick zu ändern, benutze diesen Code:
ActiveSheet.Shapes(Application.Caller).Fill.ForeColor.RGB = RGB(255, 0, 0)Hier sind einige praktische Beispiele, wie du die Farbe von Schaltflächen in Excel ändern kannst:
Private Sub CommandButton1_Click()
CommandButton1.BackColor = RGB(255, 0, 0) ' Rot
End SubSub ResetButtonColors()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
If TypeName(shp.OLEFormat.Object) = "CommandButton" Then
shp.OLEFormat.Object.BackColor = RGB(192, 192, 192) ' Grau
End If
Next shp
End SubDebug.Print-Statement, um Werte zu überprüfen, falls etwas nicht wie erwartet funktioniert.1. Wie ändere ich die Farbe eines Excel-Buttons ohne VBA?
Es ist nicht möglich, die Farbe eines Excel-Buttons ohne VBA zu ändern. Du musst die VBA-Programmierung verwenden, um die BackColor-Eigenschaft zu ändern.
2. Kann ich die Farbe aller CommandButtons gleichzeitig ändern? Ja, du kannst eine Schleife verwenden, um die Farbe aller CommandButtons auf dem aktuellen Arbeitsblatt zu ändern.
3. Wie kann ich den Text eines Buttons in VBA ändern?
Du kannst die Caption-Eigenschaft des Buttons ändern, um den Text zu aktualisieren:
CommandButton1.Caption = "Neuer Text"4. Was passiert, wenn ich einen Button klicke und keine Aktion ausgeführt wird? Überprüfe, ob der richtige Code im Click-Ereignis des Buttons implementiert wurde und ob keine Fehler im VBA-Code vorhanden sind.
Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen