Live-Forum - Die aktuellen Beiträge
Datum
Titel
20.04.2024 00:49:19
Excel Sheet in einen Excel Kalender einfügen
20.04.2024 00:08:11
In Ordner nur das Speichern von Dateien erlauben
19.04.2024 21:26:15
mehrfache Texte finden
19.04.2024 19:41:34
Bei VBA Ausführung Anzeige einfrieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
448to452
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
448to452
448to452
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Hintergrundfarbe von CommandButton

Hintergrundfarbe von CommandButton
02.07.2004 13:22:14
CommandButton
Hallo zusammen
Ich habe auf einem Tabellenblatt mehrere Commandbuttons, deren Hintergrundfarbe ich per VBA verändern möchte.
Einzeln geht es problemlos:
ActiveSheet.CommandButton1.BackColor = &H8080FF
ActiveSheet.CommandButton2.BackColor = &H8080FF
ActiveSheet.CommandButton3.BackColor = &H8080FF
ActiveSheet.CommandButton4.BackColor = &H8080FF
Ziel wäre aber eine Schleife:
i = 1 to 4
ActiveSheet.Shapes("CommandButton" & i).BackColor = &H8080FF
next i
Leider erhalte ich so eine verdammte Fehlermeldung(91)
Freunde, ich wäre mega dankbar für Lösungsvorschläge
Gruss
Remo aus der Schweiz
(auch wir haben keine gute Fussballnati)

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Hintergrundfarbe von CommandButton
02.07.2004 13:38:48
CommandButton
Hallo Remo

Private Sub CommandButton4_Click()
Dim InI As Integer
For InI = 2 To 4
ActiveSheet.OLEObjects("CommandButton" & InI).Object.BackColor = RGB(255, 255, 0)
Next
'    CommandButton1.BackColor = RGB(0, 255, 0)
End Sub

Gruß Annett
AW: Hintergrundfarbe von CommandButton
CommandButton
Hallo,

Private Sub Worksheet_Activate()
Dim i As Long
For i = 1 To Me.OLEObjects.Count
If Me.OLEObjects(i).ProgId = "Forms.CommandButton.1" Then
Me.OLEObjects(i).Object.BackColor = &HFF0000
End If
Next
End Sub

Gruß K.Rola
Anzeige
Danke! Beide Varianten funktionieren! o.T.
Remo

Links zu Excel-Dialogen

CommandButton

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige